如何判断某一进程是否结束 ( 积分: 100 )

zqm999a · 2005-01-13

这一进程就别人提供的应用程序，由我触发，我要判断这个进程是否结束，先谢了

zqm999a · 2005-01-13

这一进程就别人提供的应用程序，由我触发，我要判断这个进程是否结束，先谢了

weiliu · 2005-01-13

如果这个程序是自动退出的，就找它的窗口句柄，如果不带窗口的，就直接找进程名。下面的程序给你参考： 话题915786的标题是：如何列出所有运行程序进程，并可以杀掉指定的进程，1000分在等各位高手啊！ (300分) 分类：系统相关壹平 (2002-02-08 14:45:00)   如何列出所有运行程序进程，并可以杀掉指定的进程，1000分在等各位高手啊！ delphi 和 C++B 的都可以！ honestman (2002-02-08 14:48:00)   翻翻旧贴，N年前就已经讨论过了。 zlj555 (2002-02-08 15:00:00)   unit Unit1; interface uses  Windows, Messages, SysUtils, Classes, Graphics, TLHelp32, Controls, Forms, Dialogs,  StdCtrls; type  TProcessInfo = record    ExeFile: string;    ProcessId: DWORD;  end;  ProcessInfo = ^TProcessInfo;  TForm1 = class(TForm)    ListBox1: TListBox;    Button1: TButton;    Button2: TButton;    procedure Button1Click(Sender: TObject);    procedure ProcessList(var pList: TList);    procedure My_RunFileScan(ListboxRunFile: TListBox);    procedure Button2Click(Sender: TObject);  private    { Private declarations }  public    Current: TList;    { Public declarations }  end; var  Form1: TForm1; implementation {$R *.DFM} procedure TForm1.ProcessList(var pList: TList); var  p: ProcessInfo;  ok: Bool;  ProcessListHandle: THandle;  ProcessStruct: TProcessEntry32; begin  PList := TList.Create;  PList.Clear;  ProcessListHandle := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);  ProcessStruct.dwSize := Sizeof(ProcessStruct);  ok := Process32First(ProcessListHandle, ProcessStruct);  while Integer(ok) &lt;&gt; 0 do    begin      new(p);      p.ExeFile := ProcessStruct.szExeFile;      p.ProcessID := ProcessStruct.th32ProcessID;      PList.Add(p);      ok := Process32Next(ProcessListHandle, ProcessStruct);    end; end; procedure TForm1.Button1Click(Sender: TObject); var  h: THandle;  a: DWORD;  p: PRocessInfo; begin  if ListBox1.ItemIndex &gt;= 0 then    begin      p := Current.Items[ListBox1.ItemIndex];      h := openProcess(Process_All_Access, true, p.ProcessID);      GetExitCodeProcess(h, a);      if Integer(TerminateProcess(h, a)) &lt;&gt; 0 then        begin          My_RunFileScan(ListBox1);        end;    end  else    Application.MessageBox('请先选择一个进程!', '黑洞', MB_ICONERROR + MB_OK); end; procedure TForm1.My_RunFileScan(ListboxRunFile: TListBox); var  i: Integer;  p: PRocessInfo; begin  current := TList.Create;  Current.Clear;  ListboxRunFile.Clear;  ProcessList(Current);  for i := 0 to Current.Count - 1 do    begin      new(p);      p := Current.Items;      ListboxRunFile.Items.Add(p.ExeFile);    end; end; procedure TForm1.Button2Click(Sender: TObject); begin  My_RunFileScan(ListBox1); end; end. 荷塘新月 (2002-02-08 15:09:00)   我有一个程序，专门用来查看、清除程序，DELPHI5下编译通过。 壹平 (2002-02-08 15:48:00)   荷塘新月:把源代码放出来看看! 壹平 (2002-02-08 16:01:00)   zlj555:  ProcessStruct: TProcessEntry32; 编译不同过~~~!!!!!!!!!! yyxhcf (2002-02-08 16:12:00)   我有一个。来自一个远程控制程序的。 列出所有进程，可以正常关闭进程，也可以强制杀死进程。 远程控制计算机的哦，在上网时要取对方资料易如反掌，对方做什么看得清清楚楚。 还有很多很多功能。。。。程序大小只有100多K。 经我修改后非常厉害，除了NT，否则用户根本找不到杀不死，哈哈。 自编的程序，所有反病毒工具无效。 价值不只1000分，呵呵。春节没空了，以后再给。 壹平 (2002-02-08 16:42:00)   yyxhcf,能否发给我，谢谢！ qq74 (2002-02-08 17:04:00)   能否给我一份,谢谢!jw_yan@163.com shiner (2002-02-08 17:41:00)   到这里来,有源码的啊.http://delphi.7i24.com bubble (2002-02-08 19:49:00)   unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm)   Button1: TButton;   ListBox1: TListBox;    Label1: TLabel;    Button2: TButton;   procedure Button1Click(Sender: TObject);   procedure ListBox1Click(Sender: TObject);    procedure Button2Click(Sender: TObject); private   { Private declarations } public   { Public declarations } end; var Form1: TForm1;  Wnd: HWND; implementation {$R *.DFM} Function EnumWindowsProc (Wnd: HWND; lb: TListbox): BOOL; stdcall; var caption: Array [0..128] of Char; begin Result := True; if { skip invisible windows }    IsWindowVisible(Wnd) and    { only process truly top-level windows. GetWindowLong must be used, not GetParent }    ((GetWindowLong(Wnd, GWL_HWNDPARENT) = 0) or     (HWND(GetWindowLong(Wnd, GWL_HWNDPARENT)) = GetDesktopWindow)) and    { skip WS_EX_TOOLWINDOW windows }    ((GetWindowLong(Wnd, GWL_EXSTYLE) and WS_EX_TOOLWINDOW) = 0) then begin   SendMessage( Wnd, WM_GETTEXT, Sizeof( caption ), integer(@caption));   lb.Items.AddObject( caption, TObject( Wnd )); end; end; procedure TForm1.Button1Click(Sender: TObject); begin listbox1.clear; EnumWindows( @EnumWindowsProc, integer( listbox1 )); end; procedure TForm1.ListBox1Click(Sender: TObject); var theClassname: Array [0..128] of Char; tid, pid: DWORD; intExitCodeWORD; begin With Sender As TListbox Do Begin   If ItemIndex &gt;= 0 Then Begin     Wnd:= HWND(Items.Objects[ itemindex ]);     If Wnd &lt;&gt; 0 Then Begin       Windows.GetClassname( Wnd, theClassname, Sizeof( classname ));       tid := GetWindowThreadProcessID( Wnd, @pid );       label1.caption :=         Format(           'HWND: %8.8x'#13#10+           'Class: %s'#13#10+           'Process ID: %8.8x'#13#10+           'Thread ID: %8.8x',           [Wnd, theClassname, pid, tid] );     End;   End; End; end; procedure TForm1.Button2Click(Sender: TObject); begin  PostMessage(Wnd, WM_CLOSE, 0, 0); end; end. snail_kbb (2002-02-09 11:22:00)   yyxhcf,也给我一个，谢谢 blue_winds (2002-02-09 13:00:00)   不对啊 我调试了  label1.caption不显示 button2不执行啊 董海滨 (2002-11-08 11:55:00)   yyxhcf,也给我一个，谢谢 seawater001@yeah.net chillinson (2004-03-06 16:28:19)   zlj555 的代码没有问题, 问题是你在程序uses区没有加TLHelp32,加上就OK.

迷糊 · 2005-01-13

等待计算器结束的例子 var  StartupInfo:TStartupInfo;  ProcessInfo:TProcessInformation; begin  FillChar(StartupInfo,SizeOf(StartupInfo),#0);  StartupInfo.cb:=SizeOf(StartupInfo);  StartupInfo.dwFlags:=STARTF_USESHOWWINDOW;  StartupInfo.wShowWindow:=sw_show;  CreateProcess(nil,'calc.exe',nil,nil,false,Create_new_console or Normal_priority_class,nil,nil,StartupInfo,ProcessInfo);  WaitForsingleobject(ProcessInfo.hProcess, INFINITE); end;

skywater007 · 2005-01-13

学习！

mszok · 2005-01-18

上面讲的很详细,受教育了!楼主放分吧

如何判断某一进程是否结束 ( 积分: 100 )

zqm999a

Unregistered / Unconfirmed

zqm999a

Unregistered / Unconfirmed

weiliu

Unregistered / Unconfirmed

迷糊

Unregistered / Unconfirmed

skywater007

Unregistered / Unconfirmed

mszok

Unregistered / Unconfirmed

Similar threads