大庆企业做网站,校本教研网站建设,创意设计作品图片,wordpress 主机名效果图 鱼C屏幕保护程序 添加背景图片
在additional添加image组件#xff0c;修改picture属性上传图片。
这个图片可以截屏桌面#xff0c;方便后面满屏不留白操作。实现无边框
即上面的“- □ ”不显示
将Form1的borderstyle属性改为bsnone实现最大化#xff0c;满屏
将…效果图 鱼C屏幕保护程序 添加背景图片
在additional添加image组件修改picture属性上传图片。
这个图片可以截屏桌面方便后面满屏不留白操作。实现无边框
即上面的“- □ ×”不显示
将Form1的borderstyle属性改为bsnone实现最大化满屏
将windowstate属性改为wsMaximized将图片固定住、输入框和按钮隐藏
使用Form1的events的oncreate事件双击命名为FormCreate
//窗体生成时
procedure TForm1.FormCreate(Sender: TObject);
begin//设置图片位置img1.Left:0;img1.Top:0;//将输入框和按钮隐藏btn1.Visible:False;edt1.Visible:False;
end;设置一个时钟定时移动标签
procedure TForm1.tmr1Timer(Sender: TObject);
begin//置顶这个保护程序让它很难被kill掉SetWindowPos(Handle,HWND_TOPMOST,0,0,0,0,SWP_NOSIZEswp_nomove);//随机生成标签的位置lbl1.Left:Random(2000);lbl1.Top:Random(1000);//随机生成标签字体的大小lbl1.Font.Size:Random(50);//随机标签字体的颜色case (Random(5)) of0:lbl1.Font.color:clRed;1:lbl1.Font.color:clGreen;2:lbl1.Font.color:clYellow;3:lbl1.Font.color:clBlack;4:lbl1.Font.color:clOlive;end;//随机标签的颜色case (Random(5)) of0:lbl1.color:clWhite;1:lbl1.color:clGray;2:lbl1.color:clNavy;3:lbl1.color:clBlue;4:lbl1.color:clFuchsia;end;
end;取消按钮和输入框的隐藏
//按下按键取消按钮和输入框的隐藏
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
beginif(keyVK_SPACE)and (flagTrue) thenbeginedt1.Visible:True;btn1.Visible:True;end;
end;确认密码触发新的时钟
//按下按钮确认解锁密码
procedure TForm1.btn1Click(Sender: TObject);
beginif(edt1.Textmima)and (n0)thenCloseelseif(n0)thenbeginMessageBox(Handle,密码错误,警告,MB_OK or MB_ICONSTOP);n:n-1;endelsebeginMessageBox(Handle,错误太多次了请稍后再尝试,警告,MB_OK or MB_ICONSTOP);flag:False;//让确认按钮变灰btn1.Enabled:False;//第二个时钟起作用触发第二个时钟tmr2.Enabled:True;end;
end;实现等待时间功能
//每9秒这个时钟重置一下输入标记和输入次数
//将timer的interval属性设置为9000
procedure TForm1.tmr2Timer(Sender: TObject);
beginflag:True;n:2;//关闭第二个时钟不让它继续重置tmr2.Enabled:False;btn1.Enabled:True;
end;免费在线视频裁剪、转gif
今天用到这个网站进行简单的剪辑不需要登录页面也很简洁。 完整代码
unit screenprotect;interfaceusesSysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,Dialogs, Forms,Form, Formprpt, jpeg, ExtCtrls, dxGDIPlusClasses, StdCtrls;typeTForm1 class(MForm)tmr1: TTimer;img1: TImage;lbl1: TLabel;edt1: TEdit;btn1: TButton;tmr2: TTimer;procedure FormCreate(Sender: TObject);procedure tmr1Timer(Sender: TObject);procedure FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);procedure btn1Click(Sender: TObject);procedure tmr2Timer(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;mima:stringyucbaohu;n:Integer2;//用来标记是否能输入密码因为输错3次就得等一段时间才能输入flag:BooleanTrue;implementation{$R *.DFM}//窗体生成时
procedure TForm1.FormCreate(Sender: TObject);
begin//设置图片位置img1.Left:0;img1.Top:0;//将输入框和按钮隐藏btn1.Visible:False;edt1.Visible:False;
end;//设置一个时钟定时移动标签
procedure TForm1.tmr1Timer(Sender: TObject);
begin//置顶这个保护程序让它很难被kill掉SetWindowPos(Handle,HWND_TOPMOST,0,0,0,0,SWP_NOSIZEswp_nomove);//随机生成标签的位置lbl1.Left:Random(2000);lbl1.Top:Random(1000);//随机生成标签字体的大小lbl1.Font.Size:Random(50);//随机标签字体的颜色case (Random(5)) of0:lbl1.Font.color:clRed;1:lbl1.Font.color:clGreen;2:lbl1.Font.color:clYellow;3:lbl1.Font.color:clBlack;4:lbl1.Font.color:clOlive;end;//随机标签的颜色case (Random(5)) of0:lbl1.color:clWhite;1:lbl1.color:clGray;2:lbl1.color:clNavy;3:lbl1.color:clBlue;4:lbl1.color:clFuchsia;end;
end;//按下按键取消按钮和输入框的隐藏
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
beginif(keyVK_SPACE)and (flagTrue) thenbeginedt1.Visible:True;btn1.Visible:True;end;
end;//按下按钮确认解锁密码
procedure TForm1.btn1Click(Sender: TObject);
beginif(edt1.Textmima)and (n0)thenCloseelseif(n0)thenbeginMessageBox(Handle,密码错误,警告,MB_OK or MB_ICONSTOP);n:n-1;endelsebeginMessageBox(Handle,错误太多次了请稍后再尝试,警告,MB_OK or MB_ICONSTOP);flag:False;//让确认按钮变灰btn1.Enabled:False;//第二个时钟起作用触发第二个时钟tmr2.Enabled:True;end;
end;//每9秒这个时钟重置一下输入标记和输入次数
//将timer的interval属性设置为9000
procedure TForm1.tmr2Timer(Sender: TObject);
beginflag:True;n:2;//关闭第二个时钟不让它继续重置tmr2.Enabled:False;btn1.Enabled:True;
end;end.
