delphi 禁止截屏PrintScreen


本文整理自网络,侵删。

 procedure TForm1.FormCreate(Sender: TObject);
begin
  RegisterHotKey(Handle, IDHOT_SNAPDESKTOP, 0, VK_SNAPSHOT);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  UnregisterHotKey(Handle, IDHOT_SNAPDESKTOP);
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
 RegisterHotKey (Handle, IDHOT_SNAPWINDOW, MOD_ALT, VK_SNAPSHOT);
end;

procedure TForm1.FormDeactivate(Sender: TObject);
begin
  UnregisterHotKey(Handle, IDHOT_SNAPWINDOW);
end;

相关阅读 >>

Delphi 控制台程序获取系统信息

Delphi tapplication.onexception

Delphi延时4种方法

Delphi 新建文件夹函数

Delphi xe8安卓下汉字转gb2312 urlencode代码

Delphi 简单方法搜索定位treeview项

如何为Delphi程序添加事件和事件处理器

Delphi web service 多表提交的事务管理

Delphi 跨平台打开网址链接

Delphi 内存管理[2]

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...