Cara Membuka Dan Menutup Aplikasi Lain Dengan Delphi

Untuk postingan kali ini saya akan mencoba masih bermain dengan delphi yaitu bagaimana cara untuk membuka dan menutup suatu aplikasi dengan delphi,maksud nya misalkan kita akan membuka dan menutup aplikasi notepad hanya dengan menekan atau mengklik sebuah tombol.Ini hanya sebuah contoh saya membuka aplikasi notepad tentunya kita bisa membuka aplikasi yang lainnya dengan kode yang akan saya coba gunakan di bawah ini.

Penambahan ShellApi

Setelah saya coba membuka aplikasi delphinya disini untuk membuat suatu aplikasi dengan delphi apabila kita ingin membuka suatu aplikasi lain yaitu kita butuh pemanggilan function ShellExecute yang mana function tersebut ada di unit ShellApi,untuk itu kita perlu menambahkan unit ShellApi tersebut ke uses di aplikasi yang akan kita buat.

Untuk menambahkan unit ShellApi tersebut pada uses bisa kita tambahkan di uses yang berada di bawah interface atau bisa juga kita tambahkan uses di bawah implementation.

Penambahan Uses ShellApi dibawah Interface

Penambahan Uses ShellApi dibawah Implementation

Kode Membuka Aplikasi

Selanjutnya saya akan menambahkan dua buah komponen Button yang mana komponen Button1 apabila di klik maka aplikasi notepad akan tampil,dan untuk Button2 adalah untuk menutup notepad.

Sebelum ke pembuatan procedure untuk Button1 yaitu untuk membuka notepad kita harus tahu dahulu dimana letak atau path notepad berada ini sebagai contoh apabila kita ingin membuka notepad yang mana notepad tersebut berada pada C:\Windows\notepad.exe.

Kemudian setelah tahu letak atau path aplikasi notepad tersebut lanjut ke pembuatan procedure Button1 dimana disini saya menggunakan komponen Button1 maka saya coba klik 2X komponen Button1 tersebut dan saya coba tambahkan beberapa kode diprocedure tersebut,sehingga procedure dari Button1 menjadi seperti dibawah ini

procedure TForm1.Button1Click(Sender: TObject);
var
  app: String;
begin
  app := 'C:\Windows\notepad.exe';
  ShellExecute(Handle, 'open', PAnsiChar(app), Nil, Nil, SW_SHOWNORMAL);
end;

Kemudian saya lanjut ke pembuatan procedure untuk Button2 yang saya coba difungsikan untuk menutup aplikasi notepad yang telah dibuka caranya dengan mengklik 2X Button2 dan menambahkan beberapa kode didalamnya sehingga keseluhan dari kode procedure Button2 tersebut menjadi seperti dibawah ini

procedure TForm1.Button2Click(Sender: TObject);
var
  appH: HWND;
begin
  appH := FindWindow('Notepad', Nil);
  SendMessage(appH, WM_CLOSE, 0, 0);
end;

Selanjutnya setelah saya tambahkan kode tersebut diatas saya coba test dengan mengklik tombol Run atau menekan tombol F9 pada keyboard,kemudian mencoba mengklik Button1 dan Button2 untuk melihat hasilnya dari pemberian kode pada Buton1 dan Button2 berhasil apa tidaknya. 

Tes Aplikasi Open Close

Demikianlah untuk postingan kali ini sesuai dengan judul diatas semoga bermanfa'at dan bisa teman-teman kembangkan.

Salam Blogger and Happy Coding.