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

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

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

Как создать ярлык для своего приложения? [D6, Win95/98, Win2k]

Intell © (2003-04-20 20:25:00)
Как создать ярлык для своего приложения, примерно также как в WinRAR - щёлкнул, появился ярлык в пуске и на десткопе. Желательно примерчик попроще, в моей проге каждая строка на счету.

P.S.
Не говорите - "Посмотри в FAQ"

Intell (2003-04-21 16:48:00) [1]
Lighnam, где-то я видел это пример... А...? Кажись Романов Р.В. подсказал его. Тебе было не лень залезть на его ссылку, копировать текст сюда... И зря ты говоришь, что я его не понял. Всё отлично, но строчек многовато. Был бы на строчки 4-5 меньше, вообще было бы великолепно.

ZmeiGorin (2003-04-21 14:42:00) [2]
Если пример великоват/непонятет/лень тебе на www.torry.net

Lighnam (2003-04-21 12:36:00) [3]
это этот великоват ?

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;

ха - ха - ха ! да ты наверное просто не понял его :)

Intell (2003-04-21 12:33:00) [4]
>Посмотри в Faq
Спасибо, пошастаю. Особенно на http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988621840&n=15

Спасибо, буду разбирать пример. Можно спросить - а чуть полегче пример есть? Этот работает, но великоват.

Романов Р.В. (2003-04-20 21:52:00) [5]
Посмотри в Faq

http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988621840&n=15

Наверх

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