Display umschalten

[msickel]

Hallo,

ich habe folgenden Code hier gefunden,

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Var
  lDevMode : TDevModeA_new;
  lRes     : Cardinal;
begin
    FillChar(lDevMode, SizeOf(lDevMode), 0);

    lDevMode.dmSize                    := SizeOf(lDevMode);
    lDevMode.dmBitsPerPel              := 32;
    lDevMode.dmDisplayFrequency        := 85;     // alles hard kodiert für meinen 2. Monitor
    lDevMode.dmPelsWidth               := 1280;
    lDevMode.dmPelsHeight              := 1024;
    lDevMode.Dual.Monitor.dmPosition.x := 1280; // die Weite/Auflösung des primären Monitors bzw. Lage des Monitors in Relation zum primären Monitor mit 0,0 oben links
    lDevMode.Dual.Monitor.dmPosition.y := 0;
    lDevMode.dmFields                  := DM_BITSPERPEL Or
                                          DM_DISPLAYFREQUENCY Or
                                          DM_PELSWIDTH Or
                                          DM_PELSHEIGHT Or
                                          DM_POSITION;

    lRes := ChangeDisplaySettingsEx( PChar('\\.\DISPLAY2'),
                             TDevMode(lDevMode),
                             0,
                             CDS_UPDATEREGISTRY, 
                             0);

    If lres <> 0 Then
      ShowMessage('hat nicht geklappt');
end;

leider kommt es unter delphi 2009 hier zu einer Fehlermeldung, da ich nicht weiss was ich anpassen muss das es unter delphi 2009 compiliert wollte ich fragen ob mir jemand unter die Arme greifen kann.

Delphi-Quellcode:

lRes := ChangeDisplaySettingsEx( PChar('\\.\DISPLAY2'),
                             TDevMode(lDevMode),
                             0,
                             CDS_UPDATEREGISTRY, 
                             0);

Gruss Martin