Sabtu, 14 Mei 2011

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_SHOWMINIMIZEDMenampilkan aplikasi secara minimal (berbentuk icon)
SW_SHOWMAXIMIZEDMenampilkan aplikasi dengan (ukuran) window maksimal
SW_SHOWNORMALMenampilkan 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
0Windows mengalami out of memory atau resources
ERROR_BAD_FORMATFile yang dijalankan bukan merupakan file aplikasi Windows
ERROR_FILE_NOT_FOUNDFile yang dijalankan tidak ditemukan
ERROR_PATH_NOT_FOUNDPath 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.

Tidak ada komentar:

Posting Komentar

Silahkan Poskan Komentar anda!