Menjalankan aplikasi Windows lainnya

Untuk menjalankan aplikasi Windows lainnya dari program Anda, Anda bisa menggunakan salah satu fungsi Windows API, yaitu WinExec. Adapun deklarasi dari fungsi WinExec adalah sebagai berikut :


function WinExec (lpCmdLine : PChar; uCmdShow : integer) : integer; 



Parameter pertama merupakan nama file *.exe yang akan dijalankan beserta pathnya.
Parameter kedua menunjukkan bagaimana aplikasi tersebut dijalankan. Parameter ini dapat bernilai :

Parameter Arti SW_SHOWMINIMIZED Menampilkan aplikasi secara minimal (berbentuk icon) SW_SHOWMAXIMIZED Menampilkan aplikasi dengan (ukuran) window maksimal SW_SHOWNORMAL Menampilkan aplikasi dengan window normal * Ada sembilan nilai parameter lainnya yang dapat Anda lihat pada referensi Windows API pada bagian ShowWindow

Fungsi WinExec ini akan mengembalikan nilai lebih besar dari 31 jika aplikasi berhasil dijalankan. Sedangkan bila gagal, nilai yang dikembalikan kurang dari atau sama dengan 31. Detail dari nilai kembalian adalah :

Nilai Kembalian Arti 0 Windows mengalami out of memory atau resources ERROR_BAD_FORMAT File yang dijalankan bukan merupakan file aplikasi Windows ERROR_FILE_NOT_FOUND File yang dijalankan tidak ditemukan ERROR_PATH_NOT_FOUND Path file salah

Contoh berikut mungkin akan memperjelas Anda.


procedure TForm1.Button1Click(Sender: TObject);
begin
     if (WinExec ('C:\Windows\notepad.exe',
       SW_SWOWMAXIMIZED) < 32) then
       MessageDlg ('Gagal menjalankan Notepad',
       mtError, [mbOK],0);
end;


Pada contoh di atas, pada saat pemakai mengklik Button1 maka program akan menjalankan file Notepad.exe yang terletak di C:\Windows.




back to tutorial delphi home....