user_mobilelogo
Etoiles inactivesEtoiles inactivesEtoiles inactivesEtoiles inactivesEtoiles inactives
 

 

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA"
(ByVal hwnd As LongByVal lpOperation As StringByVal lpFile As
StringByVal lpParameters As StringByVal lpDirectory As StringByVal
nShowCmd As LongAs Long
Public Sub test()
Dim Prog As String, Chemin As String, Ret As Long
Chemin = "E:Program FilesMicrosoft OfficeOffice"
Prog = "Cgmimp32.hlp"
Ret = ShellExecute(Ret, "open", Prog, "", Chemin, 1)
'Pour fermer : remplacer Open par close
End Sub

Statistiques

Aujourd'hui967
Hier2616
Cette semaine9218
Ce mois47464
Total depuis 200411092453

19
visiteurs actuellement en ligne