delphi 禁止截屏PrintScreen

procedureTForm1.FormCreate(Sender:TObject);beginRegisterHotKey(Handle,IDHOT_SNAPDESKTOP,0,VK_SNAPSHOT);end;procedureTForm1.FormClose(Sender:TObject;varAction:TCloseAction);beginUnregisterHotKey(Handle…