【文件属性】:
文件名称:屏幕解锁小程序
文件大小:723KB
文件格式:ZIP
更新时间:2017-09-07 02:38:41
屏幕保护程序
适合初学者 大牛就算啦 屏幕解锁程序密码为 gujiya 自己做得玩的
所有代码如下
unit Unit1;
interface
uses
Windows Messages SysUtils Variants Classes Graphics Controls Forms
Dialogs pngimage ExtCtrls StdCtrls;
type
TForm1 class TForm
Image1: TImage;
Label1: TLabel;
Timer1: TTimer;
Button1: TButton;
Edit1: TEdit;
procedure Timer1Timer Sender: TObject ;
procedure FormCreate Sender: TObject ;
procedure FormKeyDown Sender: TObject; var Key: Word; Shift: TShiftState ;
procedure Button1Click Sender: TObject ;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
const
Password:String "gujiya";
{$R dfm}
procedure TForm1 Button1Click Sender: TObject ;
begin
If Edit1 Text Password Then
Close;
end;
procedure TForm1 FormCreate Sender: TObject ;
begin
Image1 Left: 0;
Image1 Top: 0;
Edit1 Visible : False;
Button1 Visible : False;
end;
procedure TForm1 FormKeyDown Sender: TObject; var Key: Word;
Shift: TShiftState ;
begin
If Key VK Space Then
begin
Edit1 visible: True;
Button1 Visible : True;
end
end;
procedure TForm1 Timer1Timer Sender: TObject ;
begin
Label1 Left: Random 1154 ;
Label1 Top: Random 996 ;
Label1 Font Size: Random 50 ;
case Random 3 of
0:Label1 Font Color: CLyellow;
1:Label1 Font Color: CLred;
2:Label1 Font Color: CLgreen;
end;
end;
end ">适合初学者 大牛就算啦 屏幕解锁程序密码为 gujiya 自己做得玩的
所有代码如下
unit Unit1;
interface
uses
Windows Messages SysUtils Variants Classes Graphics Controls Forms
Dialogs pngimage ExtCtrls StdCtrls;
type
TForm1 class TForm
Image1 [更多]
【文件预览】:
屏幕解锁
----__history()
--------Project1.dpr.~1~(234B)
--------Unit1.pas.~1~(1KB)
--------Unit1.dfm.~1~(343KB)
--------Project1.dpr.~2~(230B)
----Project1.exe(797KB)
----Project1.res(5KB)
----Unit1.dfm(343KB)
----Unit1.pas(1KB)
----Project1.identcache(73B)
----Project1.dpr(155B)
----Project1.dproj.local(305B)
----Unit1.dcu(6KB)
----Project1.dproj(4KB)