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

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

Какая функция создает ярлык?

TStas ©   (2005-08-19 01:54:00) 

Собственно и весь вопрос. Как сервером сценариев это делать знаю и очень просто. Но почему-то ни справки Delphi ни поиск по форуму ничего не дал

---

TStas   (2005-08-19 02:17:00) [1]

Спасибо огромное

---

TUser   (2005-08-19 02:15:00) [2]

http://www.yandex.ru/yandsearch?stype=&nl=0&text=%F1%EE%E7%E4%E0%F2%FC+%FF%F0%EB%FB%EA+delphi

---

Defunct   (2005-08-19 02:12:00) [3]

uses ComObj, ActiveX, ShlObj;

function CreateShortcut(const CmdLine, Args, WorkDir, LinkFile: String):
                      IPersistFile;
var
  MyObject: IUnknown;
  MySLink: IShellLink;
  MyPFile: IPersistFile;
  WideFile: WideString;
begin
  MyObject := CreateComObject(CLSID_ShellLink);
  MySLink := MyObject as IShellLink;
  MyPFile := MyObject as IPersistFile;
  with MySLink do
  begin
     SetPath(PChar(CmdLine));
     SetArguments(PChar(Args));
     SetWorkingDirectory(PChar(WorkDir));
  end;
  WideFile := LinkFile;
  MyPFile.Save(PWChar(WideFile), False);
  Result := MyPFile;
end;

пример применения:

CreateShortcut( FileName, '',  Dir, ShortCutName );

---

Наверх