getShortcut

[jcaspar]

Hello  to the user of the Forum

I'm trying to realize a  script , who should read shortcuts 

in directory, list them in a gui, the checkbox  allow selection, in the case it's a directory open explorer  and if its a link

opens IE.

Could you please give me some advices to read the shortcut and to open the link

Thank you very much for your advices and tricks

 

Jean-Marc

expandcollapse popup

#include <Array.au3>
#include <File.au3>
#include <GUIConstantsEx.au3>
#include <GuiListview.au3>
#include <GUIConstantsEx.au3>
#include <MsgBoxConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>

Global $State
; Liste dans un tableau  les fichiers lnk du dossier temp
Global $a = _FileListToArray("c:\temp", "*.lnk", $FLTA_FILES)

If @error = 1 Then
 MsgBox($MB_SYSTEMMODAL, "", "Path was invalid.")
 Exit
EndIf
If @error = 4 Then
 MsgBox($MB_SYSTEMMODAL, "", "No file(s) were found.")
 Exit
EndIf

; création fenêtre
$hGUI = GUICreate("Lister les raccourcis", 400, 400)

Global $listview = GUICtrlCreateListView("Liste des fichiers", 0, 0, 400, 400, 2, $LVS_EX_CHECKBOXES)

; Liste les raccourcis
;local $aRaccourcis[ $a[0] ]
For $i = 1 To $a[0]
 ; $aRaccourcis[$i - 1] = GUICtrlCreateListViewItem($a[$i], $listview)
 _GUICtrlListView_AddItem($listview, $a[$i])

Next

GUIRegisterMsg($WM_NOTIFY, 'WM_NOTIFY')
GUISetState()

Do

Until GUIGetMsg() = $GUI_EVENT_CLOSE

Func WM_NOTIFY($hWnd, $iMsg, $wParam, $lParam)
 $hWndListView = $listview
 If Not IsHWnd($listview) Then $hWndListView = GUICtrlGetHandle($listview)

 Local $tNMITEMACTIVATE = DllStructCreate($tagNMITEMACTIVATE, $lParam)
 Local $hWndFrom = DllStructGetData($tNMITEMACTIVATE, 'hWndFrom')
 Local $Index = DllStructGetData($tNMITEMACTIVATE, 'Index')
 Local $Code = DllStructGetData($tNMITEMACTIVATE, 'Code')

 Switch $hWndFrom
  Case $hWndListView
   Switch $Code
    Case $LVN_ITEMCHANGING
     $State = _GUICtrlListView_GetItemChecked($hWndListView, $Index)
     ;_GUICtrlListView_GetItemText($hWndListView, $Index))
    Case $LVN_ITEMCHANGED
     If $State <> _GUICtrlListView_GetItemChecked($hWndListView, $Index) Then
      ;ConsoleWrite('Item' & ($Index + 1) & ' - ' & (Not $State) & @CR)
      ConsoleWrite(_GUICtrlListView_GetItemText($hWndListView, $Index) & " est à l'état: " & (Not $State) & @CR)
;~                      if liens vers fichier
;~       ShellExecute( _GUICtrlListView_GetItemText($hWndListView, $Index))

msgbox(64,"test",_GUICtrlListView_GetItemText($hWndListView, $Index))

Local $aDetails = FileGetShortcut(_GUICtrlListView_GetItemText($hWndListView, $Index))
    If Not @error Then
        MsgBox($MB_SYSTEMMODAL, "", "Chemin: " & $aDetails[0] & @CRLF & _
                "Espace de travail: " & $aDetails[1] & @CRLF & _
                "Arguments: " & $aDetails[2] & @CRLF & _
                "Description: " & $aDetails[3] & @CRLF & _
                "Icon filename: " & $aDetails[4] & @CRLF & _
                "Icon index: " & $aDetails[5] & @CRLF & _
                "Etat raccourci: " & $aDetails[6] & @CRLF)

EndIf

;~       Run("C:\WINDOWS\EXPLORER.EXE /n,/e,")
;~  _IECreate(_GUICtrlListView_GetItemText($hWndListView, $Index))

;~ if StringRegExp("test"," <A[^>]*?HREF\s*=\s*"([^"]+)"[^>]*?>([\s\S]*?)<\/A>")
;~ _IECreate($a[$i)
     EndIf
   EndSwitch
 EndSwitch
 Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_NOTIFY

Edited November 17, 2014 by jcaspar

[mLipok]

please read:
>How to post code on the forum