如何更安全地关闭外部程序？ (100分)

coolqiang · 2002-05-28

我在程序中，用下面的函数来关闭外部打开的程序，发现对于普通程序没问题，如记事 本、计算器等，但如果关闭一些使用了多媒体资源的程序（例如正在播放VCD等），就会 出现非法操作。而且程序虽然关闭了，但还能听见声卡在播放歌曲。 请问各位高手：有没有更好、更安全的关闭外部出现的办法呢？ function CloseProgram(AProgramName: string): Boolean; var   hWndClose         : HWnd; begin   hWndClose := FindWindow(nil, PChar(AProgramName));   if hWndClose <> 0 then   begin     SendMessage(hWndClose, WM_CLOSE, 0, 0);     Result := True;   end else   begin     ShowMessage('没找到指定的应用程序，所以无法关闭！');     Result := False;   end; end;

yfdciom · 2002-05-28

发送WM_QUERYENDSESSION 消息，如果返回true,则可以安全关闭。 否则，不可以。

nick4309 · 2002-05-31

可以用openprocess得到进程handle,再用GetExitCodeProcess ，TerminateProcess试试

coolqiang · 2002-06-10

nick4309：     能写个具体的示例吗？我不知道如何做！

hbezwwl · 2002-06-10

http://www.delphibbs.com/delphibbs/dispq.asp?lid=755909 看看.

张无忌 · 2002-06-10

用sendmessagetimeout()发送WM_CLOSE如果到了指定的时间这个程序还没有关闭 就用openprocess得到进程handle,再用GetExitCodeProcess ，TerminateProcess 我在前面写了好多次这个代码，你找找看

rainxy2002 · 2002-06-10

杀死一个记事本进程

如下)等于是Ctrl+Alt+Del后，中止一个进程 procedure TForm1.Button1Click(Sender: TObject); var   H:THandle;   P

WORD; begin   H:=FindWindow(nil,'无标题 - 记事本');   if H<>0 then   begin     GetWindowThreadProcessId(H,@P);     if P<>0 then       TerminateProcess(OpenProcess(PROCESS_TERMINATE,False,P),$FFFFFFFF);   end; end;

张无忌 · 2002-06-10

要安全的关闭就要用sendmessagetimeout()，如果直接用TerminateProcess容易 是系统没有干净的释放资源

coolqiang · 2002-07-09

rainxy2002：     我用你的方法关闭一个多媒体程序，关闭没问题，但再次打开这个多媒体程 序就放不出声音了。但我用Ctrl+Alt+Del的方式来关闭，再次打开却很正常！所以你的方 法跟Ctrl+Alt+Del不同啊！我现在就是想知道Ctrl+Alt+Del具体是怎样操作的，哪位高手 知道啊！ 张无忌：     你的方法我很想试试，但我的水平不高，不知如何下手，能帮我写出这段代码吗？

twos · 2002-07-10

wm_quit

hgood · 2002-07-10

function CloseProgram(AProgramName: string): Boolean; var   hWndClose         : HWnd; begin   hWndClose := FindWindow(nil, PChar(AProgramName));   if hWndClose <> 0 then   begin     //SendMessage(hWndClose, WM_CLOSE, 0, 0);     postmessage(hWndClose,wm_quit,1,1);     Result := True;   end else   begin     ShowMessage('没找到指定的应用程序，所以无法关闭！');     Result := False;   end; end; 換成上面的代碼試試﹗

coolqiang · 2002-07-10

非常感谢大家，特别是hgood，问题已经解决！

coolqiang · 2002-07-10

多人接受答案了。

如何更安全地关闭外部程序？ (100分)

coolqiang

Unregistered / Unconfirmed

yfdciom

Unregistered / Unconfirmed

nick4309

Unregistered / Unconfirmed

coolqiang

Unregistered / Unconfirmed

hbezwwl

Unregistered / Unconfirmed

张无忌

Unregistered / Unconfirmed

rainxy2002

Unregistered / Unconfirmed

张无忌

Unregistered / Unconfirmed

coolqiang

Unregistered / Unconfirmed

twos

Unregistered / Unconfirmed

hgood

Unregistered / Unconfirmed

coolqiang

Unregistered / Unconfirmed

coolqiang

Unregistered / Unconfirmed

Similar threads