unit1.pas

“汇华印刷v2.0”是在实践的基础上开发的一个全自动多功能信封打印系统

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, RzAnimtr, ImgList, ComCtrls;

type
  Tmain = class(TForm)
    Image1: TImage;
    procedure Image1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  main: Tmain;

implementation

uses Unit2;

{$R *.dfm}
function dynamicresolution(x,y:word):bool;
var lp:tdevicemode;
begin
result:=enumdisplaysettings(nil,0,lp);
if result then
begin
lp.dmFields:=dm_pelswidth or dm_pelsheight;
lp.dmPelsWidth:=x;
lp.dmPelsHeight:=y;
result:=changedisplaysettings(lp,0)=disp_change_successful;
end
end;
procedure Tmain.Image1Click(Sender: TObject);
begin
sj.Show;
main.Visible:=false;
end;

procedure Tmain.FormCreate(Sender: TObject);
begin
dynamicresolution(1024,768);
end;

end.