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.