Sabtu, 24 Oktober 2009

Delphi - Menutup aplikasi lain

kode berikut di gunakan untuk menutup aplikasi lain dengan delphi berdasar title aplikasi yang ada pada titlebar:



Procedure TForm1.Button1Click(Sender: TObject);
var Cari:HWND;
Begin
Cari:=FindWindow(nil,'Title Aplikasi');
if Cari<>0 then PostMessage(h,WM_CLOSE)
end;

Ganti "Title Aplikasi" dengan title aplikasi yang ada pada titlebar.

.

Search