[nonVCL]Bildschirmauflösung ermitteln

[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;