Récupérer la cible d'un raccourci

Question

Bonjour &#224; tous et merci de vous int&#233;resser &#224; mon probl&#232;me 
Je suis en quelque sorte en train de reproduire le comportement de l'outil MsConfig de Windows XP, afin de g&#233;rer les modules charg&#233;s au d&#233;marrage du syst&#232;me. Pas de probl&#232;me en ce qui concerne les entr&#233;es de la base de registre, en revanche, je bloque sur les fichiers LNK du menu d&#233;marrer. 
Voici le probl&#232;me:
Je ne trouve aucun moyen de r&#233;cup&#233;rer la cible d'un raccourci.
En fait, une technique fonctionne, mais elle recqui&#232;re l'intervention de l'utilisateur: &#224; l'aide du composant opendialog, si l'on s&#233;lectionne un fichier lnk, le opendialog.filename devient la cible et non le fichier lnk... Y-a t'il un moyen de simuler cette action?
Quelqu'un conna&#238;t-il une fa&#231;on de r&#233;cup&#233;rer cette fichue cible, que ce soit en dos, vbs, ou pascal.
Malheureusement, l'utilisation de IShellLink m'est impossible sous Lazarus...
Je vais continuer &#224; chercher, et vous tiendrai au courant, si quelqu'un peut m'&#233;clairer, je l'en remercie par avance

DRJEROME · Answer

avec "IShellLink" c'est connu ...mais sans "IShellLink"... il va falloir s'accrocher, je regarde de mon c&#244;t&#233;, &#231;a m'int&#233;resse

DrJerome

fgsav · Answer

Merci, rien de neuf de mon c&#244;t&#233;

cs_Delphiprog · Answer

Voici la page qu'il vous faut : Delphi 6 Shell Links extraite du livre Delphi 6 developers's guide et &#233;crite par deux gourous du Delphi  Xavier Pacheco et  Steve Teixeira
Voir, notamment, l'usage de la fonction GetShellLinkInfo.

<hr color="#008000">Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

fgsav · Answer

Merci Delphiprog, je ne connaissais pas ce document, je le met de c&#244;t&#233; 
Malheureusement l'utilisation de IShellLink semble ne pas fonctionner avec Lazarus (Identifier not found), malgr&#233; la d&#233;claration de ShlObj dans les 'uses'.
Je cherche de ce c&#244;t&#233; l&#224; aussi...

fgsav · Answer

Kikou, toujours po  trouv&#233; de solution &#224; ce probl&#232;me, mais une fa&#231;on de r&#233;cup&#233;rer la totalit&#233; d&#233; raccourcis du syst&#232;me (lol) via un script WSH &#233; la classe WMI Win32_ShortcutFile:
_________________________________________________________________

On Error Resume Next


Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20


arrComputers = Array("NOM_POSTE")
For Each strComputer In arrComputers
   WScript.Echo
   WScript.Echo "=========================================="
   WScript.Echo "Computer: " & strComputer
   WScript.Echo "=========================================="


   Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\CIMV2")
   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_ShortcutFile", "WQL", _
                                          wbemFlagReturnImmediately + wbemFlagForwardOnly)


   For Each objItem In colItems
      WScript.Echo "AccessMask: " & objItem.AccessMask
      WScript.Echo "Archive: " & objItem.Archive
      WScript.Echo "Caption: " & objItem.Caption
      WScript.Echo "Compressed: " & objItem.Compressed
      WScript.Echo "CompressionMethod: " & objItem.CompressionMethod
      WScript.Echo "CreationClassName: " & objItem.CreationClassName
      WScript.Echo "CreationDate: " & WMIDateStringToDate(objItem.CreationDate)
      WScript.Echo "CSCreationClassName: " & objItem.CSCreationClassName
      WScript.Echo "CSName: " & objItem.CSName
      WScript.Echo "Description: " & objItem.Description
      WScript.Echo "Drive: " & objItem.Drive
      WScript.Echo "EightDotThreeFileName: " & objItem.EightDotThreeFileName
      WScript.Echo "Encrypted: " & objItem.Encrypted
      WScript.Echo "EncryptionMethod: " & objItem.EncryptionMethod
      WScript.Echo "Extension: " & objItem.Extension
      WScript.Echo "FileName: " & objItem.FileName
      WScript.Echo "FileSize: " & objItem.FileSize
      WScript.Echo "FileType: " & objItem.FileType
      WScript.Echo "FSCreationClassName: " & objItem.FSCreationClassName
      WScript.Echo "FSName: " & objItem.FSName
      WScript.Echo "Hidden: " & objItem.Hidden
      WScript.Echo "InstallDate: " & WMIDateStringToDate(objItem.InstallDate)
      WScript.Echo "InUseCount: " & objItem.InUseCount
      WScript.Echo "LastAccessed: " & WMIDateStringToDate(objItem.LastAccessed)
      WScript.Echo "LastModified: " & WMIDateStringToDate(objItem.LastModified)
      WScript.Echo "Manufacturer: " & objItem.Manufacturer
      WScript.Echo "Name: " & objItem.Name
      WScript.Echo "Path: " & objItem.Path
      WScript.Echo "Readable: " & objItem.Readable
      WScript.Echo "Status: " & objItem.Status
      WScript.Echo "System: " & objItem.System
      WScript.Echo "Target: " & objItem.Target
      WScript.Echo "Version: " & objItem.Version
      WScript.Echo "Writeable: " & objItem.Writeable
      WScript.Echo
   Next
Next



Function WMIDateStringToDate(dtmDate)
WScript.Echo dtm: 
 WMIDateStringToDate = CDate(Mid(dtmDate, 5, 2) & "/" & _
 Mid(dtmDate, 7, 2) & "/" & Left(dtmDate, 4) _
 & " " & Mid (dtmDate, 9, 2) & ":" & Mid(dtmDate, 11, 2) & ":" & Mid(dtmDate,13, 2))
End Function
_________________________________________________________________

Reste &#224; savoir comment l'adapter afin de r&#233;cup&#233;rer objItem.Target &#224; partir de objItem.Name sp&#233;cifique :p

Récupérer la cible d'un raccourci

5 réponses

Votre réponse

Discussions similaires