Exécuter un raccourci (lnk)
MacgyverJC
-
28 nov. 2001 à 10:22
EmmanuelRietsch Messages postés 1 Date d'inscription jeudi 10 octobre 2002 Statut Membre Dernière intervention 10 octobre 2002 - 10 oct. 2002 à 16:06
EmmanuelRietsch Messages postés 1 Date d'inscription jeudi 10 octobre 2002 Statut Membre Dernière intervention 10 octobre 2002 - 10 oct. 2002 à 16:06
A voir également:
- Exécuter un raccourci (lnk)
- Raccourci vba ✓ - Forum Visual Basic 6
- Impossible d'executer le code en mode arrêt ✓ - Forum Visual Basic
- [Catégorie modifiée .Net -> VBA] VBA Excel Erreur 17 suite fausse manip en pas à - Forum VBA Office (Excel, Word ...)
- Errordomain=nscocoaerrordomain&errormessage=impossible de trouver le raccourci spécifié.&errorcode=4 ✓ - Forum Javascript / DHTML
- Comment ouvrir un fichier lnk ✓ - Forum VB.NET
1 réponse
EmmanuelRietsch
Messages postés
1
Date d'inscription
jeudi 10 octobre 2002
Statut
Membre
Dernière intervention
10 octobre 2002
10 oct. 2002 à 16:06
10 oct. 2002 à 16:06
Salut a vous Voila la solution pour les LNK
Je sais sais presque un ans apres mais j'ai apeine lu
A plus
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function ShellExecute Lib "shell32" _
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
Private Const SW_SHOWNORMAL As Long = 1
Private Const SW_SHOWMAXIMIZED As Long = 3
Private Const SW_SHOWDEFAULT As Long = 10
Private Const SE_ERR_NOASSOC As Long = 31
Private Sub Command1_Click()
ShellExecute hwnd, vbNullChar, "11.lnk", vbNullChar, vbNullChar, SW_SHOWNORMAL
End Sub
Private Sub Form_Load()
Dim hWndDesk As Long
Dim success As Long
hWndDesk = GetDesktopWindow()
End Sub
Je sais sais presque un ans apres mais j'ai apeine lu
A plus
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function ShellExecute Lib "shell32" _
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
Private Const SW_SHOWNORMAL As Long = 1
Private Const SW_SHOWMAXIMIZED As Long = 3
Private Const SW_SHOWDEFAULT As Long = 10
Private Const SE_ERR_NOASSOC As Long = 31
Private Sub Command1_Click()
ShellExecute hwnd, vbNullChar, "11.lnk", vbNullChar, vbNullChar, SW_SHOWNORMAL
End Sub
Private Sub Form_Load()
Dim hWndDesk As Long
Dim success As Long
hWndDesk = GetDesktopWindow()
End Sub
