彤 彤云白雪 Unregistered / Unconfirmed GUEST, unregistred user! 2004-04-27 #1 为了实现试听音乐的功能，我用了ShellExecute函数。<br>用ShellExecute函数,与超级解霸音频超链接后,想试听另一首歌时怎样关闭正在播放中的"超级解霸音频"应用程序?<br>
W wqhatnet Unregistered / Unconfirmed GUEST, unregistred user! 2004-04-27 #2 ShellExecute(0,'open','C:/Program Files/WinRAR/rar.exe','a E:/c-51/doc1.rar e:/doc/doc1.txt',nil,sw_hide); <br>ShellExecute(0,'open','C:/Program Files/Adobe/Photoshop 6.0/Photoshp.exe','F:/图象/BMP2/[0001].BMP',nil,sw_hide);<br>ShellExecute(handle, pchar('open'), pchar(editpath.text), pchar(''), pchar(''), SW_SHOWNORMAL);
ShellExecute(0,'open','C:/Program Files/WinRAR/rar.exe','a E:/c-51/doc1.rar e:/doc/doc1.txt',nil,sw_hide); <br>ShellExecute(0,'open','C:/Program Files/Adobe/Photoshop 6.0/Photoshp.exe','F:/图象/BMP2/[0001].BMP',nil,sw_hide);<br>ShellExecute(handle, pchar('open'), pchar(editpath.text), pchar(''), pchar(''), SW_SHOWNORMAL);
W wqhatnet Unregistered / Unconfirmed GUEST, unregistred user! 2004-04-27 #3 var<br> HWndCalculator : HWnd;<br>begin<br>// find the exist calculator window<br> HWndCalculator := FindWindow(nil, '扫雷'); // close the exist Calculator<br> if HWndCalculator<>0 then<br> PostMessage(HWndCalculator, WM_CLOSE, 0, 0);<br>end; <br><br>
var<br> HWndCalculator : HWnd;<br>begin<br>// find the exist calculator window<br> HWndCalculator := FindWindow(nil, '扫雷'); // close the exist Calculator<br> if HWndCalculator<>0 then<br> PostMessage(HWndCalculator, WM_CLOSE, 0, 0);<br>end; <br><br>
T thx1180 Unregistered / Unconfirmed GUEST, unregistred user! 2004-04-28 #4 http://www.delphibbs.com/delphibbs/dispq.asp?lid=1803804
