Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как добавить иконку в панель быстрого запуска?


cypher ©   (2002-07-01 15:16:00) 

сабж.
Желательно API-функциями, а не мышкой =)


Almaz   (2002-07-03 00:59:00) [1]


> В зависимости от ОС путь будет различаться, но суть остается
> :)

А чтобы не зависить от ОС, можно использовать следующую функцию:

uses ... ,ShlObj, ShellApi;

...

function GetQuickLaunch: String;
var
pidl: PItemIDList;
Path: array[0..MAX_PATH] of Char;
begin
SHGetSpecialFolderLocation(0, CSIDL_APPDATA, pidl);
SHGetPathFromIDList(pidl, Path);
Result := Path + "\Microsoft\Internet Explorer\Quick Launch\";
end;


Удачи.


Volj   (2002-07-01 15:48:00) [2]

Простым копированием в
"C:\Documents and Settings\...\Application Data\Microsoft\Internet Explorer\Quick Launch\"
В зависимости от ОС путь будет различаться, но суть остается :)


Наверх

Титульная страница Поиск, карта сайта Написать письмо