| Код |
function TfmMain.ExecAndWait(const FileName, Params: ShortString; ArcDir:string;
const WinState: Word): boolean; export;
var
StartInfo: TStartupInfo;
ProcInfo: TProcessInformation;
CmdLine: ShortString;
begin
{ Помещаем имя файла между кавычками, с соблюдением всех пробелов в именах Win9x }
CmdLine := '"' + Filename + '" ' + Params;
FillChar(StartInfo, SizeOf(StartInfo), #0);
with StartInfo do begin
cb := SizeOf(StartInfo);
dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
wShowWindow := WinState;
end;//with
try
Result := CreateProcess(nil, PChar( String( CmdLine ) ), nil, nil, false,
CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil,
PChar(ArcDir),StartInfo,ProcInfo);
except
result := false;
end;
{ Ожидаем завершения приложения }
if Result then begin
WaitForSingleObject(ProcInfo.hProcess, INFINITE);
{ Free the Handles }
CloseHandle(ProcInfo.hProcess);
CloseHandle(ProcInfo.hThread);
end;//if Result then begin
end;
|
| Код |
ExecAndWait(fmMain.sWinrar,
'a -df -ep $'+fmMain.sFilialName+'_'+FormatDateTime('YYYYMMDD_HHNNSS_zzz',now)+' @'+fmMain.GetSystemPath(WinTemp)+'ToSend.List',
fmMain.sOutFolder,
0);
|
| Код |
ExecAndWait(fmMain.sWinrar,
'M -ep -ed "'+sArcName+ '" "'+Dir+SearchRec.name+'"', sOutPhotoFolder,
0);
|
|
)