Запуск архиватора
bokuto © (2005-09-15 17:40:00)
Можно ли из Delphi запускать архиватор arj32 с параметрами
как в командной строке и как это сделать
TUser (2005-09-15 17:43:00) [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;
Наверх 
ЧАТ |
Орешник |
|
