Formdarstellung abhängig von Windowsfont

[Progman]

Eingestellte Schriftart überprüfen:

Delphi-Quellcode:

unit CheckF;

interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

  function SmallFonts : Boolean;
  procedure ChckFonts;

implementation

function SmallFonts : Boolean;
var dc: hdc;
begin
  dc:= GetDC(0);
  Result := (GetDeviceCaps(dc, LOGPIXELSX) = 96);
  ReleaseDC(0, DC)
end;

procedure ChckFonts;
begin
  if not SmallFonts then begin
    if MessageDlg('Dieses Programm erfordert die Einstellung "Kleine Schriftarten"! Soll es trotzdem gestartet werden?',
     mtWarning,[mbYes,mbNo],0)=mrNo then Halt(0);
  end;
end;

end.

ChckFonts in die *.dpr-Datei, bevor die Application intialisiert wird.