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???
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.