W jaki sposób zamknąć internet explorer mając jego Handle.
Ne działa
SendMessage(Handle, WM_QUIT, 0, 0) (czy tam WM_CLOSE nie pamiętam dop. zxc)
a SendMessage(uchwyt_okna, WM_DESTROY, 0, 0) zawiesza przeglądarkę.
0
0
nie jestem pewnien ale moze WM_CLOSE?
albo zmien sendmessage na postmessage?
0
uses TLHelp32
Function Kill(Const Nazwa:String):Boolean;
Var Uchwyt:tHandle;
Proces:tProcessEntry32;
Begin
Uchwyt:=CreateToolHelp32SnapShot(TH32CS_SNAPALL,0);
Proces.dwSize:=SizeOf(Proces);
Result:=False;
If Integer(Process32First(Uchwyt,Proces))<>0 Then
Repeat
If AnsiUpperCase(ExtractFileName(Proces.szExeFile))=Nazwa Then
Result:=KillProcess(Proces.th32ProcessID);
Until Integer(Process32Next(Uchwyt,Proces))=0;
CloseHandle(Uchwyt);
End;
//uzycie
procedure TMainFrm.Button1Click(Sender: TObject);
begin
Kill('IEXPLORE.EXE');
end;
Made by Szymek