جلوگیری از ScreenShot و Snip

[masoode]

سلام دوستان
من در برنامه ای که دارم مینویسم، فایلهای نقشه که به صورت pdf و jpg است را نمایش میدهم ولی امکان پرینت و ذخیره سازی را محدود کرده ام. حالا میخواهم هم اسکرین شات را ببندم و هم Snip را. با بستن کلید Print Screen کارم راه نمی افته.
آیا راهی سراغ دارید؟
من دیده ام که اگر از صفحه بعضی از نرم افزارها که Screen shot میگیرم همه صفحه را میگیرد ولی آن قسمتی که فیلم یا عکس وجود ندارد سیاه میشود.

[دلفــي]

سلام دوستان
من در برنامه ای که دارم مینویسم، فایلهای نقشه که به صورت pdf و jpg است را نمایش میدهم ولی امکان پرینت و ذخیره سازی را محدود کرده ام. حالا میخواهم هم اسکرین شات را ببندم و هم Snip را. با بستن کلید Print Screen کارم راه نمی افته.
آیا راهی سراغ دارید؟
من دیده ام که اگر از صفحه بعضی از نرم افزارها که Screen shot میگیرم همه صفحه را میگیرد ولی آن قسمتی که فیلم یا عکس وجود ندارد سیاه میشود.

unit Unit1;





interface





uses

  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;





type

  TForm1 = class(TForm)

    procedure FormCreate(Sender: TObject);

    procedure FormDestroy(Sender: TObject);

  private

  procedure WMHotKey(var Msg : TWMHotKey); message WM_HOTKEY;

    { Private declarations }

  public

    { Public declarations }

  end;





var

  Form1: TForm1;





implementation





{$R *.dfm}





const id_SnapShot = 101;





procedure TForm1.FormCreate(Sender: TObject);

begin

  RegisterHotKey(Self.Handle, id_SnapShot, 0, VK_SNAPSHOT) ;

end;





procedure TForm1.FormDestroy(Sender: TObject);

begin

  UnRegisterHotKey(Self.Handle, id_SnapShot) ;

end;





procedure TForm1.WMHotKey (var Msg : TWMHotKey);

begin

  if Msg.HotKey = id_SnapShot then

end;





end.