|
|
马上注册，结交更多好友，享用更多功能^_^
您需要 登录 才可以下载或查看，没有账号？立即注册
x
看教程后 自己弄的屏保 添加了自动截取桌面的api
不会上传附件 只能贴代码了 感谢小甲鱼 让我入门
unit Unit10;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
img1: TImage;
tmr1: TTimer;
lbl1: TLabel;
edt1: TEdit;
btn1: TButton;
tmr2: TTimer;
procedure FormCreate(Sender: TObject);
procedure tmr1Timer(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure btn1Click(Sender: TObject);
procedure tmr2Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
const
password:string='123123';
{$R *.dfm}
procedure screencatch();
procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowLong(edt1.Handle,GWL_STYLE,GetWindowLong(edt1.Handle,GWL_STYLE)or ES_CENTER);
img1.Left:=0;
img1.Top:=0;
img1.Width:=Screen.Width;
img1.Height:=Screen.Height;
screencatch;
end;
procedure TForm1.tmr1Timer(Sender: TObject);
begin
Form1.lbl1.Left:=Random(1366- Form1.lbl1.Width);
Form1.lbl1.Top:=Random(768) ;
Form1.lbl1.Font.Size:=Random(25) ;
case Random(5)of
0:lbl1.Font.Color:=clBlack;
1:lbl1.Font.Color:=clBlue;
2:lbl1.Font.Color:=clYellow;
3:lbl1.Font.Color:=clOlive;
4:lbl1.Font.Color:=clGreen;
5:lbl1.Font.Color:=clGray;
end;
end;
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = ' 'then
begin
edt1.Visible:=True;
btn1.Visible:=True;
end;
end;
procedure TForm1.btn1Click(Sender: TObject);
begin
if edt1.Text=password then
Close
else
begin
btn1.Visible:=False;
edt1.Visible:=False;
end;
end;
procedure TForm1.tmr2Timer(Sender: TObject);
begin
SetWindowPos(Form1.Handle,HWND_TOPMOST,0,0,0,0,SWP_NOSIZE + SWP_NOMOVE);
end;
end.
|
|
( 粤ICP备18085999号-1 | 粤公网安备 44051102000585号)
狗仔卡
发表于 2013-5-9 19:04:23
置顶卡
千斤顶
显身卡
发表于 2013-5-9 22:23:22