Home » , » Menjalankan Program Windows lainya (tutorial Delphi7)

Menjalankan Program Windows lainya (tutorial Delphi7)

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) <>
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.

0 komentar:

Posting Komentar