[Alegun]

Сообщение от Gareth

...Каким образом я могу изменить иконку...

Код:

uses
 ShlObj, ComObj, ActiveX;
procedure TForm1.Button1Click(Sender: TObject);
var
   IObject: IUnknown;
   SLink: IShellLink;
   ShellFile: IPersistFile;
begin
   IObject:= CreateComObject(CLSID_ShellLink);
   SLink:= IObject as IShellLink;
   ShellFile:= IObject as IPersistFile;
   ShellFile.Load('Some.lnk', 0);
   SLink.SetIconLocation('C:\Documents and Settings\icn\icon9.ico', 0);
   ShellFile.Save(PWChar(WideString('Some.lnk')), false);
end;

Проверено под ХР на D7