鱼C论坛

 找回密码
 立即注册
查看: 4437|回复: 18

[技术交流] 看教程后 自己弄的屏保 添加了自动截取桌面的api

[复制链接]
发表于 2013-5-9 19:04:23 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能^_^

您需要 登录 才可以下载或查看,没有账号?立即注册

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.

想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
发表于 2013-5-9 19:52:15 | 显示全部楼层
{:7_148:}做一個看看
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
发表于 2013-5-9 21:33:57 | 显示全部楼层
强烈支持楼主ing……
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
发表于 2013-5-9 22:23:22 | 显示全部楼层
强烈支持楼主ing……
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
发表于 2013-5-10 02:52:36 | 显示全部楼层
纯当娱乐!
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
发表于 2013-5-10 20:24:33 | 显示全部楼层
不错啊。。楼主继续加油。
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
发表于 2013-5-11 18:50:27 | 显示全部楼层
强烈支持楼主ing……
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
发表于 2013-5-14 11:01:11 | 显示全部楼层
帅!!!!!!!!!!
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
发表于 2013-5-15 10:47:18 | 显示全部楼层
楼主加油,鱼C加油!我们都看好你哦!
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
发表于 2014-10-27 15:57:44 | 显示全部楼层
wxd
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

发表于 2014-10-28 09:35:49 | 显示全部楼层
学习
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

发表于 2014-10-29 07:59:13 | 显示全部楼层
学习
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

发表于 2017-9-19 22:33:31 | 显示全部楼层
看看
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

发表于 2019-9-6 15:03:05 | 显示全部楼层
6
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

发表于 2019-9-14 17:20:39 | 显示全部楼层
66
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

发表于 2020-9-4 11:47:33 | 显示全部楼层
学习
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

发表于 2020-9-14 09:27:18 | 显示全部楼层
不错
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

发表于 2020-12-26 08:57:38 | 显示全部楼层
康一康
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

发表于 2020-12-28 15:58:22 | 显示全部楼层
我也想看看
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Archiver|鱼C工作室 ( 粤ICP备18085999号-1 | 粤公网安备 44051102000585号)

GMT+8, 2024-3-29 00:48

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表