KillApp

[qamyoncu]

Merhabalar..

Kod: Tümünü seç

function KillApp(const sCapt: PChar) : boolean;
var AppHandle:THandle;
begin
AppHandle:=FindWindow(Nil, sCapt);
Result:=PostMessage(AppHandle, WM_QUIT, 0, 0);
end;

kodunu kullanarak Caption bilgisini aldığım pencereyi kapatabiliyorum Windows Internet Explorer hariç.. Bunun nedeni nedir nasıl kapatabilirim Windows Internet Explorer'i?

[quadr]

Kod: Tümünü seç

function KillApp(const sCapt: PChar) : boolean;
var 
  AppHandle:THandle;
  Tid, Pid: integer;
begin
  AppHandle:=FindWindow(Nil, sCapt);
  Tid := GetWindowThreadProcessid(AppHandle, @Pid);
  AppHandle := OpenProcess(PROCESS_ALL_ACCESS,False,Pid);
  TerminateProcess(AppHandle,0);
//Result:=PostMessage(AppHandle, WM_QUIT, 0, 0);
end;

kolay gelsin...

[qamyoncu]

Çok çok teşekkür ediyorum

Kolay gelsin