Запуск архиватора

← →
bokuto © (2005-09-15 17:40) [0]

Можно ли из Delphi запускать архиватор arj32 с параметрами
как в командной строке и как это сделать

← →
TUser © (2005-09-15 17:43) [1]

Вот пример запуска. Архиватора, кстати.
procedure ExtractFile; var si:_STARTUPINFOA; pi:_PROCESS_INFORMATION; s:string; i:integer; function RemoveFileExt(S:string):string; begin result:=copy(S,1,length(S)-length(extractFileExt(S))-1); end; begin // Extracting s:=GetSN(FileName); FileName:=copy(s,1,length(s)-length(ExtractFileExt(s))); FileName:=ExtractFilePath(ParamStr(0))+"temp\"+ExtractFileName(FileName); FExtracted:=not FileExists(FileName); if FExtracted then begin FillChar(si,sizeof(si),#0); si.cb:=sizeof(si); FillChar(pi,sizeof(pi),#0); s:=s+" "+ExtractFilePath(GetSN(FileName)); Synchronize(GetCom); s:=FTemp+" "+s; Synchronize(GetArch); s:=GetSN(FTemp)+" "+s; CreateProcess(nil,PAnsiChar(s),nil,nil,false,0,nil,nil,si,pi); WaitForSingleObject(pi.hProcess,20000); result:=true; CloseHandle(pi.hProcess); CloseHandle(pi.hThread); end; end;

Запуск архиватора Найти похожие ветки