Ich habe es jetzt so gemacht.
Delphi-Quellcode:
if ContainsText(sTarget, 'Icon') then
gS[nCount].ShellTo := Lowercase(sFullName)
else
gS[nCount].ShellTo := Lowercase(sTarget);
Wenn Text Icon im Namen vorkommt wird der Link verwendet.
Andernfalls der korrekte Exe Pfad.
gruss