找到主窗,利用其handle。
另外结束目标进程的主线程也可以吧
DWORD GetWindowThreadProcessId(
HWND hWnd, // handle to window
LPDWORD lpdwProcessId // process identifier
);
另外结束目标进程的主线程也可以吧
DWORD GetWindowThreadProcessId(
HWND hWnd, // handle to window
LPDWORD lpdwProcessId // process identifier
);
TerminateProcess
GetWindowThreadProcessId
///////////////////////////////////////////////
procedure TForm1.Button1Click(Sender: TObject);
var
Hdle:THandle;
DW:DWORD;
begin
Hdle:=FindWindow(nil,'Outlook Express');
if Hdle<>0 then
begin
GetWindowThreadProcessId(Hdle,@DW);
if DW<>0 then
TerminateProcess(OpenProcess(PROCESS_TERMINATE,False,DW),$FFFFFFFF);
end;
end;