给你100分(100分)

我用delphi5编了个媒体播放器，但不知怎么控制播放的声音、和图像名亮度，怎么实现？<br>我用delphi编了个小软件，但想在其中调用windows的程序：比如调用windows的查找程<br>序，怎么实现？<br>

&gt;&gt;想在其中调用windows的程序：比如调用windows的查找程<br>序，怎么实现？<br><br>Way1:<br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br>&nbsp; hExeHandle : THandle;<br>begin<br>&nbsp; hExeHandle := WinExec('arj.exe /?',<br>&nbsp; &nbsp; SW_SHOWNORMAL);<br>end;<br><br><br>Way2:<br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br>&nbsp; sCommandLine: string;<br>&nbsp; bCreateProcess: boolean;<br>&nbsp; lpStartupInfo: TStartupInfo;<br>&nbsp; lpProcessInformation: TProcessInformation;<br>begin<br>&nbsp; sCommandLine := 'D:/TEMP/TEST.EXE';<br>&nbsp; FillChar(lpStartupInfo, Sizeof(TStartupInfo), #0);<br>&nbsp; lpStartupInfo.cb := Sizeof(TStartupInfo);<br>&nbsp; lpStartupInfo.dwFlags := STARTF_USESHOWWINDOW;<br>&nbsp; lpStartupInfo.wShowWindow := SW_NORMAL;<br><br>&nbsp; bCreateProcess := CreateProcess(nil, PChar(sCommandLine),<br>&nbsp; &nbsp; nil, nil, True, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,<br>&nbsp; &nbsp; nil, nil, lpStartupInfo, lpProcessInformation);<br>end; &nbsp; &nbsp; &nbsp;| <br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; |<br>&nbsp; &nbsp; &nbsp; &nbsp;LPCTSTR (C),工作目录

你是说在你自己的程序中调用系统的查找功能吗?如用F3调出的系统功能?

1、播放声音可参考以下函数：<br>auxGetVolume<br>auxSetVolume<br>waveOutGetVolume<br>waveOutSetVolume<br>其中存在Byte与Integer的转换问题（我对这个问题还没完全搞明白）<br>改图像的亮度可就不容易了。

多人接受答案了。