unit2.~pas

Windows定时设置精灵(delphi).rar

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TFlatButtonUnit,Registry, StdCtrls, TFlatMemoUnit, TFlatEditUnit,
  jpeg, ExtCtrls;
  
type
  TForm2 = class(TForm)
    FlatButton1: TFlatButton;
    FlatEdit1: TFlatEdit;
    Image1: TImage;
    procedure FlatButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
     procedure WmNCHitTest(var Msg: TWMNCHitTest); message WM_NCHITTEST;
    procedure DrawRndRectRegion;
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  reg:TRegistry;
  qr:boolean;
implementation

uses Unit1;

{$R *.dfm}
procedure TForm2.DrawRndRectRegion;
var
  rgn: HRgn;
  Rect: TRect;
begin
  Rect := Self.Canvas.ClipRect;
  rgn := CreateRoundRectRgn(rect.left, rect.top, rect.right, rect.bottom, 20, 20);
  SetWindowRgn(Self.Handle, rgn, TRUE);
end;
procedure TForm2.WmNCHitTest(var Msg: TWMNCHitTest);
begin
  DefaultHandler(Msg);
  if Msg.Result = HTCLIENT then
    Msg.Result := HTCAPTION;
end;
procedure TForm2.FlatButton1Click(Sender: TObject);
begin
form2.Hide;
reg:=tregistry.Create ;
reg.rootkey:=HKEY_current_user;
reg.OpenKey('software\microsoft\windows\currentversion\policies\message',true);
if (reg.Readstring('bak')='1') then
reg.Writestring('message2',flatedit1.text);
if (reg.Readstring('bak')='2') then
reg.Writestring('message3',flatedit1.text);
if (reg.Readstring('bak')='3') then
reg.Writestring('message4',flatedit1.text);
reg.closekey;//关闭该键
reg.free;//释放
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
qr:=false;
ClientWidth:=Image1.Width;
  ClientHeight:=Image1.Height;
end;

procedure TForm2.FormActivate(Sender: TObject);
begin
if qr=false then
 begin
 DrawRndRectRegion;
 qr:=true;
 end;

end;

end.