ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

NoPrintScreen   



L'auteur

FredA
France France
Membre Simple
# 0000000005
enregistré le 12/10/2004

Fiche personnelle


Note des membres
pas de note

Contributions > 05 - API et appels systèmes

NoPrintScreen
# 0000000555
ajouté le 09/05/2008 16:33:24 et modifié le 09/05/2008
consulté 3988 fois
Niveau débutant

Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0
VFP 6.0


Télécharger le ZIP (36.02 Ko)
Description

Interdire la copie d'écran par printscreen

le projet VC est inclu

Code source :
DECLARE Integer Intercepte IN e:\noprintscreen\noprintscreen.dll
DECLARE Integer Relache IN e:\noprintscreen\noprintscreen.dll
if Intercepte()!=0
"printscreen impossible"
endif

if relache()!=0
"printscreen autorisé"
endif

CLEAR DLLS

Commentaires
le 09/05/2008, Christophe Chenavier a écrit :
Possible en VFP en appelant directement l'API :

#DEFINE MOD_ALT 1
#DEFINE MOD_CONTROL 2
#DEFINE VK_SNAPSHOT 0x2C


FUNCTION SnapShot

LPARAMETERS lOn

LOCAL nLibs
LOCAL ARRAY aLibs(1,3)

M.nLibs = ADLLS(aLibs)

IF M.lOn
IF M.nLibs = 0 OR ASCAN(aLibs,"UnregisterHotKey",1,0,1,7) = 0
DECLARE INTEGER UnregisterHotKey IN Win32API ;
INTEGER hWnd, INTEGER id
ENDIF
UnregisterHotKey(_SCREEN.HWnd, 1002)
UnregisterHotKey(_SCREEN.HWnd, 1003)
UnregisterHotKey(_SCREEN.HWnd, 1004)
ELSE
IF M.nLibs = 0 OR ASCAN(aLibs,"RegisterHotKey",1,0,1,7) = 0
DECLARE INTEGER RegisterHotKey IN Win32API ;
INTEGER hWnd, INTEGER id,;
INTEGER fsModifiers, INTEGER vk
ENDIF
RegisterHotKey(_SCREEN.HWnd, 1002, 0, VK_SNAPSHOT)
RegisterHotKey(_SCREEN.HWnd, 1003, MOD_CONTROL, VK_SNAPSHOT)
RegisterHotKey(_SCREEN.HWnd, 1004, MOD_ALT, VK_SNAPSHOT)
ENDIF

RETURN

le 13/05/2008, FredA a écrit :
bien vu Christophe :)
le 09/06/2008, François 37 a écrit :
Un seul petit souci Fred :
même si on ne relache pas, quitter le programme rétablit le printscreen

Christophe idem : si on quitte le programme, le printscreen est rétabli ...

N'y a t il pas moyen d'inhiber totalement le print screen ?

D'avance merci


Publicité

Les pubs en cours :

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2019.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3