Il y a un bug dans Delphi 5 qui empêche FileExists de fonctionner avec les chemis relatifs comme %SystemRoot%\syswow64\shell32.dll.
On a donc un nouveau service qui encapsule la fonction ExpandEnvironmentStrings de Windows et ici nous renvoie C:\Windows\syswow64\shell32.dll :
Code : Tout sélectionner
//------------------------------------------------------------------------------
// XT400 - XSF_GetAbsoluteName - Renvoie le nom absolu
//------------------------------------------------------------------------------
function XSF_GetAbsoluteName(Relative_Path: String): String;
const
Max_Size = 32 * 1024;
begin
SetLength(Result, Max_Size);
SetLength(Result, ExpandEnvironmentStrings(PChar(Relative_Path), @Result[1], Length(Result)));
Result := PChar(Result);
end;
Il est apparu durant un test que lorsqu'une icône était spécifiée pour un Raccourci, il n'était plus possible de revenir à l'icône par défaut.
Comme ce manque n'a jamais été remarqué depuis sept ans que les Raccourcis existent, le champ a simplement été activé et la réinitialisation se fera donc manuellement en effaçant le nom du fichier : (Si comme moi, vous faites le test dans The X-Tools 3 vous serez bons pour une édition manuelle du fichier.
)L'édition (création et modification) des Raccourcis est opérationelle. Pour des raisons de simplification du code, attribuer une autre icône à un Raccourci n'efface pas l'icône précédente, ce qui résulte en une fuite mémoire d'environ 1 Ko de RAM à chaque modification pendant une session.
