3 Monitore verwalten

[blackfin]

Zitat:

will ja nur die windows funktionen die schon vorhanden sind über einen befehl ausführen vll gibt es ja da eine shellexecute funktion für oder ähnliches

Das geht auch über UltraMon-Scripting:

Zitat:

Für fortgeschrittene Benutzer: Sie können UltraMon Features in Ihren eigenen VBScript, JScript oder anderen Windows Script Dateien benutzen.

Das folgende Beispiel in VBScript aktiviert oder deaktiviert den zweiten Monitor:

Const POS_ALL = &H7

Set sys = CreateObject("UltraMon.System")
Set mon = sys.Monitors("2")

If mon.Enabled = True Then
sys.SavePositions POS_ALL
mon.Enabled = False
sys.ApplyMonitorChanges
Else
mon.Enabled = True
sys.ApplyMonitorChanges
sys.RestorePositions POS_ALL
End If

[mkinzler]

Das Beispiel sollte sich auch problemlos nach Delphi übertragen lassen

[sportkeks]

hm naja mit meiner version geht es iwie nicht denke mal es liegt daran das ich die kostenlose version hab
könnte mir mal einer n kleines beispiel machen wie ich das in delphi umsetzen kann ? bin in delphi nicht so der pro was sowas angeht.

[himitsu]

Ich würde das Beispiel aus Post #7 erstmal so übersetzt.

Delphi-Quellcode:

uses ComObj;

const POS_ALL = $07;
var sys, mon: Variant{IDispatch};
begin
  sys := CreateOleObject('UltraMon.System');
  mon := sys.Monitors('2');
  if mon.Enabled then begin
    sys.SavePositions(POS_ALL);
    mon.Enabled := False;
    sys.ApplyMonitorChanges;
  end else begin
    mon.Enabled := True;
    sys.ApplyMonitorChanges;
    sys.RestorePositions(POS_ALL);
  end;
end;

Dieses scheint wohl den 2. Monitor umzuschalten (an/aus),
aber k.A. ob dieses so funktioniert.

[blackfin]

Man muss vorher halt noch die COM-Library als Typ-Bibliothek in Delphi importieren und damit den Wrapper erzeugen, dann könnte das funktionieren.

[himitsu]

Nö nö, geht anscheinend auch so.

Delphi-Quellcode:

sys := CreateOleObject('UltraMon.System');
sys.SavePositions(POS_ALL);
sys.ApplyMonitorChanges;
sys.RestorePositions(POS_ALL);

Dieses läuft ohne Mucken durch ... nur der Rest geht nicht, vermutlich da ich nur einen Monitor hab.

[sportkeks]

daran scheitert es bei mir schon da gibs nen exception

Code:

  mon := sys.Monitors('2');

ich habs auch mit '1' versucht geht ebenfalls nicht

[sportkeks]

Hat sich erledigt hab in einem anderen Forum erfahren das windows bereits eine versteckte funktion hat mit der sich mein Problem in luft aufgelöst hat danke für eure hilfe leute
Gruß Sporkeks