[nonVCL]Bildschirmauflösung ermitteln

[CalganX]

Hi,
wie ist es möglich die Bildschirmauflösung ohne die VCL zu ermitteln?
Denn TScreen (Screen.Heigth, etc.) ist in der Unit Forms und Forms gehört zur VCL... OK?

Chris

[Chewie]

Schau dir mal die API GetSystemMetrics an.

[CalganX]

Super! Das ist es! Diesmal scheine ich auch durch zusteigen.

Chris

[Chewie]

Steht ürigens auch in Luckies Tutorials drin

[CalganX]

Zitat von Chewie:

Steht ürigens auch in Luckies Tutorials drin

Wo? *such*

Chris

[Chewie]

Zitat von Luckies WinAPI-Tutorial:

Code:

case uMsg of
    WM_CREATE:
      begin
        {Fenster zentrieren}
        x := [b]GetSystemMetrics(SM_CXSCREEN);[/b]   //Screenhöhe & -breite
        y := [b]GetSystemMetrics(SM_CYSCREEN);[/b]
        {Fenster auf neue Positionverschieben}
        MoveWindow(hWnd, (x div 2) - (WindowWidth div 2),
          (y div 2) - (WindowHeight div 2),
          WindowWidth, WindowHeight, true);
      end;

[Luckie]

Öhm, Chakotay.... Hast du den Code nicht auch in deinem Programm SysInfo? Also das wäre mir jetzt dann aber doch etwas sehr peinlich.

[CalganX]

@Luckie: ja, dass ist es mir jetzt auch! Ich habe das nicht wirklich realisiert... Naja, nun habe ich es ja.

Chris

PS: Du meinst doch jetzt insgesamt, oder? Denn die Auflösung als Info, habe ich erst nachdem diesem Beitrag eingebaut!

[Luckie]

Ich meine den Code-Schnippsel oder wie zentrierst du dein Fenster? Also nie richtig angekuckt oder wie?

[CalganX]

Öhm... Ja, öhm... Eigentlich nicht. Naja, jetzt weiß ich es.

Chris