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

Вниз

Какая функция создает ярлык?   Найти похожие ветки 

← →
TStas ©   (2005-08-19 01:54) [0]

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

---

← →
Defunct ©   (2005-08-19 02:12) [1]

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 );

---

← →
TUser ©   (2005-08-19 02:15) [2]

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

---

← →
TStas ©   (2005-08-19 02:17) [3]

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

---

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

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

Наверх

Память: 0.44 MB
Время: 0.011 c