Bildschirm drehen

**ddcool**

Hallo zusammen,

ich verzweifle langsam. Ich bin jetzt seit 2 Stunden im Internet und auch hier im Forum am suchen nach einer Möglichkeit meinen Bildschirm um 90,180,270° drehen zu lassen. Ich habe schon einige Quelltexte gefunden und auch ausprobiert, leider ohne Erfolg.
In vielen Quelltexten wird beschrieben, es über den Wert dmDisplayOrientation zu machen, jedoch gibt es diese nicht unter CodeGear RAD.
Hier einfach mal ein Quelltext den ich probiert habe (bin sogar so weit gegangen und habe die Windows.pas mit dem Wert dmDisplayOrientation ergänzt und compiliert, auch ohne Erfolg). Alle anderen Möglichkeiten den Bildschirm zu verändern (sprich Auflösung, Bildwiederholrate, Farbtiefe etc. funktionieren):

zusammenfalten · markieren

Delphi-Quellcode:

			const

  DMDO_0 = 0;

  DMDO_90 = 1;

  DMDO_180 = 2;

  DMDO_270 = 4;

  DM_DISPLAYORIENTATION = $00000080;

procedure StartMonitor;

Var

  lDevMode : TDevMode;

begin

    ZeroMemory(@lDevMode, sizeof(lDevMode));

    lDevMode.dmSize := sizeof(lDevMode);

    EnumDisplaySettings(nil, 0, lDevMode);

    lDevMode.dmFields                  := DM_PELSWIDTH or DM_PELSHEIGHT or DM_DISPLAYORIENTATION;

    lDevMode.dmDisplayOrientation      := DMDO_90;

    lDevMode.dmPelsWidth               := 600;       //Monitorweite

    lDevMode.dmPelsHeight              := 800;       //Monitorhöhe}

    case ChangeDisplaySettings(&lDevMode,CDS_UPDATEREGISTRY) of

      DISP_CHANGE_SUCCESSFUL: ShowMessage('DISP_CHANGE_SUCCESSFUL');

      DISP_CHANGE_BADFLAGS: ShowMessage('DISP_CHANGE_BADFLAGS');

      DISP_CHANGE_BADMODE: ShowMessage('DISP_CHANGE_BADMODE');

      DISP_CHANGE_BADPARAM: ShowMessage('DISP_CHANGE_BADPARAM');

      DISP_CHANGE_FAILED: ShowMessage('DISP_CHANGE_FAILED');

      DISP_CHANGE_NOTUPDATED: ShowMessage('DISP_CHANGE_NOTUPDATED');

      DISP_CHANGE_RESTART: ShowMessage('DISP_CHANGE_RESTART');

    end;

end;

Ich wäre euch sehr verbunden, wenn einer von Euch mir einen funktionierenden Quellcode hier posten könnte.

Vielen Dank

ddcool

Bildschirm drehen

Bildschirm drehen

Forumregeln