Afficher le bureau a partir de son application

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 938 fois - Téléchargée 38 fois

Contenu du snippet

Quand on click sur l icone bureau de la barre de lancement rapide (quick launch), ca affiche le bureau!!!
le fichier de ce racourci se trouve dans :
"C:\Documents and Settings\Nom utilisateur\Application Data\Microsoft\Internet Explorer\Quick Launch\bureau.scf"

l'astuce c'est de recuperer le nom de l utilisateur, et de lancer un shellexecute sur ce fichier!!!

Source / Exemple :


'dans un module
'declaration  api
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

'---------------------------------------------------------------------------------'
'dans la form
Private Sub Command1_Click()
'recuperation du nom de l'utilisateur avec l'api GetUserName
Dim stTmp As String, lgTmp As Long
stTmp = Space$(250)
lgTmp = 251
Call GetUserName(stTmp, lgTmp)
UserName = Mid$(stTmp, 1, InStr(1, stTmp, Chr$(0)) - 1)
'lancement du ficier bureau.scf placer dans les sous dossier
'de l'utilisateur courant "\Application Data\Microsoft\Internet Explorer\Quick Launch\"
ShellExecute Me.hwnd, "open", "C:\Documents and Settings\" & UserName & "\Application Data\Microsoft\Internet Explorer\Quick Launch\bureau.scf", "", "", SW_SHOW
End Sub

Conclusion :


Voila j'espere que cette astuce est pas sur le site (lol g pas regarder) et quelle vous sera utile???

A voir également

Ajouter un commentaire Commentaires
FeelCode Messages postés 278 Date d'inscription vendredi 16 avril 2004 Statut Membre Dernière intervention 27 avril 2006 1
21 août 2004 à 10:55
j'ai pas essayer mai l'idée est bonne suffisait d'y pensser lol :D
MadM@tt Messages postés 2167 Date d'inscription mardi 11 novembre 2003 Statut Membre Dernière intervention 16 juillet 2009 1
21 août 2004 à 03:27
Bah moi j'utilise une tactique encore plus simple, le fichier .scf je le trimballe toujours avec mon exe et dès que je veux afficher le bureau je fait :
Shell app.path+"\Bureau.scf"
et ça marche nickel sous toutes les versions.Seul défaut il faut se trimballer le fichier, mais peut-etre qu'en le mettant dans les ressources.... Je ne sais pas je n'ai jamais manipulé les ressources d'un .exe
@ +
MadMatt
FeelCode Messages postés 278 Date d'inscription vendredi 16 avril 2004 Statut Membre Dernière intervention 27 avril 2006 1
26 avril 2004 à 04:43
Pour abhoroyo et pcpunch :P

il te faut rajouter sa dans le module
Public Const SW_SHOW = 7

vala :)
oublier pas de mettre option explicit dans vos form et vos module mhmm :D
FeelCode Messages postés 278 Date d'inscription vendredi 16 avril 2004 Statut Membre Dernière intervention 27 avril 2006 1
26 avril 2004 à 04:16
Et bien vloila ce qu'il me manquai comme paramettre pour ce put*** de racourci lol

Je vai l'utiliser dans la petite apli que je code en ce moment merci :)

bon persone avais mis de note :?
Pour m'avoir donnée le paramettre je te mai un 10 ;D

mai je le trouve très bien ce code aussi :)
abhoryo Messages postés 28 Date d'inscription dimanche 25 mai 2003 Statut Membre Dernière intervention 29 août 2008
4 févr. 2004 à 12:36
chez moi il y a un probleme; il ne m'ouvre que "C:\Documents and Settings" & username et il ne prend pas en compte le reste
Afficher les 16 commentaires

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.