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

als erstes fällt mir auf das du gar nicht prüfst ob EnumDisplaySettings erfolgreich ist. Und zum anderen glaube ich das nicht jede Grafikkarte dies beherscht.

Jo ersteres ist richtig. Ist ja aber auch nur einer von vielen Quelltexten die ich erfolglos probiert habe.
Zweiteres ist mir auch klar jedoch habe ich ein Gerät welches diese Funktion unterstützt. Andere Programme im Netz machen das auch einwandfrei, nur die sind ja leider nicht OpenSource. Ich möchte diese Funktion jedoch aus einem eingenen Programm aus starten, weil 1. Muss das ganze nachher auf 300 Rechner passieren und was mit einem Kostenpflichtigen Programm aus dem Internet nur mit viel Aufwand auf die 300 Geräte gebracht werden kann und 2. würden die Lizenzen für so ein Programm zu teuer werden => Selber proggen

welche Fehlermeldung bekommst du beim setzen?
Bei ChangeDisplaySettings im MSDN finde ich nirgends DM_DISPLAYORIENTATION
Folglich würde ich behaupten das es über diese Funktion wohl nicht funktioniert.

Und bei EnumDisplaySettings solltest du ENUM_CURRENT_SETTINGS übergeben.

Das ist es ja ich bekomme gar keine Fehlermeldung.
Alle deine Beispiele habe ich bereits ausprobiert, leider ohne erfolg.
Vielleicht hat ja jemand schon einen funktionierenden Quelltext auf seinem Rechner, den er mir zur Verfügung stellen kann.

ich denke mit den obigen funktionen wird es nicht funktionieren denn diese beachten eben die orientation nicht (zumindest laut msdn)

Tja ich habe leider in der MSDN auch nichts brauchbares gefunden. Immer nur für WinCE.
Vielleicht hat hier ja schon jemand mal so einen Code geschrieben oder in seinem Code-Archiv. Wäre echt klasse.

Danke ddcool

Also ich habe jetzt mal das Samsung Tool "MagicRotate" ausprobiert. Funktioniert klasse. Es scheint Windows einfach vorzugaukeln, dass Monitor und Grafikkarte diese Auflösung unterstützen. Wie genau es dieses Tool macht weiss ich nicht, aber vll weiss ja jemand wie man Windows sowas vorgaukelt.

Du könntest ja mal bei der Firma anfragen welche Api-Funktion verwendet wird.

Schon gemacht. Antwort (auf deutsch übersetzt): Es tut uns leid aber wir sind nicht befugt Ihnen darüber auskunft zu geben.