1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Afficher le bureau a partir de son application

Afficher le bureau a partir de son application

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 273 fois - Téléchargée 36 fois

Commenter

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

Signaler
Messages postés
278
Date d'inscription
vendredi 16 avril 2004
Statut
Membre
Dernière intervention
27 avril 2006
 1
j'ai pas essayer mai l'idée est bonne suffisait d'y pensser lol :D
Signaler
Messages postés
2215
Date d'inscription
mardi 11 novembre 2003
Statut
Membre
Dernière intervention
16 juillet 2009
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
Signaler
Messages postés
278
Date d'inscription
vendredi 16 avril 2004
Statut
Membre
Dernière intervention
27 avril 2006
 1
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
Signaler
Messages postés
278
Date d'inscription
vendredi 16 avril 2004
Statut
Membre
Dernière intervention
27 avril 2006
 1
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 :)
Signaler
Messages postés
28
Date d'inscription
dimanche 25 mai 2003
Statut
Membre
Dernière intervention
29 août 2008
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
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 (pcpunch)