Procedure CrProcess(FileName, S, Dir, WindowName: String);

// © Song

Var SeInfo: TShellExecuteInfo;

   ExitCode: DWord;

Begin

 FillChar(SEInfo,SizeOf(SEInfo),0);

 With SEInfo Do

  Begin

   cbSize:=SizeOf(TShellExecuteInfo);

   fmask:=SEE_MASK_NOCLOSEPROCESS;

   Wnd:=Application.Handle;

   lpFile:=PChar('"'+FileName+'"');

   lpParameters:=PChar(S);

   lpDirectory:=nil;

    { Можете использовать другие константы, если хотите, чтобы выполнение процесса было видно }

   nShow:=SW_HIDE;

  End; {With}

 IF ShellExecuteEx(@SEInfo) then

  Repeat

   Application.ProcessMessages;

   GetExitCodeProcess(SEInfo.hProcess,ExitCode);

  Until(FindWindow(nil,PChar(WindowName))<>0) or

       (ExitCode<>STILL_ACTIVE) or Application.Terminated else MessageDlg('Ошибка создания внешнего процесса. Код ошибки: '+SysErrorMessage(GetLastError),mtError,[mbAbort],0);

 CloseHandle(SEInfo.hProcess);

 IF FindWindow(nil,PChar(WindowName))<>0 then

  Begin

   SendMessage(FindWindow(nil,PChar(WindowName)),WM_CLOSE,0,0);

   While FindWindow(nil,PChar(WindowName))<>0 Do Application.ProcessMessages;

  End; {IF}

End;

// заархиировать

CrProcess('путь_к_архиваору_rar','a -r0 -m5 '+'имя_архива'+#32+'имя_каталога'+'*.*',TempPath,'(Сеанс завершен) - Rar');

 

// разархивировать

CrProcess('путь_к_архиваору_rar','x -y '+'имя_архива'+#32+'каталог_куда_разархивировать','(Сеанс завершен) - Rar');

function ExecAndWait(const FileName, Params: ShortString; const WinState: Word): boolean; export;

var

  StartInfo: TStartupInfo;

  ProcInfo: TProcessInformation;

  CmdLine: ShortString;

begin

  { Помещаем имя файла между кавычками, с соблюдением всех пробелов в именах Win9x }

  CmdLine := '"' + Filename + '" ' + Params;

  FillChar(StartInfo, SizeOf(StartInfo), #0);

  with StartInfo do

  begin

    cb := SizeOf(StartInfo);

    dwFlags := STARTF_USESHOWWINDOW;

    wShowWindow := WinState;

  end;

  Result := CreateProcess(nil, PChar( String( CmdLine ) ), nil, nil, false,

                          CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil,

                          PChar(ExtractFilePath(Filename)),StartInfo,ProcInfo);

  { Ожидаем завершения приложения }

  if Result then

  begin

    WaitForSingleObject(ProcInfo.hProcess, INFINITE);

    { Free the Handles }

    CloseHandle(ProcInfo.hProcess);

    CloseHandle(ProcInfo.hThread);

  end;

end;

ExecAndWait( 'C:\windows\calc.exe', '', SH_SHOWNORMAL)