Membuat Program Launcher dengan Delphi XE

Setelah di tulisan sebelumnya https://jaranguda.com/membuat-program-launcher-dengan-gambas/ kita menggunakan Gambas, maka sekarang kita akan mencoba membuat aplikasi yang sama, tentunya dengan menggunakan Delphi XE. Kita akan membuat program launcher untuk Registry Editor, Notepad, Task Manager dan WordPad Windows.

Bbuka Delphi Xe lalu klik New > VLC Forms Application – Delphi buat designnya seperti gambar dibawah ini

Tool Palette yang digunakan
4 TButton dan yang diubah adalah bagian Captionnya
klik dua kali pada RegEdit lalu tambahkan code berikut

ShellExecute(Handle, 'open', 'c:\Windows\regedit.exe', nil, nil, SW_SHOWNORMAL) ;

klik dua kali pada Notepad lalu tambahkan code berikut

ShellExecute(Handle, 'open', 'c:\Windows\notepad.exe', nil, nil, SW_SHOWNORMAL) ;

klik dua kali pada Task Manager lalu tambahkan code berikut

ShellExecute(Handle, 'open', 'C:\Windows\System32\taskmgr.exe', nil, nil, SW_SHOWNORMAL) ;

klik dua kali pada WordPad lalu tambahkan code berikut

ShellExecute(Handle, 'open', 'c:\Windows\write.exe', nil, nil, SW_SHOWNORMAL) ;

proses coding telah selesai, sekarang jalankan program yang baru dibuat dengan menekan tombol F9 di keyboard. Hasil program yang dijalankan seperti gambar dibawah ini

Last Updated on 26 January 2013