Afficher le bureau a partir de son application

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

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.