Soyez le premier à donner votre avis sur cette source.
Snippet vu 9 938 fois - Téléchargée 38 fois
'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
21 août 2004 à 10:55
21 août 2004 à 03:27
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
26 avril 2004 à 04:43
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
26 avril 2004 à 04:16
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 :)
4 févr. 2004 à 12:36
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.