Discussion :

[Alcatîz]

Bonjour à toutes et tous !

Je suis en train de terminer un petit utilitaire qui modifie à la volée les chemins dans tous les fichiers raccourcis de l'utilisateur courant.

Le programme s'exécute sans erreur de runtime mais refuse obstinément de modifier le path de la cible. Par contre, le répertoire de travail est bien modifié.

Vous trouverez ci-dessous, en condensé, le code (Pascal) du programme. L'erreur constatée est au niveau de la procédure RECHERCHE_RECURSIVE : la méthode ISHellLink::SetPath renvoie S_FALSE et je ne comprends pas pourquoi.

Pourriez-vous jeter un oeil sur le code pour voir si je n'ai pas fait une erreur de flag quelque part, ou pour me dire si ma méthode n'est pas bonne ?

Merci d'avance !

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
Var hRes : hResult;
    BufferChemin : Array [0..MAX_PATH] of Char;
    Memory : PIMalloc;
    pIdL : LPITEMIDLIST;
    SL : pIShellLink;
    PF : pIPersistFile;
    w : Array [0..MAX_PATH] of WChar;
    szChemin : Array [0..MAX_PATH] of Char;
    Win32FindData : tWin32FindData;


Procedure RECHERCHE_RECURSIVE;
Begin

  ...

  { Lorsqu'un fichier *.lnk est trouvé, BufferChemin est son path }
  MultiByteToWideChar(CP_ACP,0,BufferChemin,-1,@w,SizeOf(w));
  if PF^.Vtbl^.Load(PF,@w,STGM_READWRITE) = S_OK then
    begin
      if SL^.Vtbl^.Resolve(SL,0,SLR_NO_UI or SLR_UPDATE) = S_OK then
        begin
          { 1. Modification du chemin }
          if SL^.Vtbl^.GetPath(SL,szChemin,SizeOf(szChemin),Win32FindData,SLGP_RAWPATH) = S_OK then
            begin

              ...

              { Modification de szChemin }

              ...

              SL^.Vtbl^.SetPath&#40;SL,szChemin&#41;;   <=== RENVOIE S_FALSE
            end;

          &#123; 2. Modification du dossier de travail &#125;
          if SL^.Vtbl^.GetWorkingDirectory&#40;SL,szChemin,SizeOf&#40;szChemin&#41;&#41; = S_OK then
            begin

              ...

              &#123; Modification de szChemin &#125;

              ...

              SL^.Vtbl^.SetWorkingDirectory&#40;SL,szChemin&#41;;   <=== ET ICI C'EST OK
            end;

          &#123; 3. Enregistrement des changements &#125;
          PF^.Vtbl^.Save&#40;PF,Nil,False&#41;;
        end;
    end;


  ...

End;



Begin   &#123; Main &#125;
  if CoInitialize&#40;Nil&#41; = S_OK then
    begin
      if CoCreateInstance&#40;CLSID_ShellLink,Nil,CLSCTX_INPROC_SERVER or
                          CLSCTX_LOCAL_SERVER,IID_IShellLink,SL&#41; = S_OK then
        begin
          if SL^.Vtbl^.QueryInterface&#40;SL,IID_IPersistFile,PF&#41; = S_OK then
            begin
              if SHGetMalloc&#40;@Memory&#41; = NOERROR then
                begin
                  SHGetSpecialFolderLocation&#40;0,CSIDL_DESKTOPDIRECTORY,pIdL&#41;;
                  if pIdL <> Nil then
                    begin
                      SHGetPathFromIDList&#40;pIdL,BufferChemin&#41;;

                      &#123; Recherche de tous les fichiers *.lnk &#125;
                      RECHERCHE_RECURSIVE&#40;BufferChemin&#41;;

                      Memory^.Vtbl^.Free&#40;Memory,pIdL&#41;;
                    end;
                  Memory^.Vtbl^.Release&#40;Memory&#41;;
                end;
              PF^.Vtbl^.Release&#40;PF&#41;;
            end;
          SL^.Vtbl^.Release&#40;SL&#41;;
        end;
      CoUninitialize;
    end;
End.

[M.Dlb]

Salut

Plusieurs questions :

- Peux-tu récupérer un code d'erreur après ton appel à setPath ?
- Est-ce que ce n'est pas setRelativePath, la bonne fonction ? (questio bête, mais je ne sais pas la différence entre les deux...)
- As-tu essayé en récupérant un path au format UNC au lieu de raw ?

SLGP_SHORTPATH
Retrieves the standard short (8.3 format) file name.
SLGP_UNCPRIORITY
Retrieves the Universal Naming Convention (UNC) path name of the file.
SLGP_RAWPATH
Retrieves the raw path name. A raw path is something that might not exist and may include environment variables that need to be expanded.

En espérant que ca pourra t'aider

A bientôt

[Alcatîz]

Un tout grand merci pour ta réponse !

Le problème venait du fait que SetPath ne s'exécute que si le path à enregistrer est valide.

Comme le programme est destiné à modifier les raccourcis dans les profils locaux suite à des modifications de mappings réseaux, il ne pourra être exécuté qu'après ces modifications.

J'aurais dû y penser...