Delphi - Menutup aplikasi lain

Delphi7 adalah Aplikasi pembuat program aplikasi seperti aplikasi pengolahan data, dan aplikasi pendukung sistem kerja windows, contohnya seperti aplikasi untuk menutup aplikasi lain. 

Pada aplikasi yang akan kita buat ini, kita akan menutup aplikasi lain berdasarkan nama pada title bar di aplikasi tersebut.

Kode Menutup Aplikasi Lain dengan Delphi 7

Untuk dapat membuat aplikasi seperti itu, kita bisa menggunakan komponen TButton untuk mengakses kode perintah yang akan kita tambahkan di aplikasi. Kemudian ,sobat bisa tambahkan kode berikut pada even ONCLICK pada komponen TButton :

Procedure TForm1.Button1Click(Sender: TObject);

var Cari:HWND;

Begin

Cari:=FindWindow(nil,'Untitled Notepad');

if Cari<>0 then PostMessage(h,WM_CLOSE)

end;

Setelah menambahkan kode di atas, sobat bisa mengganti "Title Aplikasi" dengan title aplikasi target yang ingin kamu tutup.

Setelah itu kamu bisa coba jalankan aplikasi dengan klik tombol RUN, atau tombol F9 pada keyboard.

Itu saja tutorial singkat kali ini tentang cara membuat aplikasi untuk menutup aplikasi lain dengan Delphi 7.

Berbagi :