 Как создать ярлык? |
ВНИМАНИЕ!
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
| Nowheremany |
 25.03.2003 11:01
Сообщение
#1
|
|
Гость  |
Помогите создать ярлык!
 Сообщение отредактировано: CJ - 29.02.2004 13:30 |
 
|
|
  |
Ответов(1 - 2)
| trminator |
3.05.2003 15:50
Сообщение
#2
|
|
Четыре квадратика  Группа: Пользователи Сообщений: 579 Пол: Мужской Репутация:  4  |
http://delphi.aiq.ru/raznoe/raznoe3.htm, вопрос #30
-------------------- Закон добровольного труда Зимерги:
Люди всегда согласны сделать работу, когда необходимость в этом уже отпала |
   |
|
| Max |
20.02.2004 23:25
Сообщение
#3
|
 Группа: Пользователи Сообщений: 3 Репутация: 0 |
Но это ты создашь его программно!
Код uses ShlObj, ComObj, ActiveX; procedure CreateLink(const PathObj, PathLink, Desc, Param: string); var IObject: IUnknown; SLink: IShellLink; PFile: IPersistFile; begin IObject := CreateComObject(CLSID_ShellLink); SLink := IObject as IShellLink; PFile := IObject as IPersistFile; with SLink do begin SetArguments(PChar(Param)); SetDescription(PChar(Desc)); SetPath(PChar(PathObj)); end; PFile.Save(PWChar(WideString(PathLink)), FALSE); end; Сообщение отредактировано: volvo - 5.01.2005 14:43 |
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 21.06.2025 6:56 |