Kør setup.exe fra Delphi og vent til endt installation - How?

Prøv den her:

function ExecuteAndWait(const aFileName: TFileName; nCmdShow: Integer): Boolean;

  function doExecAndWait(FileName, Parameter: string; nCmdShow: Integer): Boolean;
  var
    StartupInfo: TStartupInfo;
    ProcessInfo: TProcessInformation;
    Res: Cardinal;
  begin
    FillChar(StartupInfo, SizeOf(StartupInfo), #0);
    StartupInfo.cb := SizeOf(StartupInfo);
    StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
    StartupInfo.wShowWindow := nCmdShow;

    if not CreateProcess(nil, Pchar(FileName + #32 + '"' + Parameter + '"'), nil, nil, False, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo, ProcessInfo) then
      Res := DWORD(-1)
    else
    begin
      while WaitforSingleObject(ProcessInfo.hProcess, 500) = WAIT_TIMEOUT do
        Application.ProcessMessages;

      GetExitCodeProcess(ProcessInfo.hProcess, Res);
      CloseHandle(ProcessInfo.hProcess);
      CloseHandle(ProcessInfo.hThread);
    end;
    Result := Res = 0;
  end;
var
  FileName, FileDir: TFileName;
  Res: string;
begin
  FileName := ExtractFileName(aFileName);
  FileDir := ExtractFilePath(aFileName);
  SetLength(Res, MAX_PATH);
  FindExecutable(pointer(FileName), pointer(FileDir), pointer(Res));
  SetLength(RES, Pred(Pos(#0, Res)));
  Result := doExecAndWait(RES, aFileName, SW_SHOWNORMAL);
end;

Prøv et af forslagene på nedenstående sider:

http://www.swissdelphicenter.com/en/showcode.php?id=1333
http://www.swissdelphicenter.com/en/showcode.php?id=978
http://www.swissdelphicenter.com/en/showcode.php?id=93

Uha I er hurtige. :o) Og det virker! Der er ikke et øje tørt.

Jeg brugte et af dine links Snowball, men jeg er overbevist om, at borrisholt's også virker. Så I deler.

Mange tak for hjælpen.

snowball>>08:11:23 slået med 3 sekunder !!!

Jens B

Måske du skulle ændre navn til slowball ? (Thi hi)

Så do' ;)