Lire le contenu dans fichier raccourci .lnk

Bonjour à tous,

En parcourant le forum, j'ai bien trouvé un post sur la création d'un raccourci, mais rien sur sa lecture.

J'aurais besoin de réccupérer le chemin et le nom du fichier pointé par un raccourci.

Si quelqu'un peu m'aider ....

Merci d'avance.

J'ai vu aussi le tutorial de CGI pour la création de liens, qui est très bien fait ...

j'ai ai déduit ce code , qui semble fonctionner pour les raccourcis standards...
(dsl : pas le temps de commenter/ se reporter au document de CGI pour plus d'infos)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
//pour compilation avec  BCB shlobj.h (cf document CGI)
#define NO_WIN32_LEAN_AND_MEAN
 
 
#include <shlobj.h>
 
String __fastcall GetFilePathFromLnk(String ShorcutPath)
{
             if(!FileExists(ShorcutPath)) return "";
 
             String ObjectPath="";
             IShellLink* psl;
             HRESULT hres;
             LPCOLESTR OleStrPath;
 
             CoInitialize(NULL);
             hres = CoCreateInstance(CLSID_ShellLink, NULL,CLSCTX_INPROC_SERVER,
                                 IID_IShellLink, (LPVOID *)&psl);
             if (SUCCEEDED(hres))
             {
                IPersistFile* ppf ;
 
 
                psl->QueryInterface(IID_IPersistFile,(LPVOID *)&ppf);
                OleStrPath = StringToOleStr(ShorcutPath);
                ppf->Load(OleStrPath,STGM_READ);
 
                char szFilePath[MAX_PATH];
                WIN32_FIND_DATA pfd;
                psl->GetPath(szFilePath,sizeof(szFilePath),&pfd,SLGP_RAWPATH);
                ObjectPath=String(szFilePath);
                ppf->Release();
             }
 
             psl->Release();
             CoUninitialize();
             return ObjectPath;
 
}

Utilisation :

Code:

1
2
3
4
5
6
7
8
9
10
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        if(OpenDialog1->Execute()){
 
          String ShorcutPath =  OpenDialog1->FileName;
          String FilePath = GetFilePathFromLnk(ShorcutPath);
          ShowMessage (ShorcutPath+" : "+FilePath);
        }
}

Merci Djob

Cela fonctionne parfaitement. Je vais creuser le sujet avec le tut de CGI.

Merci encore ...