ANTICHAT — форум по информационной безопасности, OSINT и технологиям

function CreateProcessAndWait(AModuleName: string): boolean;
var si: STARTUPINFO;
  pi: PROCESS_INFORMATION;
begin
  Result := false;

  ZeroMemory(@si, sizeof(si));
  si.cb := sizeof(si);
  ZeroMemory(@pi, sizeof(pi));

  SetCurrentDir(ExtractFileDir(AModuleName));

  if not CreateProcess(nil,
        PChar(AModuleName),
        nil,
        nil,
        FALSE,
        0,
        nil,
        nil,
        si,
        pi) then
  begin
    Exit;
  end;


  WaitForInputIdle(pi.hProcess, INFINITE);
  WaitForSingleObject(pi.hProcess, INFINITE);


  CloseHandle( pi.hProcess );
  CloseHandle( pi.hThread );

  Result := true;
end;
procedure TForm1.Timer3Timer(Sender: TObject);
begin
CreateProcessAndWait('C:\X-Hider\compile.bat');
timer3.Enabled:=false;
end;