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,ngertikan maksd yang saya sampaikan,itu loh mengCapture layar masa gx tau juga,ya sudah lah asumsi saya kalian sudah ngerti,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.

Monggo dipraktekkan !!

Posted by Antas Delphi on - Rating: 4.5

Title : Melarang / Disable Tombol Print Screen di Delphi
Description : Agar Program kita yang sudah dibuat agar tidak bisa di capture atau di Print screen maka kita harus mendisable Tombol Print Screenya,ngert...