Ярлык

← →
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]

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

> [4] Ivolg (28.10.04 13:08)

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

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

НЕА!!

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