PrintScreenを無効にしたい (ID:10562)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

システムにホットキー登録をして、なにもしなければいいです。

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  AppEvnts;

type
  TForm1 = class(TForm)
    ApplicationEvents1: TApplicationEvents;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure ApplicationEvents1Message(var Msg: tagMSG;
      var Handled: Boolean);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

const
  HotkeyID = 1234567;

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

procedure TForm1.FormDestroy(Sender: TObject);
begin
  UnregisterHotkey(Application.Handle,HotkeyID);
end;

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if (Msg.message = WM_HOTKEY) and (Msg.Wparam = HotkeyID) and
      (HIWORD(Msg.Lparam) = VK_SNAPSHOT) then
    ;//何もしない
end;

end.

このアプリが実行中は PrintScreen でクリップボードに画面をキャプチャされる
ことはありません。

←解決時は質問者本人がここをチェックしてください。

戻る