论坛 › Delphi交流 › 看教程后 自己弄的屏保 添加了自动截取桌面的api

a573510720 发表于 2013-5-9 19:04:23

看教程后 自己弄的屏保 添加了自动截取桌面的api

看教程后 自己弄的屏保 添加了自动截取桌面的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();
**** Hidden Message *****
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.

为你伤怀 发表于 2013-5-9 19:52:15

{:7_148:}做一個看看

那西 发表于 2013-5-9 21:33:57

强烈支持楼主ing……

bafengao 发表于 2013-5-9 22:23:22

强烈支持楼主ing……

daveshi 发表于 2013-5-10 02:52:36

纯当娱乐！

haking 发表于 2013-5-10 20:24:33

不错啊。。楼主继续加油。

rmb788520 发表于 2013-5-11 18:50:27

强烈支持楼主ing……

709023996 发表于 2013-5-14 11:01:11

帅！！！！！！！！！！

沉默的风采 发表于 2013-5-15 10:47:18

楼主加油，鱼C加油！我们都看好你哦！

tlwangxd 发表于 2014-10-27 15:57:44

wxd

tlwangxd 发表于 2014-10-28 09:35:49

学习

tlwangxd 发表于 2014-10-29 07:59:13

学习

bluesky1997 发表于 2017-9-19 22:33:31

看看

秃如其来i 发表于 2019-9-6 15:03:05

6

yitaji 发表于 2019-9-14 17:20:39

66

心驰神往 发表于 2020-9-4 11:47:33

学习

心驰神往 发表于 2020-9-14 09:27:18

不错

lengyue869 发表于 2020-12-26 08:57:38

康一康

Maosir 发表于 2020-12-28 15:58:22

我也想看看

查看完整版本: 看教程后 自己弄的屏保 添加了自动截取桌面的api