externes Programm startet in nicht sichtbarem Monitor

[zeras]

Ich habe folgenden Aufruf, mit dem ich ein fremdes Programm starte:

Delphi-Quellcode:

 FillChar(StartupInfo, SizeOf(StartupInfo), 0);
  FillChar(ProcessInfo, SizeOf(TProcessInformation), 0);
  StartupInfo.cb := SizeOf(StartupInfo);
  StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
  StartupInfo.wShowWindow := SW_SHOWNORMAL;
  StartupInfo.dwX := XPos;
  StartupInfo.dwY := YPos;
  if CreateProcess(nil,
       PChar(Filename + ' ' + para),
       nil,
       nil,
       False,
       0,
       nil,
       nil, //PChar(Para),
       StartupInfo,
       ProcessInfo) then
  begin

Das klappt ganz gut. Ich merke mir die Postion um beim nächsten Start ist alles OK.
Dann nimmt ein User seinen Laptop mit nach Hause, wo der Monitor rechts nebem dem Laptop und nicht links. Dann sehe ich zwar in der Taskleiste, dass sich das Programm geöffnet hat, aber es wird nicht angezeigt. Das gleiche passiert, wenn man einen Beamer angeschlossen hat und auf diesem Beamer das Programm nutzt. Wenn ich da den Beamer ausschalte, versucht Windows trotzdem, das Programm auf dem Beamer darzustellen.
Wie kann ich so etwas verhindern?

[DieDolly]

Ich habe für sowas das hier

Delphi-Quellcode:

procedure CheckFormPosition(const CustomForm: TCustomForm);
begin
 if (Screen.MonitorFromWindow(CustomForm.Handle, mdNull) = nil) and (Screen.MonitorCount > 0) then
  begin
   CustomForm.Top := (Screen.Monitors[0].Height - CustomForm.Height) div 2;
   CustomForm.Left := (Screen.Monitors[0].Width - CustomForm.Width) div 2;
  end;
end;

[himitsu]

Es gibt millionen Lösungen,

aber im Allgemeinen ist es besser das WorkareaRect anstatt dem BoundsRect (Top/Left/Width/Height) zu verwenden.

Delphi-Quellcode:

if not Assigned(Monitor) or Monitor.WorkareaRect.Contains(BoundsRect) then begin
  Self.Left := M.WorkareaRect.Left;
  Self.Top  := M.WorkareaRect.Top;
end;

Delphi-Quellcode:

var M := Self.Monitor;
if not Assigned(M) then
  M := Screen.Monitors[0];
if not M.WorkareaRect.Contains(Self.BoundsRect) then begin  // or WorkareaRect.IntersectsWith
  if Self.Left < M.WorkareaRect.Left then Self.Left := M.WorkareaRect.Left else Self.Left := M.WorkareaRect.Right  - Self.Width;
  if Self.Top  < M.WorkareaRect.Top  then Self.Top  := M.WorkareaRect.Top  else Self.Top  := M.WorkareaRect.Bottom - Self.Height;
  if Self.Width  > M.WorkareaRect.Width  then Self.Width  := M.WorkareaRect.Width;
  if Self.Height > M.WorkareaRect.Height then Self.Height := M.WorkareaRect.Height;
end;

....

[zeras]

Danke für eure Hinweise.
Werde am Wochenende mal probieren.

[himitsu]

ups, ein or not *.Contains meinte ich natürlich, nicht nur or *.Contains