Программная архивация данных, не отображать процесс на экране

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'; //имя архивного файла

wShowWindow := 4;
 
замени на
 
wShowWindow := 0;

function WinExecAndWait32(CommandLine: string; ShowWindow: Word): DWORD;
var
  zAppName: array[0..512] of Char;
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
begin
  StrPCopy(zAppName, CommandLine);
  FillChar(StartupInfo, Sizeof(StartupInfo), #0);
  StartupInfo.cb := Sizeof(StartupInfo);
  StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
  StartupInfo.wShowWindow := ShowWindow;
  if not CreateProcess(nil,
    zAppName,             { pointer to command line string }
    nil,                  { pointer to process security attributes }
    nil,                  { pointer to thread security attributes }
    False,                { handle inheritance flag }
    CREATE_NEW_CONSOLE or { creation flags }
    NORMAL_PRIORITY_CLASS,
    nil,                  { pointer to new environment block }
    nil,                  { pointer to current directory name }
    StartupInfo,          { pointer to STARTUPINFO }
    ProcessInfo)          { pointer to PROCESS_INF }
  then
    Result := DWORD(-1)   { failed, GetLastError has error code }
  else
  begin
     WaitForSingleObject(ProcessInfo.hProcess, infinite);
     GetExitCodeProcess(ProcessInfo.hProcess, Result);
     CloseHandle(ProcessInfo.hProcess);
     CloseHandle(ProcessInfo.hThread)
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
   WinExecAndWait32('C:\Program Files\Winrar\winrar.exe a -r -ep1 -hpeklmn -ibck -y D:\l\xxx.rar D:\l\*', 0);
end;