Скачать: CL | DM;

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

← →
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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c