Форум: "Начинающим";
Текущий архив: 2006.04.30;
Скачать: [xml.tar.bz2];

Вниз

Как в ярлык запихнуть иконку?   Найти похожие ветки 

← →
elfebet ©   (2006-04-14 11:48) [0]

Как? вот я программно создаю ярлыки

procedure CreateShortCut(ShortCutName, Parameters, FileName: string);
var ShellObject: IUnknown;
 ShellLink: IShellLink;
 PersistFile: IPersistFile;
 FName: WideString;
begin
 ShellObject := CreateComObject(CLSID_ShellLink);
 ShellLink := ShellObject as IShellLink;
 PersistFile := ShellObject as IPersistFile;
 with ShellLink do
   begin
     SetArguments(PChar(Parameters));
     SetPath(PChar(FileName));
     SetWorkingDirectory(PChar(extractfilepath(FileName)));
     FName := ShortCutName;
     PersistFile.Save(PWChar(FName), False);
   end;
end;

А куда иконку прописать?

---

← →
begin...end ©   (2006-04-14 11:56) [1]

IShellLink.SetIconLocation

Пример: http://support.microsoft.com/default.aspx?scid=kb;en-us;179904

---

← →
elfebet ©   (2006-04-14 12:00) [2]

В примере написано как в ярлык запихнуть иконку из shell32.dll. Мне надо по проще т.е. иконка к примеру лежит на c:\icons\1.ico

---

← →
begin...end ©   (2006-04-14 12:08) [3]

> elfebet ©   (14.04.06 12:00) [2]
> Мне надо по проще т.е. иконка к примеру лежит на c:\icons\1.ico

Метод SetIconLocation, на который я уже сослался в [1], позволяет это сделать.

---

← →
elfebet ©   (2006-04-14 12:19) [4]

я не догнал как. какую библиотеку надо включить?
и где это прописать в выше сказанной процедуре?
как использовать? IShellLink.SetIconLocation("c:\icons\1.ico") - вот так?
Sorry за тупизм. Помогите плиз очень нужно.

---

← →
begin...end ©   (2006-04-14 12:30) [5]

> elfebet ©   (14.04.06 12:19) [4]

ShellLink.SetIconLocation("c:\icons\1.ico", 0)

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.04.30;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.01 c