DBR Delphi-Ecke

// Falls man nur die Abmaße des Screens benötigt und nicht die gesamte
// Unit Forms deswegen einbinden will, kann man Folgendes machen:

// Getestet mit D4 unter WinME

function ScreenWidth: Integer; 
begin 
  Result := GetSystemMetrics(78); 
end; 
 
function ScreenHeight: Integer; 
begin 
  Result := GetSystemMetrics(79); 
end; 
 
// Beispielaufruf 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
  label3.caption := inttostr(screenwidth); 
  label4.caption := inttostr(screenheight); 
end;