jalankan aplikasi menggunakan delphi

untuk menjalankan aplikasi lain dari delphi ..!! kita bisa menggunakan fungsi bawaan dari delphi ..!

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


dalam fungsi itu terdapat dua parameter yaitu :

• path dan nama file yang akan di eksekusi 
• behavior window mode untuk aplikasi yang akan dibuka

1. SW_SHOWNORMAL atau 1    : untuk window mode normal
2. SW_SHOWMINIMIZED atau 2 : untuk window mode  minimized
3. SW_SHOWMAXIMIZED atau 3 : untuk window mode  maximized 

contoh penulisannya seperti ini  : 

procedure TForm1.Button1Click(Sender: TObject);

begin

   WinExec('C:\Windows\notepad.exe','SW_SHOWNORMAL');

end;

                 atau

 WinExec('C:\Windows\notepad.exe',1);   

untuk contoh projectnya silakan lihat dibawah ini : 

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; GroupBox1: TGroupBox; Snormal: TRadioButton; Smax: TRadioButton; Smin: TRadioButton; Button3: TButton; Button4: TButton; procedure FormActivate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure SnormalClick(Sender: TObject); procedure SmaxClick(Sender: TObject); procedure SminClick(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; jendela : integer; implementation {$R *.dfm} procedure TForm1.FormActivate(Sender: TObject); begin Snormal.Checked:=true; jendela:=1; // jendela normal end; procedure TForm1.SnormalClick(Sender: TObject); begin jendela:=1; // jendela normal end; procedure TForm1.SminClick(Sender: TObject); begin jendela:=2; // jendela minimize end; procedure TForm1.SmaxClick(Sender: TObject); begin jendela:=3; // jendela maximize end; procedure TForm1.Button1Click(Sender: TObject); begin WinExec('C:\Windows\notepad.exe',jendela); end; procedure TForm1.Button2Click(Sender: TObject); begin WinExec('C:\Program Files\Windows NT\Accessories\wordpad.exe',jendela); end; procedure TForm1.Button3Click(Sender: TObject); begin WinExec('C:\Windows\system32\cmd.exe',jendela); end; procedure TForm1.Button4Click(Sender: TObject); begin WinExec('C:\Windows\system32\mspaint.exe',jendela); end; end.

download source code