精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>Windows API函数>>如何调用外部程序并等待其结束

主题:如何调用外部程序并等待其结束
发信人: zengxi()
整理人: windfire(2000-12-05 19:38:17), 站内信件
procedure TfrmMain.Button1Click(Sender: TObject);
var cmdStr:pchar;
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
begin
      cmdstr:=pchar('c:\windows\Notepad.exe');
      {建立进程并等待其结束}

      fillchar(StartupInfo,sizeof(StartupInfo),0);
      CreateProcess(nil,cmdstr,nil,nil,false,0,nil,nil,StartupInfo,Pro
cessInfo);
            With ProcessInfo do begin
                  CloseHandle(hThread);
                  WaitForSingleObject(hProcess, INFINITE);
                  CloseHandle(hProcess);
             end;
end;

--
------------------------------------ ///////////
---------------------------------- ///////////
--------------------------------- //////////
------------------------------- /////-/////
------------------------------ /////---/////
----------------------------- /////-----/////

※ 来源:.月光软件站 http://www.moon-soft.com.[FROM: 202.98.107.107]

[关闭][返回]