我想做一个程序关闭指定的程序！(50分)

S

shlgz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-13

• #1

我做了一个程序能查找到当前运行的程序（不是窗口），用listbox显示出来，但我不知如
何kill 掉我指定的程序（items）,请各位大侠帮我！

 

I

iamfly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-13

• #2

一般办法，先用OPENPROCESS返回PROCESS HANDLE，然后用TERMINATEPROCESS（我以前就是
这样做的），此方法在98和2000都可用，问题是用TERMINATEPROCESS强行关闭一个进程不
安全，具体你可以看看MSDN，2000下还有一个特殊方法，你可以看看我的这个贴：
http://www.delphibbs.com/delphibbs/dispq.asp?lid=583419

 

O

onlyonekgx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-13

• #3

AHandle:=FindWindow('ClassName',caption');
if AHandle<>0 then SendMessage(AHandle,WM_CLose,0,0);

 

S

smilboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-13

• #4

var
; Han: THandle;
; ProcessID: int64;
; ExitCode: DWORD;
; i: integer;
begin
; for i := 0 to ListView1.Items.Count - 1 do
; ; if listview1.Items.Selected then
; ; begin
; ; ; ProcessID := StrToInt64(ListView1.Selected.SubItems.Strings[0]);
; ; ; Han := OpenProcess(PROCESS_TERMINATE, true, ProcessID);
; ; ; GetExitCodeProcess(Han, ExitCode);
; ; ; TerminateProcess(Han, ExitCode);
; ; end;
end;

 

S

shlgz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-14

• #5

谢谢大家!