Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.12.12;
Скачать: CL | DM;

Вниз

Ярлык   Найти похожие ветки 

 
Ivolg   (2004-10-28 11:04) [0]

Здраствуете!! Помогите создать ярлык с помошью делфи!! Спасибо!!


 
begin...end ©   (2004-10-28 11:07) [1]

С помощью CreateComObject, CLSID_ShellLink.

Подробнее - кто ищет, тот всегда найдёт. :-)


 
Ivolg   (2004-10-28 11:36) [2]

Вот нашёл, тока чёт непашет:
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;

тока незнаю как эту процедуру успользовать??


 
begin...end ©   (2004-10-28 11:55) [3]


> [2] Ivolg   (28.10.04 11:36)


> Вот нашёл, тока чёт непашет:


> тока незнаю как эту процедуру успользовать

А как же ты можешь делать вывод о том, пашет она или не пашет, если ты даже не знаешь, как её использовать?

У меня - пашет:

CreateLink("C:\1.txt", "C:\1.lnk", "", "")


 
Ivolg   (2004-10-28 13:08) [4]

Пасибо!! Но это не то, что мне хотелось! Вот задача: Открыть файл у  Counter Strik"a hl.exe и в ярлык (его свойства) прописать к пути такую вешь -console game strike, а потом создать ярлык! Случайно не знаешь как это мона сделать


 
Ivolg   (2004-10-28 13:10) [5]

О!! уже понял как сделать!!! :))))


 
begin...end ©   (2004-10-28 13:12) [6]


> [4] Ivolg   (28.10.04 13:08)

Случайно не догадываешься, для чего нужен параметр Param ?


 
Ivolg   (2004-10-28 13:18) [7]

НЕА!!



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

Текущий архив: 2004.12.12;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.043 c
1-1101888171
cvg
2004-12-01 11:02
2004.12.12
Помогите разобраться с порядком выполнения проги. pls!


11-1083856827
RTWolf
2004-05-06 19:20
2004.12.12
Как Baloon-подсказку сделать поверх всех окон?


1-1101732165
Bobby Digital
2004-11-29 15:42
2004.12.12
Restart


6-1096646286
BKGG
2004-10-01 19:58
2004.12.12
Sockets


1-1101586208
musicman
2004-11-27 23:10
2004.12.12
Перекодирование из ANSI в OEM русского текста