怎样通过程序关闭一个正在运行中的应用程序 (200分)

jarm · 2002-09-06

procedure TForm1.Button1Click(Sender: TObject); var   handle: integer; begin   handle := findwindow(nil,'myproject');   PostMessage(handle,WM_CLOSE,0,0);//应用程序会弹出一个是与否的对话框   EnumChildWindows(handle,@EnumerateChildWindows,0)//这里得不到“是”按钮得句柄，   因此没办法给“是”按钮发送消息。 end; function EnumerateChildWindows(hWnd: HWND; lParam: LPARAM): BOOL; var    ClassName: Array[0..255] of char;  // this holds the class name of our child windows begin    {get the class name of the given child window}    GetClassName(hWnd,ClassName,255);    ShowMessage(ClassName);    Result:=TRUE; end;

cbdiy · 2002-09-06

上面的代码怎么啦，关不了用这个。 procedure ChePortProcess; var   hSnapshot: THandle;   ProcessEntry: TProcessEntry32;   hProcess: THandle;   sFileName: string;   iProcessID: Integer;   iOK:Boolean; begin    try       hSnapshot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);       ProcessEntry.dwSize := SizeOf(TProcessEntry32);       iOK := Process32First(hSnapshot, ProcessEntry);       repeat         sFileName := ExtractFileName(ProcessEntry.szExeFile);    //進程使用的EXE         if sFileName='RavProxy.exe' then                       //瑞星杀毒         begin            iProcessID:=ProcessEntry.th32ProcessID;                             //進程號            TerminateProcess(OpenProcess(PROCESS_TERMINATE,BOOL(0),iProcessID),0);   //杀死该进程         end;       until (not Process32Next(hSnapshot, ProcessEntry));       CloseHandle(hSnapshot);   except   end; end;

aq100 · 2002-09-06

cbdiy说的没错 不过上面的代码一定要引用tlhelp32单元

jarm · 2002-09-06

直接杀进程是可以，但我担心应用程序会有些东西没有正常释放而带来不好的影响， 而且这个应用程序是一个后台程序，24小时都在不停运行着，我只是写个程序去定时 关闭它罢了

cbdiy · 2002-09-06

是的。

xianjun · 2002-09-06

>  EnumChildWindows(handle,@EnumerateChildWindows,0)//这里得不到“是”按钮得句柄， “是”在另外一个窗体上，你要先FindWindow到那个对话框的Handle

cg1120 · 2002-09-06

uses   Tlhelp32; function KillTask(ExeFileName: string): Integer; const   PROCESS_TERMINATE = $0001; var   ContinueLoop: BOOL;   FSnapshotHandle: THandle;   FProcessEntry32: TProcessEntry32; begin   Result := 0;   FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);   FProcessEntry32.dwSize := SizeOf(FProcessEntry32);   ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);   while Integer(ContinueLoop) <> 0 do   begin     if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =       UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =       UpperCase(ExeFileName))) then       Result := Integer(TerminateProcess(                         OpenProcess(PROCESS_TERMINATE,                                     BOOL(0),                                     FProcessEntry32.th32ProcessID),                                     0));      ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);   end;   CloseHandle(FSnapshotHandle); end; procedure TForm1.Button1Click(Sender: TObject); begin   KillTask('notepad.exe'); end; { For Windows NT/2000/XP } procedure KillProcess(hWindowHandle: HWND); var   hprocessID: INTEGER;   processHandle: THandle;   DWResult: DWORD; begin   SendMessageTimeout(hWindowHandle, WM_CLOSE, 0, 0,     SMTO_ABORTIFHUNG or SMTO_NORMAL, 5000, DWResult);   if isWindow(hWindowHandle) then   begin     // PostMessage(hWindowHandle, WM_QUIT, 0, 0);     { Get the process identifier for the window}     GetWindowThreadProcessID(hWindowHandle, @hprocessID);     if hprocessID <> 0 then     begin       { Get the process handle }       processHandle := OpenProcess(PROCESS_TERMINATE or PROCESS_QUERY_INFORMATION,         False, hprocessID);       if processHandle <> 0 then       begin         { Terminate the process }         TerminateProcess(processHandle, 0);         CloseHandle(ProcessHandle);       end;     end;   end; end; procedure TForm1.Button2Click(Sender: TObject); begin   KillProcess(FindWindow('notepad',nil)); end;

jarm · 2002-09-06

继续。。。。

jarm · 2002-09-06

有另一种方法可以强行退出 procedure TForm1.Button1Click(Sender: TObject); var   handle: integer; begin   handle := findwindow(nil,'myproject');   PostMessage(handle,WM_QUIT,0,0);//直接退出，不知这样做会不会把应用程序里的东西     正常释放 end;

独帅 · 2002-09-06

procedure TForm1.Button1Click(Sender: TObject); var   h, hi: HWND;   tmBegin: TTime; begin   hi:= 0;   h:= FindWindow('TMainForm', 'MyPrj');   //这样可以强行退出，但是非正常退出   //if h > 0 then PostMessage(h, WM_QUIT, 0, 0);   if h > 0 then PostMessage(h, WM_CLOSE, 0, 0)//告诉它要退出   else Exit;//没找到你的程序   tmBegin := TTime(Now);   while (hi <= 0) and (StrToInt(FormatDateTime('s', TTime(Now) - tmBegin)) <= 5) do   begin       //延时5秒钟，在这段时间内查找“是与否的对话框”     //'Notice'是对话框的标题     hi := FindWindow(PChar(GlobalAddAtom(MAKEINTATOM($00008002))), 'Notice');     Application.ProcessMessages;   end;   if hi <= 0 then Exit;过了5秒钟还没找到“是与否的对话框”就退出   //查找“是”按钮，如果是别的形式的对话框，自己修改好了   hi := FindWindowEx(hi, 0, 'Button', '是(&Y)');   //在“是”按钮上面点了一下   SendMessage(hi, BM_CLICK, 0, 0); end;

独帅 · 2002-09-06

上面延时的原因： 你调用PostMessage后立即调用了EnumChildWindows， 而这个时候目标程序有可能还没有弹出这个对话框，当然找不到了 如果过了5秒钟还找不到的话，那一般是没戏了...

jarm · 2002-09-06

多人接受答案了。

怎样通过程序关闭一个正在运行中的应用程序 (200分)

jarm

Unregistered / Unconfirmed

cbdiy

Unregistered / Unconfirmed

aq100

Unregistered / Unconfirmed

jarm

Unregistered / Unconfirmed

cbdiy

Unregistered / Unconfirmed

xianjun

Unregistered / Unconfirmed

cg1120

Unregistered / Unconfirmed

jarm

Unregistered / Unconfirmed

jarm

Unregistered / Unconfirmed

独帅

Unregistered / Unconfirmed

独帅

Unregistered / Unconfirmed

jarm

Unregistered / Unconfirmed

Similar threads