DB
Size: a a a
DB
YA
AZ
DB
YA
AZ
DB
AZ
DB
DB
function WinExec32AndWait(Cmd: string; const CmdShow: Integer): Cardinal;
var
StartupInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
begin
Result := Cardinal($FFFFFFFF);
ResetMemory(StartupInfo, SizeOf(TStartupInfo));
ResetMemory(ProcessInfo, SizeOf(ProcessInfo));
StartupInfo.cb := SizeOf(TStartupInfo);
StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
StartupInfo.wShowWindow := CmdShow;
UniqueString(Cmd);//in the Unicode version the parameter lpCommandLine needs to be writable
if CreateProcess(nil, PChar(Cmd), nil, nil, False, NORMAL_PRIORITY_CLASS,
nil, nil, StartupInfo, ProcessInfo) then
begin
WaitForInputIdle(ProcessInfo.hProcess, INFINITE);
if WaitForSingleObject(ProcessInfo.hProcess, INFINITE) = WAIT_OBJECT_0 then
begin
if not GetExitCodeProcess(ProcessInfo.hProcess, Result) then
Result := Cardinal($FFFFFFFF);
end;
CloseHandle(ProcessInfo.hThread);
CloseHandle(ProcessInfo.hProcess);
end;
end;
DB
VA
FileName := TempDir + '\stream.data';
ArchiveFileName := TempDir + '\stream.7z';
для начала сделайте уникальные имена временным файламYA
YA
OT
VA
VA