R3Pa4eK
Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
//**********************************************[7z]
procedure ZipPak(ArchType, Compression, OutFile, PakDir: string);
begin
if not(CreateProcess(@ISCreateProcessCallback, ExpandConstant('{tmp}\7z.dll'),'a ' + AddQuotes(ArchType)+''+AddQuotes(Compression)+''+AddQuotes(OutFile)+''+AddQuotes(PakDir)+'\*' + ExpandConstant('{app}'), FALSE, FALSE, WizardForm.Handle)) then exit;
ProgressBar1.Position:= ProgressBar1.Position +1;
end;
//**********************************************7z] |
