project1.dpr

来自「设定按照系统分辨率」· DPR 代码 · 共 22 行

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);

  CASE GetDeviceCaps(GetDC(Form1.Handle)  HORZRES) of 
   640 : Application.Icon.Handle := LoadIcon (hInstance  'ICON640');
   800 : Application.Icon.Handle := LoadIcon (hInstance  'ICON800');
  1024 : Application.Icon.Handle := LoadIcon (hInstance  'ICON1024');
  1280 : Application.Icon.Handle := LoadIcon (hInstance  'ICON1280');
  END;

  Application.Run;
end.