Bildschirmauflösung und Farbtiefe ermitteln und ändern

[gkoeder]

Hallo!

weiß jemand zufällig, wie man per Code die Auflösung des Bildschirms (und ggf. die Bildwiederholrate) sowie die Farbtiefe erfassen und abändern kann?

Viele Grüße

Gerald

[Neuni]

Delphi Source


http://www.delphi-source.de/tipps/system/?id=276

http://www.delphi-source.de/tipps/system/?id=287

[gkoeder]

Zitat von Neuni:

Delphi Source


http://www.delphi-source.de/tipps/system/?id=276

http://www.delphi-source.de/tipps/system/?id=287

Wow - danke für die schnelle Antwort! Hab' mir die Tipps gleich mal angeschaut; Für die Bildschirmauflösung gibts eine Lösung - nur mit dem setzen der Farbtiefe haperts noch ...

Viele Grüße
Gerald

[Muetze1]

Moin!

Is ja nicht das Ding...

Delphi-Quellcode:

function change_resolution(Const AWidth, AHeight, ABpp : Word): boolean;
var
  lpDevMode: TDeviceMode;
begin
  lpDevMode.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT or DM_BITSPERPEL;
  lpDevMode.dmPelsWidth  := AWidth;
  lpDevMode.dmPelsHeight := AHeight;
  lpDevMode.dmBitsPerPel := ABpp;
  Result := ( ChangeDisplaySettings(lpDevMode, CDS_UPDATEREGISTRY) = DISP_CHANGE_SUCCESSFUL );
end;

Und hier nochmal eine Deluxe Version, die die Bildwiederholfrequenz mitsetzt, aber nur, wenn du sie auch angibst, ansonsten ändert er nix an der Wiederholfrequenz (besser gesgt, er nimmt dann die Default).

Delphi-Quellcode:

Function change_resolution(Const AWidth, AHeight, ABpp : Word; Const ARefreshRate : Word = 0): Boolean;
Var
  lpDevMode: TDeviceMode;
Begin
  lpDevMode.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT or DM_BITSPERPEL;
  lpDevMode.dmPelsWidth  := AWidth;
  lpDevMode.dmPelsHeight := AHeight;
  lpDevMode.dmBitsPerPel := ABpp;

  If ( ARefreshRate > 0 ) Then
  Begin
    lpDevMode.dmDisplayFrequency := ARefreshRate;
    lpDevMode.dmFields := lpDevMode.dmFields Or DM_DISPLAYFREQUENCY;
  End;

  Result := ( ChangeDisplaySettings(lpDevMode, CDS_UPDATEREGISTRY) = DISP_CHANGE_SUCCESSFUL );
End;

MfG
Muetze1

[gkoeder]

Zitat von Muetze1:

Moin!

Is ja nicht das Ding...

Delphi-Quellcode:

function change_resolution(Const AWidth, AHeight, ABpp : Word): boolean;
var
  lpDevMode: TDeviceMode;
begin
  lpDevMode.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT or DM_BITSPERPEL;
  lpDevMode.dmPelsWidth  := AWidth;
  lpDevMode.dmPelsHeight := AHeight;
  lpDevMode.dmBitsPerPel := ABpp;
  Result := ( ChangeDisplaySettings(lpDevMode, CDS_UPDATEREGISTRY) = DISP_CHANGE_SUCCESSFUL );
end;

... snipp ...

MfG
Muetze1

Danke für den Tipp. Das ganze funktioniert richtig gut ... allerdings musste zu Beginn noch die Größe der Datenstruktur definieren ... sonst gibbets böse Falschmeldungen:

lpDevMode.dmSize := SizeOf(lpDevMode);

MfG
Gerald

[Muetze1]

Moin!

Zitat von gkoeder:

... allerdings musste zu Beginn noch die Größe der Datenstruktur definieren ... sonst gibbets böse Falschmeldungen:

lpDevMode.dmSize := SizeOf(lpDevMode);

Ach Mist! Stimmt - das kommt davon wenn man irgendwelche Links folgt und die nur abändert.

MfG
Muetze1