论坛 › Delphi交流 › 鱼C屏幕保护程序V3.0改进版

yangfeng_fishc 发表于 2015-3-9 23:44:29

鱼C屏幕保护程序V3.0改进版

//看了小甲鱼的视频，随兴改进一点点
unit Unit1;
interface

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

type
TForm1 = class(TForm)
    img1: TImage;
    tmr1: TTimer;
    tmr2: TTimer;
    edt1: TEdit;
    btn1: TButton;
    lbl1: TLabel;
    chk1: TCheckBox;
    pnl1: TPanel;
    lbl4: TLabel;
    lbl2: TLabel;
    lbl3: TLabel;
    edt4: TEdit;
    edt2: TEdit;
    edt3: TEdit;
    btn3: TButton;
    btn4: TButton;
    btn2: TButton;
    procedure tmr1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure btn1Click(Sender: TObject);
    procedure tmr2Timer(Sender: TObject);
    procedure chk1Click(Sender: TObject);
    procedure edt1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure btn4Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;
password: string= '';

implementation

var
n: Integer= 3;
flag: Boolean= True;
t1,t2: Int64;
{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowLong(edt1.Handle, GWL_STYLE, GetWindowLong(edt1.Handle, GWL_STYLE) or
ES_CENTER);
edt1.Invalidate;

img1.Left:= 0;
img1.Top:= 0;
img1.Align:= alClient;
edt1.Visible:= False;
btn1.Visible:= False;
btn2.Visible:= False;
edt1.PasswordChar:= '*';
chk1.Visible:= False;
tmr2.Enabled:= False;

pnl1.Visible:= False;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
t2:= DateTimeToUnix(Now);
if flag = True then
begin
    if Key = VK_RETURN then
    begin
      edt1.Visible:= True;
      btn1.Visible:= True;
      btn2.Visible:= True;
      chk1.Visible:= True;
      edt1.Left:= (img1.Width - edt1.Width - chk1.Width) div 2;
      edt1.Top:= Trunc(img1.Height * 0.75) ;
      btn1.Left:= edt1.Left;
      btn1.Top:= edt1.Top + 50;
      btn2.Left:= btn1.Left + btn1.Width + 10;
      btn2.Top:= btn1.Top;
      chk1.Left:= edt1.Left + edt1.Width + 10;
      chk1.Top:= edt1.Top + 5;
      edt1.SetFocus;
    end
    else
    Application.MessageBox('请按"ENTER"键输入密码解锁屏幕！', '提示',
    MB_OK or MB_ICONINFORMATION);
end
else
begin
    MessageBox(Handle,
    PChar('密码错误次数太多已锁定,' + IntToStr(9-t2+t1) + '秒后解锁'),
    '警告', MB_OK or MB_ICONWARNING);
end;
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
n:= n - 1;
if edt1.Text = password then
    Close
else
begin
    if n < 1 then
    begin
      MessageBox(Handle, '密码错误次数太多已锁定，10秒后解锁', '警告',
      MB_OK + MB_ICONWARNING + MB_DEFBUTTON1);

      edt1.Visible:= False;
      btn1.Visible:= False;
      btn2.Visible:= False;
      chk1.Visible:= False;
      flag:= False;
      tmr2.Enabled:= True;
      t1:= DateTimeToUnix(Now);
    end
    else
      MessageBox(Handle, PChar('密码错误，您还有' + IntToStr(n) +'次机会'),
      '警告', MB_OK + MB_ICONINFORMATION + MB_DEFBUTTON1);
end;
end;

procedure TForm1.tmr1Timer(Sender: TObject);
begin
SetWindowPos(Handle, HWND_TOPMOST, 0,0,0,0, SWP_NOMOVE+SWP_NOSIZE);

lbl1.Left:= 20 + Random(1000);
lbl1.Top:= 20 + Random(880);
lbl1.Font.Size:= 10 + Random(20);

case Random(5) of
    0:
    begin
      lbl1.Font.Color:= clMaroon;
      lbl1.Color:= clWhite;
    end;
    1:
    begin
      lbl1.Font.Color:= clNavy;
      lbl1.Color:= clGray;
    end;
    2:
    begin
      lbl1.Font.Color:= clOlive;
      lbl1.Color:= clMaroon;
    end;
    3:
    begin
   lbl1.Font.Color:= clRed;
   lbl1.Color:= clPurple;
    end;
    4:
    begin
      lbl1.Font.Color:= clGreen;
      lbl1.Color:= clMaroon;
    end;
    5:
    begin
      lbl1.Font.Color:= clPurple;
      lbl1.Color:= clFuchsia;
    end;
end;

end;

procedure TForm1.tmr2Timer(Sender: TObject);
begin
flag:= True;
n:= 3;
tmr2.Enabled:= False;
end;

procedure TForm1.chk1Click(Sender: TObject);
begin
if chk1.Checked then
    edt1.PasswordChar:= #0
else
    edt1.PasswordChar:= '*';
end;

procedure TForm1.edt1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = 13 then
    btn1Click(Form1.btn1);
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
pnl1.Visible:= True;
pnl1.Left:= Trunc((Screen.Width- pnl1.Width) * 0.5);
pnl1.Top:= Trunc(Screen.Height * 0.5);
end;

procedure TForm1.btn3Click(Sender: TObject);
begin
pnl1.Visible:= False;
end;

procedure TForm1.btn4Click(Sender: TObject);
begin
if edt2.Text = password then
begin
    if edt3.Text = edt4.Text then
    begin
      password:= edt3.text;
      MessageBox(Handle, '密码修改成功!', '提示',
      MB_OK + MB_ICONINFORMATION);
      pnl1.Visible:= False;
    end
    else
      MessageBox(Handle, '两次输入的密码不一致！', '提示',
      MB_OK + MB_ICONINFORMATION);
end
else
    MessageBox(Handle, '原密码不正确！', '提示', MB_OK + MB_ICONINFORMATION);
end;

end.

查看完整版本: 鱼C屏幕保护程序V3.0改进版