unit1.pas

这个是一个完整的药房管理系统

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    function DynamicResolution(x,y:Word):Bool;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  X,Y:Word;

implementation

{$R *.dfm}

function TForm1.DynamicResolution(x, y: Word): Bool;
var
  lpDevMode : TDeviceMode;
begin
  Result := EnumDisplaySettings(Nil,0,lpDevMode);
  if Result then
  begin
     lpDevMode.dmFields := DM_PelsWidth or DM_PelsHeight;
     lpDevMode.dmPelsWidth := X;
     lpDevMode.dmPelsHeight := Y;
     Result := ChangeDisplaySettings(lpDevMode,0) = DISP_CHANGE_SUCCESSFUL;
  end;
end;


procedure TForm1.FormShow(Sender: TObject);
Var
  lpDevmode: TDeviceMode;
begin
   X := GetSystemMetrics(SM_CXSCREEN); //取得水平分辨率
   Y := GetSystemMetrics(SM_CYSCREEN); //取得垂直分辨率
  Begin
       if DynamicResolution(800,600) then
       showmessage('现在分辨率为640*480');
  End;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
          if DynamicResolution(X,Y) then
       showmessage('成功！');
end;

end.