Cara Menjalankan Aplikasi Lain Di Delphi 7

Selamat siang agan-agan , postingan kali ini akan membahas mengenai Cara Menjalankan Aplikasi Lain Di Delphi 7.Maksudnya , kita akan membuat aplikasi yang nantinya bisa di gunakan untuk membuka aplikasi lain.Adakalanya kita membutuhkan cara seperti ini , misalnya untuk menginstall aplikasi lain yang di butuhkan oleh aplikasi yang kita buat.Okey bila masih belum gerti , kita contohkan saja.Buka borland delphi 7 anda lalu tambahkan 2 buah komponen button , 1 buah komponen edit dan 1 buah komponen

OpenDialog (terdapat pada pallete dialog).Susun komponen-komponen tersebut seperti gambar di bawah ini.

Tambahkan ShellAPI pada klausa uses.Double-klik button cari lalu tambahkan kode berikut

if OpenDialog1.Execute then
    begin
      Edit1.Text:=OpenDialog1.FileName;
    end;

Lalu double-klik button jalankan dan ketikan kode berikut.

if ShellExecute(0,'open',PChar(Edit1.Text),'','',SW_SHOWNORMAL) <=32 then
    begin
      ShowMessage('Aplikasi gagal di jalankan , pastikan pathnya benar');
    end;

Selesai , coba jalankan aplikasi anda.Lalu klik tombol cari dan pilih file exe yang akan di jalankan.Setelah itu klik button jalankan.Harusnya , aplikasi yang anda pilih akan tereksekusi.Yang perlu di ingat ialah , bahwa file exe yang di panggil harus memiliki path yang lengkap.Sekian tutorial kali ini semoga bermanfaat.

Simak Juga Tutorial Lainnya: