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

名前

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

本文

すみません、Alt＋PrintScreen の場合を忘れていました。以下のようにしてください。

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
  HotkeyID1 = 1234567;
  HotkeyID2 = 7654321;

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

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

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

end.

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

戻る