project2.dpr

来自「Delphi7编程80例(完全版)」· DPR 代码 · 共 24 行

program Project2;

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

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  CASE GetDeviceCaps(GetDC(Form1.Handle), HORZRES) of
  640 : ;//对640*480分辨率进行处理的代码;
  800 : ;//对800*600分辨率进行处理的代码;
  1024: ;//对1024*768分辨率进行处理的代码;
  1280: ;//对1280*1024分辨率进行处理的代码;
END; 
Application.Run; 


  Application.Run;
end.