Discussion :

[Nicolas Coolman]

Hello,

(Développement sous RAD Studio 2012)

Pour obtenir le fichier cible d'un raccourci du Bureau, j'utilise cette fonction :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
function GetTarget(FicSource: string): string;
// ============================================
// Renvoie le fichier sur lequel pointe le LNK
// ============================================
var
      ShellLink: IShellLink;
      RaccourciWC: array [0 .. MAX_PATH] of CHAR;
      pfd: TWin32FindData;
begin
      ShellLink := CreateComObject(CLSID_ShellLink) as IShellLink;
      (ShellLink as IPersistFile).Load(StringToOleStr(FicSource), STGM_READ);
      ShellLink.GetPath(RaccourciWC, MAX_PATH, pfd, SLGP_UNCPRIORITY);
      Result := String(RaccourciWC);
end;

Pour Internet Explorer la fonction GetTarget appliquée à son raccourci renvoie ceci

C:\Program Files (x86)\Internet Explorer\iexplore.exe

Une recente infection utilise le contenu de la cible du raccourci afin d'effectuer une redirection du navigateur

En fait si vous modifiez la cible du raccourci de cette façon :

"C:\Program Files (x86)\Internet Explorer\iexplore.exe" http://www.22find.com

En cliquant sur le raccourci du Bureau, vous êtes immédiatement redirigé vers "http://www.22find.com"

Helas la fonction GetTarget ne prends pas en compte la chaîne "http://www.22find.com" et renvoie :

C:\Program Files (x86)\Internet Explorer\iexplore.exe

Vous l'avez sûrement compris, je sollicite votre aide afin d'avoir une fonction qui puisses me renvoyer cela :

"C:\Program Files (x86)\Internet Explorer\iexplore.exe" http://www.22find.com

Merci d'avance pour vos suggestions.

A bientôt...

[Cl@udius]

Salut

L'interface IShellLink propose également la méthode GetArguments.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
var
  // ...
  LParams: array [0.. MAX_PATH] of Char;
begin
  // ...
  ShellLink.GetPath(RaccourciWC, MAX_PATH, pfd, SLGP_UNCPRIORITY);
  ShellLink.GetArguments(LParams, MAX_PATH);
  Result := string(RaccourciWC) + ' ' + string(LParams);
end;

@+ Claudius

[Nicolas Coolman]

Hello Cl@udius,

Effectivement !

Un grand merci, cela fonctionne parfaitement.

A bientôt...