Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  3 914

•  TDictionary Custom Sort  6 013

•  Fast Watermark Sources  5 804

•  3D Designer  8 616

•  Sik Screen Capture  6 142

•  Patch Maker  6 579

•  Айболит (remote control)  6 564

•  ListBox Drag & Drop  5 428

•  Доска для игры Реверси  95 309

•  Графические эффекты  6 776

•  Рисование по маске  5 940

•  Перетаскивание изображений  4 948

•  Canvas Drawing  5 324

•  Рисование Луны  5 051

•  Поворот изображения  4 592

•  Рисование стержней  3 249

•  Paint on Shape  2 492

•  Генератор кроссвордов  3 378

•  Головоломка Paletto  2 691

•  Теорема Монжа об окружностях  3 463

•  Пазл Numbrix  2 288

•  Заборы и коммивояжеры  2 971

•  Игра HIP  1 937

•  Игра Go (Го)  1 854

•  Симулятор лифта  2 189

•  Программа укладки плитки  1 919

•  Генератор лабиринта  2 359

•  Проверка числового ввода  2 047

•  HEX View  2 366

•  Физический маятник  1 999

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Создание ярлыка для конкретного файла 2



Автор: Lipskiy

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Создание ярлыка для конкретного файла (2)

Процедура создает ярлык к файлу FilePath,
располагает ярлык в папке ShortcutPath,
заносит в ярлык поля: рабочей директории WorkDir,
текстового описания Description,
параметров запуска Params.

Зависимости: ShlObj, ActiveX, ComObj
Автор:       lipskiy, lipskiy@mail.ru, ICQ:51219290, Санкт-Петербург
Copyright:   Из FAQ
Дата:        10 мая 2002 г.
***************************************************** }

procedure CreateShortcut(const FilePath, ShortcutPath,
  WorkDir, Description, Params: string);
var
  obj: IUnknown;
  isl: IShellLink;
  ipf: IPersistFile;
begin
  obj := CreateComObject(CLSID_ShellLink);
  isl := obj as IShellLink;
  ipf := obj as IPersistFile;
  with isl do
  begin
    SetPath(PChar(FilePath));
    SetArguments(PChar(Params));
    SetDescription(PChar(Description));
    SetWorkingDirectory(PChar(WorkDir));
  end;
  ipf.Save(PWChar(WideString(ShortcutPath)), False);
end;

Пример использования:

// пример создания ярлыка на рабочем столе
var
  UserDesktop: string;
  R: TRegIniFile;
begin
  R := TRegIniFile.Create('');
  with R do
  begin
    RootKey := HKEY_CURRENT_USER;
    UserDesktop :=
      ReadString('Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders',
      'desktop', '');
    Free;
  end;

  CreateShortcut(Application.ExeName, UserDesktop +
    '\Название ярлыка.lnk', '', '', '');
end;




Похожие по теме исходники

Создание таблиц в Paradox

Нейросеть для распознавания образов

Механизм станка качалки для нефти

Весы для взвешивания

 

Кувшины для воды

Доска для игры Реверси

Разбиение файла на части

Текст внутри файла

 



Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте