Cara menjalankan aplikasi lain menggunakan delphi 7

Tutorial kali ini adalah bagaimana menjalankan aplikasi lain dengan menggunakan aplikasi yang anda buat menggunakan delphi 7. perhatikan contoh script berikut :

procedure TForm1.ButtonRunClick(Sender: TObject);
begin
  // Menjalankan program yang dispesifikasikan pada
  // EditBox Edit1
  if ShellExecute(0, 'open', PChar('D:/test/project1.exe'), '', '',
      SW_SHOWNORMAL) <= 32 then
      ShowMessage('Gagal menjalankan program.' + #13 +
                  'Pastikan path benar');
end;

dan jangan lupa deklarasikan ShellAPI pada uses. Jika script di atas di eksekusi maka project1.exe akan dijalankan. perhatikan pada script tersebut menggunakan SW_SHOWNORMAL, yang artinya project1.exe akan ditampilkan secara normal, ada beberapa nilai parameter yang lain yakni

1. SW_HIDE
2. SW_NORMAL
3. SW_SHOWMINIMIZED
4. SW_SHOWMAXIMIZED
5. SW_MAXIMIZE
6. SW_SHOWNOACTIVATE
7. SW_SHOW
8. SW_MINIMIZE
9. SW_SHOWMINNOACTIVE
10. SW_SHOWNA
11. SW_RESTORE
12. SW_SHOWDEFAULT
13. SW_MAX

yang masing-masing memberikan efek yang berbeda-beda silahkan anda coba-coba dengan mengganti parameter tersebut untuk melihat perubahannya.