发信人: 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]
|
|