Delphi編程調(diào)用指定的Windows程序

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