[Genius94]

Здравствуйте. Нужна Ваша помощь. Архивирую программно папку с помощью 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'; //имя архивного файла

а также может кто знает как целую папку закинуть в архив а не только файлы в ней.