Thema: Delphi 3 Monitore verwalten

Einzelnen Beitrag anzeigen

blackfin
(Gast)

n/a Beiträge
 
#7

AW: 3 Monitore verwalten

  Alt 27. Aug 2010, 14:47
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
  Mit Zitat antworten Zitat