Discussion :

[THALES]

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.

[Djob]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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);
        }
}

[THALES]

Merci Djob

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

Merci encore ...