zamknąć Internet Explorer

0

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

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

1 użytkowników online, w tym zalogowanych: 0, gości: 1