Menjalankan Aplikasi Lain dengan Delphi

Tahu software rocketdock? Itu dia aplikasi untuk menjalankan aplikasi lain misalnya microsoft word, excel, game, juga dokumen, dengan sekali klik tanpa perlu repot-repot lewat start>all programs>blah blah blah... cukup klik ikon dan terbukalah aplikasi yang kita mau.

Nah, sekarang kita akan coba buat aplikasi sederhana sejenis rocketdock dengan delphi. Delphi yang saya pakai versi 2009, tapi juga bisa dicoba di versi sebelumnya. Aplikasi ini berfungsi untuk memanggil program notepad, calculator, dan paint.




1) Buat project baru
2) Atur ukuran form, tambahkan 3 buah button, ubah captionnya sedemikian hingga seperti gambar di bawah

3) Dobelklik pada button "notepad", Isi dengan script berikut

procedure TForm1.Button1Click(Sender: TObject);
begin
  WinExec('C:\WINDOWS\system32\notepad.exe',SW_SHOWNORMAL);
end;

4) Lakukan hal yang sama pada dua tombol yang lain. Isikan kode berikut berturut-turut untuk "calculator" dan "paint"

procedure TForm1.Button2Click(Sender: TObject);
begin
  WinExec('C:\WINDOWS\system32\calc.exe',SW_SHOWNORMAL);
end;


procedure TForm1.Button3Click(Sender: TObject);
begin
  WinExec('C:\WINDOWS\system32\mspaint.exe',SW_SHOWNORMAL);
end;

5) Jalankan program anda dengan tekan tombol F9. Test satu persatu tombol itu.

Pada dasarnya, perintah yang digunakan adalah WinExec(alamat_aplikasi, show_mode);
Kali ini kita hanya menggunakan button sebagai ganti dari ikon. Anda bisa kembangkan sendiri program ini. Misalnya dengan menambah tombol baru, mengganti button dengan gambar, menambah beberapa hiasan sekenyang perut anda :D

Happy coding(Xhadow)