Cara membuat pemanggil file exe dengan delphi 7

Cara membuat pemanggil file exe dengan delphi 7

Apa itu pemanggil file exe?

Pemanggil file exe adalah sebuah aplikasi yang saya buat dengan menggunakan delphi, aplikasi tersebut mempunyai sistem kerja memanggil file-file yang berekstensi exe, baik itu file yang terinstal maupun file portable yang ada pada komputer sobat seperti: ms word, excel, pemutar musik, browser dan lain-lain.

Baiklah sobat, kita langsung pada praktek cara membuat pemanggil file exe tersebut.

Komponen yang dibutuhkan adalah:

8 buah speedbutton ada di komponen alphaskin1 buah label  ada di palet standart8 buah png image, ini sobat harus membuatnya sesuaikan dengan speedbutton yang akan dibuat, karena dalam praktek saya membuat 8 speedbutton yang akan memanggil file exe

counter(li)MS.Wordcounter(li)Excelcounter(li)M.Accesscounter(li)Power Pointcounter(li)Windows media playercounter(li)Internet explorercounter(li)Mozilla firefoxcounter(li)Kalkulator

Maka saya membuat 8 png image tersebut, kalau anda kesulitan membuat, saya akan siapkan png image jadinya dalam source code yang akan saya share pada akhir artikel ini.

Langkah awal pembuatannya:

Pertama sobat buka delphi sobat lalu masukan 8 buah speedbutton dan 1 buah label, lalu ganti nama masing-masing speedbutton sesuai dengan nama file yang akan dipanggil agar lebih terlihat profesional. Setelah semuanya siap, sekarang kita masuk ketahap pengcodingan, pastikan sobat sudah memasukan uses Sellapi. 

1. Doble klik pada speedbutton excel lalu masukan koding berikut:

procedure TForm1.SpeedButton5Click(Sender: TObject);
begin ShellExecute(Application.handle, 'open', 'excel.exe', nil, nil,SW_ShowNormal);
end;

2. Doble klik pada speedbutton ms.word lalu masukan coding beikut:

procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
ShellExecute(Application.handle, 'open', 'Winword.exe', nil, nil,
SW_ShowNormal);
end; .

3. Doble klik pada speedbutton m.access lalu masukan coding berikut:

procedure TForm1.SpeedButton7Click(Sender: TObject);
begin
ShellExecute(Application.handle, 'open', 'ACCICONS.exe', nil, nil,
SW_ShowNormal);
end; .

4. Dobel klik pada speedbutton wmplayer lalu masukan coding berikut:

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
ShellExecute(Application.handle, 'open', 'wmplayer.exe', nil, nil,
SW_ShowNormal);
end; .

5. Doble klik pada speedbutton Internet Explorer lalu masukan coding berikut:

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
ShellExecute(Application.handle, 'open', 'iexplore.exe', nil, nil,
SW_ShowNormal);
end;

6. Doble klik pada speedbutton Kalkulator lalu masukan coding berikut:

procedure TForm1.SpeedButton8Click(Sender: TObject);
begin
ShellExecute(Application.handle, 'open', 'calc.exe', nil, nil,
SW_ShowNormal);
end; .

7. Doble klik pada speedbutton powerpoint lalu masukan coding berikut:

procedure TForm1.SpeedButton6Click(Sender: TObject);
begin
ShellExecute(Application.handle, 'open', 'POWERPNT.exe', nil, nil,
SW_ShowNormal);
end; .

8. Doble klik pada speedbutton Mozilla firefox lalu masukan coding berikut:

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
ShellExecute(Application.handle, 'open', 'firefox.exe', nil, nil,
SW_ShowNormal);
end; .

Fungsi dari coding diatas hanya memanggil file yang berada di drive C, atau hanya memanggil file installer, kalau sobat ingin memanggil file di drive lain yang sifatnya portable, maka sobat harus mengganti coding dengan contoh sebagai berikut:

shellexecute(handle,'open',PChar('nama file'),PChar('nama file silent-load '),NIL,SW_SHOW)
.

Itulah cara membuat pemanggil file exe yang bisa saya share kali ini, semoga bisa bermanfaat