|
#1
|
|||
|
|||
архивация данных
Здравствуйте. Нужна Ваша помощь. Архивирую программно папку с помощью winrar, но вот меня смущает то что процесс архивации виден на экране.но мне хотелось бы чтоб этот процесс не отображался. вот как я архивирую данные.
Код:
sRarPsw:='PASSWORD'; //пароль для архива sFileName:='tools\*.txt'; //имя архивируемого файла sPathWinRAR := 'winRAR.exe';//где находиться WinRar.exe sFileNameRar:='log'; //имя архива без .rar sPathRar:='d:\'; //куда писать архивный файл FillChar( Si, SizeOf( Si ) , 0 ); with Si do begin cb := SizeOf( Si); dwFlags := startf_UseShowWindow; wShowWindow := 4; end; s:=sPathWinRAR+' a -ep1 -hp'+sRarPsw+' '+sPathRar+sFileNameRar+' '+sPathRar+sFileName; Createprocess(nil,PChar(s),nil,nil,false,Create_default_error_mode,nil,nil,si,p);//запускаем процесс архивирования Waitforsingleobject(p.hProcess,infinite); //и ждем его окончания sFileName:='TextOut.rar'; //имя архивного файла |
#3
|
|||
|
|||
архивация данных
Цитата:
|