quit.pas

希望大家能多多指教这是我给我们同学编的系统

unit quit;

interface

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

type
  Tquitform = class(TForm)
    Timer1: TTimer;
    Timer: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure TimerTimer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  quitform: Tquitform;

implementation

{$R *.dfm}

procedure Tquitform.FormCreate(Sender: TObject);
var
ryn:hrgn;
begin
beginpath(canvas.Handle);
setbkmode(canvas.Handle,transparent);
canvas.Font.Name:='宋体';
canvas.Font.Size:=60;
canvas.TextOut(20,20,'Thanks for your use!');
endpath(canvas.Handle);
ryn:=pathtoregion(canvas.Handle);
setwindowrgn(handle,ryn,true);

end;

procedure Tquitform.FormResize(Sender: TObject);
var
ryn:hrgn;
begin
beginpath(canvas.Handle);
setbkmode(canvas.Handle,transparent);
canvas.Font.Name:='宋体';
canvas.Font.Size:=60;
canvas.TextOut(20,20,'Thanks for your use!');
endpath(canvas.Handle);
ryn:=pathtoregion(canvas.Handle);
setwindowrgn(handle,ryn,true);

end;

procedure Tquitform.Timer1Timer(Sender: TObject);
begin
quitform.Color:=rgb(random(255),random(255),random(255));
end;

procedure Tquitform.TimerTimer(Sender: TObject);
begin
Application.Terminate;
end;

end.