Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Ярлык [D6, D7, WinXP]

Ivolg © (2004-10-28 11:04:00)
Здраствуете!! Помогите создать ярлык с помошью делфи!! Спасибо!!

Ivolg (2004-10-28 13:18:00) [1]
НЕА!!

begin...end (2004-10-28 13:12:00) [2]

> [4] Ivolg (28.10.04 13:08)

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

Ivolg (2004-10-28 13:10:00) [3]
О!! уже понял как сделать!!! :))))

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

begin...end (2004-10-28 11:55:00) [5]

> [2] Ivolg (28.10.04 11:36)

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

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

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

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

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

Ivolg (2004-10-28 11:36:00) [6]
Вот нашёл, тока чёт непашет:
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:07:00) [7]
С помощью CreateComObject, CLSID_ShellLink.

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »