Cara membuat pemanggil file exe dengan delphi 7

Tags
Halo sobat delphier, jumpa kembali dengan coretan coding delphi, kali ini saya akan berbagi cara membuat pemanggil file exe atau shellexecute dengan delphi, walau sifatnya hanya project dasar saja, tapi mudah-mudahan bisa menambah ilmu dan pengetahuan sobat tentang bahasa pemrograman delphi.

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.

Cara membuat pemanggil file exe dengan delphi 7

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

Komponen yang dibutuhkan adalah:

  • 8 buah speedbutton ada di komponen alphaskin
  • 1 buah label  ada di palet standart
  • 8 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
  1. MS.Word
  2. Excel
  3. M.Access
  4. Power Point
  5. Windows media player
  6. Internet explorer
  7. Mozilla firefox
  8. 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.

Related Post:

Silahkan berkomentar dengan sopan dan tidak meninggalkan link aktip.

Terima Kasih.

EmoticonEmoticon