屏幕解锁小程序

适合初学者大牛就算啦屏幕解锁程序密码为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; 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 ">适合初学者大牛就算啦屏幕解锁程序密码为gujiya自己做得玩的所有代码如下unit Unit1; interface uses Windows Messages SysUtils Variants Classes Graphics Controls Forms Dialogs pngimage ExtCtrls StdCtrls; type TForm1 class TForm Image1 [更多]