Programm im Hintergrund starten

[hitzi]

Hier ist der Code. Der stammt von himitsu aus dem Post:

Delphi-Quellcode:

function Exec(Filename, Params: String;
                     WindowState: Word = SW_SHOWNORMAL): boolean;
var
  {$IFDEF UNICODE} ShExecInfoW: SHELLEXECUTEINFOW; {$ENDIF}
  ShExecInfoA: SHELLEXECUTEINFOA;
begin
  Result := false;
  if (Filename = '') or not FileExists(FileName) then
    exit;
  {$IFDEF UNICODE}
  if (Win32Platform = VER_PLATFORM_WIN32_NT) then
  begin
    ShExecInfoW.Wnd          := GetForegroundWindow;
    ShExecInfoW.cbSize       := SizeOf(SHELLEXECUTEINFOW);
    ShExecInfoW.fMask        := SEE_MASK_DEFAULT;
    ShExecInfoW.lpVerb       := 'open';
    ShExecInfoW.lpFile       := PWideChar(WideString(Filename));
    ShExecInfoW.lpParameters := PWideChar(WideString(Params));
    ShExecInfoW.lpDirectory  := PWideChar(WideString(ExtractFileDir(Filename)));
    ShExecInfoW.nShow        := WindowState;
    Result := ShellExecuteExW(@ShExecInfoW);
  end
  else
  {$ENDIF}
  begin
    ShExecInfoA.Wnd          := GetForegroundWindow;
    ShExecInfoA.cbSize       := sizeof(SHELLEXECUTEINFOA);
    ShExecInfoA.fMask        := SEE_MASK_DEFAULT;
    ShExecInfoA.lpVerb       := 'open';
    ShExecInfoA.lpFile       := PAnsiChar(AnsiString(Filename));
    ShExecInfoA.lpParameters := PAnsiChar(AnsiString(Params));
    ShExecInfoA.lpDirectory  := PAnsiChar(AnsiString(ExtractFileDir(Filename)));
    ShExecInfoA.nShow        := WindowState;
    Result := ShellExecuteExA(@ShExecInfoA);
  end;
end;

//Aufruf:

Exec('c:\test\test.lnk', '', SW_MINIMIZE); //startet ganz normal, d.h. Programmfenster ist nach dem Start sichtbar
Exec('c:\test\test.lnk', '', SW_SHOWMINNOACTIVE); //startet das Programm minimiert, aber es treten die im ersten Post gezeigten Darstellungsfehler auf

[EDIT] Oh Mann ... ich hab immer an der falschen Stelle gesucht. Das Problem ist nicht der Code zum minimierten Starten, sondern der Code zum Anzeigen des externen minimierten Fensters. Starte ich das Programm mit ShellExecute und SW_SHOWMINNOACTIVE wird es minimiert gestartet und lässt auch den Focus beim aktiven Programm. Hole ich nun das Fenster mit dem folgenden Code hoch:

Delphi-Quellcode:

ShowWindow(fHandle, SW_SHOW); //das Handle wird vorher mit GetWindow() ermittelt
    ShowWindow(GetWindow(fHandle, GW_OWNER), SW_SHOW);

dann wird das Fenster mit Darstellungsfehlern angezeigt. Hole ich dagegen das Programm nach dem Programmstart das erste Mal durch einen Klick in der Taskbar wieder hoch, gibt es keine Darstellungsfehler. Nach diesem manuellen Wiederherstellen des Fenster kann ich es auch wieder minimieren und problemlos mit dem gerade genannte Code wieder nach oben holen, ohne dass irgendwelche Darstellungsfehler auftreten. Wo könnte hier das Problem liegen?