procedure TForm1.Button1Click(Sender: TObject);
var si:_STARTUPINFOA;
pi:_PROCESS_INFORMATION;
begin
FillChar(si,sizeof(si),0);
si.cb:=sizeof(si);
if CreateProcess(nil,'c:\nc\nc.exe',nil,nil,False,0,nil,nil,si,pi)
then WaitForSingleObject(pi.hProcess,INFINITE);
end;
|