[nerZEROn]

Добрый день! Возможно ли через CreateProcess запустить .msi и .bat файлы? ShellExecute мне для этой цели не очень подходит, т.к. нужно дожидаться окончания выполнения запущенного файла.

[Aristarh Dark]

*.bat точно можно, я запускал вот так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86

procedure RunConsoleApplicationTime(CmdLine,Params:String;OutStrings:TStrings;TimeOut:DWORD); var   securityattributes: TSecurityAttributes;   startupinfo: TStartupInfo;   processinformation: TProcessInformation;   hPipeInputRead: THandle;   hPipeInputWrite: THandle;   hPipeOutputRead: THandle;   hPipeOutputWrite: THandle;   WaitResult:Cardinal;   AnsiBuf: TAnsiBuf;   CharBuf: TCharBuf;   dummy: Cardinal;   s:string; begin   securityattributes.nLength:=SizeOf(TSecurityAttributes);   securityattributes.lpSecurityDescriptor:=nil;   securityattributes.bInheritHandle:=True;   CreatePipe(hPipeInputRead, hPipeInputWrite, @securityattributes, 0);   CreatePipe(hPipeOutputRead, hPipeOutputWrite, @securityattributes, 0);   ZeroMemory(@startupinfo, SizeOf(TStartupInfo));   ZeroMemory(@processinformation, SizeOf(TProcessInformation));   with startupinfo do     begin       cb:=SizeOf(TStartupInfo);       dwFlags:=STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;       wShowWindow:=SW_HIDE;       hStdInput:=hPipeInputRead;       hStdOutput:=hPipeOutputWrite;       hStdError:=hPipeOutputWrite;     end;   OutStrings.BeginUpdate;   OutStrings.Append(CmdLine+' '+Params);   OutStrings.EndUpdate;   if CreateProcess(nil, PChar(CmdLine+' '+Params), nil, nil, True, CREATE_NEW_CONSOLE,     nil, PChar(ExtractFileDir(CmdLine)), startupinfo, processinformation) then     begin       WaitResult:=WaitForSingleObject(processinformation.hProcess, TimeOut);       if WaitResult=WAIT_TIMEOUT then         begin           if ReadFile(hPipeOutputRead, AnsiBuf, Length(AnsiBuf), dummy, nil) then             begin               AnsiBufToCharBuf(AnsiBuf, CharBuf, dummy);               OutStrings.BeginUpdate;               OutStrings.Text:=OutStrings.Text+Copy(CharBuf, 1, dummy);               if Pos(#8,OutStrings.Text)>0 then  //<---------                 begin                            //<---------                   s:=OutStrings.Text;            //<---------                   Delete(s,Pos(#8,s)-3,4);       //<---------                   OutStrings.Text:=s;            //<---------                 end;                             //<---------               OutStrings.EndUpdate;             end;           OutStrings.Append('Выход по таймауту');           TerminateProcess(processinformation.hProcess,0);           Sleep(10000);         end       else         begin           if ReadFile(hPipeOutputRead, AnsiBuf, Length(AnsiBuf), dummy, nil) then             begin               AnsiBufToCharBuf(AnsiBuf, CharBuf, dummy);               OutStrings.BeginUpdate;               OutStrings.Text:=OutStrings.Text+Copy(CharBuf, 1, dummy);               if Pos(#8,OutStrings.Text)>0 then  //<---------                 begin                            //<---------                   s:=OutStrings.Text;            //<---------                   Delete(s,Pos(#8,s)-3,4);       //<---------                   OutStrings.Text:=s;            //<---------                 end;                             //<---------               OutStrings.EndUpdate;             end;         end;       CloseHandle(processinformation.hProcess);     end   else     begin       OutStrings.BeginUpdate;       OutStrings.Append(SysErrorMessage(GetLastError));       OutStrings.EndUpdate;     end;   CloseHandle(hPipeInputWrite);   CloseHandle(hPipeInputRead);   CloseHandle(hPipeOutputWrite);   CloseHandle(hPipeOutputRead); end;

лишнее повыбрасываешь

[NumLock]

можно:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

var   si: STARTUPINFO;   pi: PROCESS_INFORMATION; begin   ZeroMemory(@si, SizeOf(STARTUPINFO));   si.cb:=SizeOf(STARTUPINFO);   si.dwFlags:=STARTF_USESHOWWINDOW;   si.wShowWindow:=SW_HIDE;   if not CreateProcess(nil, 'cmd /c "полный путь\file.msi"', nil, nil, False, 0, nil, nil, si, pi) then RaiseLastOSError;   WaitForSingleObject(pi.hProcess, INFINITE);   CloseHandle(pi.hThread);   CloseHandle(pi.hProcess); end;