Melarang / Disable Tombol Print Screen di Delphi

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

Agar Program kita yang sudah dibuat agar tidak bisa di capture atau di Print screen maka kita harus mendisable Tombol Print Screenya, untuk penggunaan di delphi silahkan coba coding berikut : 

unit Unit1;
.........................................
.........................................
.........................................
  private
    { Private declarations }
    procedure LarangPrintScreen(var Msg : TWMHotKey); message WM_HOTKEY;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  prntscrn : Integer;
implementation

{$R *.dfm}

procedure TForm1.LarangPrintScreen (var Msg : TWMHotKey);
begin
if msg.HotKey = prntscrn then
begin
ShowMessage('Dilarang Untuk Print Screen Aplikasi !!');
msg.hotkey := 0;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
prntscrn := GlobalAddAtom('Hotkey4');
RegisterHotKey(Handle, prntscrn, 0, VK_SNAPSHOT);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
UnRegisterHotKey(Handle, prntscrn);
end;

end.

Tanpa Basi Basi Langsung saja silahkan Praktekkan....