Delphi編程調用指定的Windows程序

其中WinExec按鈕用于以WinExec函數來調用指定的Windows程序。ShellExecute按鈕用于以ShellExecute函數來調用指定的Windows程序。CreateProcess按鈕和TerminateProcess按鈕用于實現對被調用程序更全面的操作，前者用于調用指定的Windows程序，而后者則用于終止被調用的Windows程序。
    以WinExec函數的方式來調用指定的Windows程序的響應代碼如下：
    procedure TForm1.btnWinExecClick(Sender: TObject);
    begin
    WinExec(’Notepad.exe’,SW_MAXIMIZE);
    end;
    其中WinExec函數的第1個參數表示了被調用程序的路徑和名稱，第2個參數表示了程序的顯示方式。
    以ShellExecute函數的方式來調用指定的Windows程序的響應代碼如下：
    procedure TForm1.btnShellExecuteClick(Sender: TObject);
    begin
    ShellExecute(Application.Handle,’Open’,’NotePad.exe’,PChar(’C:\AutoExec.bat’),nil,SW_SHOWNORMAL);
    end;
    其中ShellExecute用于打開與指定文件關聯在一起的程序文件。第1個參數用于指定一個窗口的句柄；第2個參數指定了程序運行的類別，如’Open’或’Print’；第3個參數指定了想用關聯程序打印或打開的一個程序名或文件名；如果第3個參數中指定了一個可執(zhí)行文件，那么第4個參數就是傳遞給執(zhí)行程序的參數；第5個參數指定了可執(zhí)行程序的完整路徑。最后一個參數用于設定程序運行方式。
    下面來介紹利用CreateProcess函數和TerminateProcess函數如何實現對被調用程序更全面的操作。
    首先定義3個全局變量：
    PI:TProcessInformation;
    SI:TStartUpInfo;
    MyHandle:Thandle;
    利用CreateProcess函數調用指定程序的響應代碼如下：
    procedure TForm1.btnCreateProcessOpenClick(Sender: TObject);
    begin
    FillChar(SI,sizeof(SI),#0);
    with SI do
    begin
    cb:=sizeof(SI);
    dwFlags:=StartF_UsesTDHandles or STARTF_USESHOWWINDOW;
    lptitle:=nil;
    wShowWindow:=SW_Show;
    end;
    CreateProcess(PChar(’C:\WINNT\Notepad.exe’),
    nil,nil,nil,true,DETACHED_PROCESS,nil,nil,SI,PI);
    end;
    調用CreateProcess函數激活C:\WINNT\Notepad.exe程序后，把它的進程信息存儲在變量PI中，然后通過下面的語句來關閉本實例打開的C:\WINNT\Notepad.exe程序：
    procedure TForm1.btnCreateProcessCloseClick(Sender: TObject);
    begin
    MyHandle:=OpenProcess(PROCESS_ALL_Access, FALSE,PI.dwProcessId);
    TerminateProcess(MyHandle,0);
    end;