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 kmp(字符串匹配)算法

Delphi连接mysql出现乱码

Delphi 创建并调用 dll

Delphi 保存导出或加载资源文件

Delphi xe [dcc32 fatal error] f2039 could not create output file 问题的解决

Delphi savelog 日志

Delphi 屏幕截图完美解决方案

Delphi应用程序 paramstr（）带有参数

Delphi 控制窗口显示隐藏

windows7下使用Delphi7的方法

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

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