shellexecute auf zweitem bildschirm ausführen

[milchbrötchen]

hi,
ich möchte ein programm via shellexecute auf meinem zweiten monitor ausführen..

ich habs mal mit
ShellExecute(screen.Monitors[1].Handle,PChar('open'),PChar('c:\'),nil,nil,SW_MAXIMIZE); probiert, aber iwie funktioniert das nicht, das programm bzw in diesem fall der ordner wird auf dem hauptbildschirm geöffnet...
danke schonmal für eure beiträge..

[Bernhard Geyer]

IDEE:

Erstelle den Prozess mit CreateProzess, suche das Hauptfenster dieses Prozesses und setze per API-Befehle die Koordinaten neu.

[Tyrael Y.]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  self.left   := Screen.monitors[1].left;
  self.top    := Screen.monitors[1].top;
  self.Height := Screen.monitors[1].Height;
  self.Width  := Screen.monitors[1].Width;
end;

Das sollte auf dem zweiten Monitor eine Form erzeugen, die den gesamten Monitor einnimmt.

Zu deinem Shellexecute müsstest du den Monitorindex als Parameter übergeben und im FormCreate auswerten.

[milchbrötchen]

Zitat von Tyrael Y.:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  self.left   := Screen.monitors[1].left;
  self.top    := Screen.monitors[1].top;
  self.Height := Screen.monitors[1].Height;
  self.Width  := Screen.monitors[1].Width;
end;

mein programm läuft auch schon die ganze zeit auf dem zweiten bildschirm.. und sie nimmt auch den ganzen monitor ein... mit borderstyle=bsnone und so wie du es gemacht hast...

was genau meinst du mit Monitorindex als Parameter übergeben und im FormCreate auswerten?

[taaktaak]

Worum geht es hier denn nun?
Mit ShellExecute() startet man vorzugsweise fremde Programme, daher der Hinweis von Bernhard Geyer, einen Prozess zu starten. Die Hinweise mit FormCreate() kann ich (in diesem Zusammenhang) nicht so recht nachvollziehen.

[Tyrael Y.]

ShellExecute(nil,nil,PChar('c:\myProgram'),1,nil,SW_MAXIMIZE);

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var MonitorIndex: Integer;
begin
  if ParamCount > 1 then
  begin
    MonitorIndex = StrToIntDef(Params(1), 0);
    
    self.left   := Screen.monitors[MonitorIndex].left;
    self.top    := Screen.monitors[MonitorIndex].top;
    self.Height := Screen.monitors[MonitorIndex].Height;
    self.Width  := Screen.monitors[MonitorIndex].Width;
  end; 
end;

Mit dem vierten Parameter von Shellexecute kannst du zusätzliche Parameter an dein Programm mitgeben.
Im obigen Beispiel 1 für Monitor 2.
Im FormCreate von der MainForm guckst du, ob du einen Paramter zum Aufruf hattest und zeigst dann
deine Form auf dem Monitor auf dem die Anzeige gewünscht ist.

Edit:

Zitat von taaktaak:

Die Hinweise mit FormCreate() kann ich (in diesem Zusammenhang) nicht so recht nachvollziehen.

Nur weil er selbst das so gerne aufrufen wollte, hab ich für diesen Weg eine Lösung geschrieben.