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 2009 之 tstringbuilder 类[6]: equals

Delphi 检测服务器地址是否有效

Delphi 坐标截图如何实现

Delphi 使用 inputbox、inputquery 的启发

Delphi2010 图片格式转换bmp, png,jpeg, gif, tiff , wmphoto

Delphi 实现类似windows的查找功能-遍历整个硬盘目录

Delphi idhttp 断开连接/超时读取

Delphi程序将自身可执行文件拷贝到u盘的代码

Delphi 打开网址链接

Delphi setwindowshookex - 设置钩子 unhookwindowshookex - 卸掉钩子

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

转载请注明出处：木庄网络博客 » delphi 禁止截屏PrintScreen