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

Вниз

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

 
BJValentine ©   (2002-10-22 15:02) [0]

Ребята, может кто покажет экземпл, как из программы создать ярлык в указанном месте (папке, рабочем столе) и как задать в нём параметры? Я слышал, что нужно юзать COM. Но это всё что я слышал. Помогите, кто сможет! плз...


 
NOE ©   (2002-10-22 15:59) [1]

Попробуй так


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;


 
BJValentine ©   (2002-10-22 19:30) [2]

А можно показать пример вызова этой процедуры? Хотелось бы посмотреть на значения входных параметров.


 
Dimka Maslov ©   (2002-10-23 10:03) [3]

http://delphibase.endimus.com/?action=viewtopic&topic=filelink



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

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

Наверх




Память: 0.47 MB
Время: 0.016 c
1-85981
iNew
2002-12-11 09:09
2002.12.26
Такой процедурой вывожу данные из COM порта в Мемо


1-85951
Виталий
2002-12-15 14:14
2002.12.26
Компонент для работы с XML


14-86134
Natali
2002-12-06 09:13
2002.12.26
спец. прога для документирования


1-85900
AVR
2002-12-14 11:44
2002.12.26
Свойства формы, порождённой от TForm в инспекторе объектов.


14-86096
RV
2002-12-05 11:24
2002.12.26
Меня на математику пробило... e^(i pi)-1=0.