1. Accueil
  2. Tous les snippets
  3. Snippets Delphi / Pascal
  4. Désactiver le bureau de windows

Désactiver le bureau de windows

0/5 (8 avis)

Snippet vu 6 045 fois - Téléchargée 32 fois

Commenter

Contenu du snippet

C'est un petit morceau de code que j'ai trouvé sur le net, il permet de desactivé le bureau de Windows c'est-à-dire que l'utilisateur n'a plus accés aux icones, au menu contextuel...

Source / Exemple : 


{Disable:}
EnableWindow(FindWindowEx(FindWindow
('Progman', nil), HWND(0), 'ShellDll_DefView', nil),
FALSE) ;

{Enable:}
EnableWindow( FindWindowEx( FindWindow
('Progman', nil), HWND(0), 'ShellDll_DefView', nil),
TRUE) ;

A voir également

Ajouter un commentaire Commentaires
nethacker
Messages postés
288
Date d'inscription
mardi 2 mai 2006
Statut
Membre
Dernière intervention
12 octobre 2011
1 mai 2007 à 15:40
on peut tout reduire on mettant le kill explorer.exe !
josswel
Messages postés
67
Date d'inscription
lundi 23 mai 2005
Statut
Membre
Dernière intervention
3 juin 2009
15 juin 2005 à 07:17
je suis peut etre debutant en delphi mais quand meme
il faut que m=vous vous metier d'accord maurico et wolf
car pour toi wolf on a :
"Désactiver la barre:
ShowWindow(FindWindow('Shell_TrayWnd',nil),SW_HIDE);" or ce meme code se trouve dans celui de maurico dans : "Reactiver le tout:
ShowWindow( FindWindow('Progman', 'Program Manager'), SW_HIDE );
ShowWindow( FindWindow('Shell_TrayWnd', nil), SW_HIDE );" . ou je me trompe peut etre ? alors si c'est le cas je m'excuse et ce remarque est comme non avenue
wolf691300
Messages postés
41
Date d'inscription
mardi 15 juin 2004
Statut
Membre
Dernière intervention
31 mars 2006
24 juil. 2004 à 17:35
Je passe encore plus court que Mauricio qui l'a très bien fais aussi !
Désactiver la barre:
ShowWindow(FindWindow('Shell_TrayWnd',nil),SW_HIDE);

Réactiver la barre:
ShowWindow(FindWindow('Shell_TrayWnd',nil),SW_RESTORE);

Voilà, si il y a encore mieux à faire, alors je souhaite qu'on me le raconte. Bon amusement à tous...
Wolf691300
cs_MAURICIO
Messages postés
2106
Date d'inscription
mardi 10 décembre 2002
Statut
Modérateur
Dernière intervention
15 décembre 2014
 5
6 juil. 2004 à 18:16
Aller, je vous donne mon code qui marche pour toutes les versions :

Desactiver la barre + desktop:
ShowWindow( FindWindow('Progman', 'Program Manager'), SW_SHOWNORMAL );
ShowWindow( FindWindow('Shell_TrayWnd', nil), SW_SHOW );


Reactiver le tout:
ShowWindow( FindWindow('Progman', 'Program Manager'), SW_HIDE );
ShowWindow( FindWindow('Shell_TrayWnd', nil), SW_HIDE );
karimail
Messages postés
1
Date d'inscription
dimanche 4 juillet 2004
Statut
Membre
Dernière intervention
4 juillet 2004
4 juil. 2004 à 23:22
si tu as une pomme et moi une autre et si en fait l'échange alors chacun aura une pomme mais si tu as une idée et moi une autre et en fait l'échange alors chacun aura deux idées n'est ce pas Delphiprog
Merci pour toi hamid
krym001@yahoo.fr
Afficher les 8 commentaires
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_flo1984)