Здравствуйте. Нужна Ваша помощь. Архивирую программно папку с помощью winrar, но вот меня смущает то что процесс архивации виден на экране.но мне хотелось бы чтоб этот процесс не отображался. вот как я архивирую данные.
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | sRarPsw:= 'PASSWORD' ;
sFileName:= 'tools\*.txt' ;
sPathWinRAR := 'winRAR.exe' ;
sFileNameRar:= 'log' ;
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' ;
|
а также может кто знает как целую папку закинуть в архив а не только файлы в ней.