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