Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.09.24;
Скачать: [xml.tar.bz2];

Вниз

ярлыки   Найти похожие ветки 

 
Adios ©   (2006-09-06 18:08) [0]

как програмно можно присвоить выбранную иконку ярлыку?


 
RASkov   (2006-09-06 21:28) [1]

Вот кусок кода (неполный, что убрал к сабжу не относится)... может что и нароешь

procedure CreateShortcut(const FilePath, ShortcutPath,
          WorkDir, Description, Params: String; const NIco: Integer=0);
var Obj: IUnknown;
begin
.............
 with (Obj as IShellLink) do begin
  SetPath(PChar(FilePath));
  SetArguments(PChar(Params));
  SetDescription(PChar(Description));
  SetWorkingDirectory(PChar(WorkDir));
  SetIconLocation(PChar(MyGetSystemDir+"\SHELL32.dll"), NIco);
 end;
 (Obj as IPersistFile).Save(PWChar(WideString(ShortcutPath)), False);
......
end;



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

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

Наверх




Память: 0.44 MB
Время: 0.047 c
2-1157430879
nstur
2006-09-05 08:34
2006.09.24
Перемещение формы не используя заголовок


2-1157399862
santey
2006-09-04 23:57
2006.09.24
из delphi в excel


1-1155217393
xen
2006-08-10 17:43
2006.09.24
работа с файлами


2-1157571270
redlord
2006-09-06 23:34
2006.09.24
моргание Timage при refresh


15-1157519711
Pazitron_Brain
2006-09-06 09:15
2006.09.24
Коммунальная служба не дает доступ к крыше!





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский