Как изменить иконку ярлыка вручную через свойства в Windows?

Delphi , Синтаксис , Справочник по API-функциям

Как изменить иконку ярлыка вручную через свойства в Windows?

Приветствую! В данной статье мы рассмотрим, как изменить иконку ярлыка на рабочем столе или в другой директории, используя возможности Windows и язык программирования Object Pascal, который используется в среде разработки Delphi.

Описание проблемы

Вопрос пользователя заключается в том, как изменить иконку ярлыка, созданного с помощью интерфейсов IShellLink и IPersistFile. Пользователь хочет, чтобы иконка ярлыка для запускаемого файла (например, NOTEPAD.EXE) была изменена так, как это можно сделать вручную через свойства ярлыка.

Решение проблемы

Чтобы изменить иконку ярлыка, необходимо воспользоваться методом SetIconLocation интерфейса IShellLink. Этот метод позволяет указать путь к файлу иконки, который будет использован для создания ярлыка.

Пример кода

var
  MyObject: IUnknown;
  MySLink: IShellLink;
  MyPFile: IPersistFile;
begin
  MyObject := CreateComObject(CLSID_ShellLink);
  MySLink := MyObject as IShellLink;
  MyPFile := MyObject as IPersistFile;
  with MySLink do
  begin
    SetPath(PChar(sExePath + sExeName));
    SetArguments(PChar(sParams));
    SetWorkingDirectory(PChar(sExePath));
    // Устанавливаем новый файл иконки, второй параметр равен 0 (по умолчанию).
    SetIconLocation(PWideChar(sNewIconFileName), 0);
  end;
  MyPFile.Save(PWChar(WideString(GetDesktopFolder + '\MyApp.lnk')), False);
end;

В примере кода sNewIconFileName - это строка, содержащая путь к файлу иконки, который вы хотите установить для ярлыка. Файл иконки должен быть в формате .ico и находиться в доступной системе директории.

Альтернативный ответ и Подтвержденный ответ

В альтернативном ответе пользователь снова формулирует свою проблему, а в подтвержденном ответе приводится ссылка на документацию Microsoft, описывающую метод SetIconLocation, и пример его использования.

Важные замечания

При работе с иконками важно помнить, что иконки должны быть в формате Windows Icon (.ico) и иметь правильные размеры (обычно 16x16, 32x32, 48x48, 128x128 пикселей и так далее). Также стоит учитывать, что некоторые оболочки Windows могут не отображать измененную иконку сразу, и может потребоваться перезапуск оболочки или перезагрузка системы.

Надеемся, эта статья помогла вам понять, как изменить иконку ярлыка с помощью Object Pascal, и вы сможете применить полученные знания в своих проектах на Delphi.

Создано по материалам из источника по ссылке.

Описание: Вопрос пользователя касается процесса изменения иконки ярлыка на рабочем столе или в директории Windows с использованием программирования на Object Pascal в среде Delphi.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Справочник по API-функциям ::