请帮忙检查关闭进程的程序！(100分)

sds · 1999-08-31

想通过循环找出已运行的“计算器”程序，并关闭其进程， 下面是我的程序，就是调试不好，请求帮助！ unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,TLHelp32,   StdCtrls; type   TForm1 = class(TForm)     Button1: TButton;     ListBox1: TListBox;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; type  TProcessInfo = Record     ExeFile    : String;      ProcessID  : DWORD;       end;   pProcessInfo = ^TProcessInfo; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var p : pProcessInfo; ContinueLoop:BOOL; FSnapshotHandle:THandle; FProcessEntry32:TProcessEntry32; n:integer; begin n:=1; FSnapshotHandle:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);   FProcessEntry32.dwSize:=Sizeof(FProcessEntry32);   ContinueLoop:=Process32First(FSnapshotHandle,FProcessEntry32);   while integer(ContinueLoop)<>0 do   begin   New(p);   p.ExeFile:= FProcessEntry32.szExeFile;   ListBox1.Items.Add(inttostr

+')'+inttostr(FProcessEntry32.th32ProcessID)+'  *  '+p.ExeFile);   inc

;    if p.ExeFile='C:/WINDOWS/CALC.EXE' THEN TerminateProcess(FSnapshotHandle,0);  ContinueLoop:=Process32Next(FSnapshotHandle,FProcessEntry32);      end; end; end.

geshengping · 1999-08-31

以下的程序可以实现 var   HWndCalculator : HWnd; begin    // find the exist calculator window   HWndCalculator := Winprocs.FindWindow(nil, '计算器'); // close the exist Calculator   if HWndCalculator <> 0 then SendMessage(HWndCalculator, WM_CLOSE, 0, 0); end; 在uses语句中加入Winprocs

kokusan · 1999-08-31

sds:对你的程序做了小改动，如下: unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,   Dialogs,TLHelp32,  StdCtrls; type   TForm1 = class(TForm)     Button1: TButton;     ListBox1: TListBox;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; type  TProcessInfo = Record     ExeFile    : String;      ProcessID  : DWORD;       end;   pProcessInfo = ^TProcessInfo; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var   p: pProcessInfo;   ContinueLoop: BOOL;   FSnapshotHandle, hProcess: THandle;   FProcessEntry32: TProcessEntry32;   n: integer; begin   n:=1;   New(p);   FSnapshotHandle:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);   FProcessEntry32.dwSize:=Sizeof(FProcessEntry32);   ContinueLoop:=Process32First(FSnapshotHandle,FProcessEntry32);   while integer(ContinueLoop)<>0 do   begin     p.ExeFile:= FProcessEntry32.szExeFile;     ListBox1.Items.Add(inttostr

+':'+inttostr               (FProcessEntry32. th32ProcessID)+'  *  '+p.ExeFile);     inc

;     if p.ExeFile='C:/WINDOWS/CALC.EXE' then     begin       hProcess := OpenProcess(PROCESS_ALL_ACCESS, FALSE,                              FProcessEntry32. th32ProcessID);       TerminateProcess(hProcess,0);     end;     ContinueLoop:=Process32Next(FSnapshotHandle,FProcessEntry32);   end; end; end. 为了阅读，加了几个回车，请你调试时删掉。主要的改动只有一处: hProcess; 不过我还是倾向于geshengping的方法(9x, NT都能用)，而前者只有9x支持。

sds · 1999-09-04

多人接受答案了。

请帮忙检查关闭进程的程序！(100分)

sds

Unregistered / Unconfirmed

geshengping

Unregistered / Unconfirmed

kokusan

Unregistered / Unconfirmed

sds

Unregistered / Unconfirmed

Similar threads