| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Программное создание ярлыка средствами KOL [Delphi, Windows]

Ripper ©   (2004-11-02 20:06:00) 

Как средствами KOL программно создать ярлык?

используя стандартныемодули - можно так
uses Windows, ShlObj,ComObj, ActiveX;

function CreateShortcut(const CmdLine, Args, WorkDir, LinkFile: string):
 IPersistFile;
var
 MyObject: IUnknown;
 MySLink: IShellLink;
 MyPFile: IPersistFile;
 WideFile: WideString;
begin
 MyObject := CreateComObject(CLSID_ShellLink);
 MySLink := MyObject as IShellLink;
 MyPFile := MyObject as IPersistFile;
 with MySLink do
 begin
   SetPath(PChar(CmdLine));
   SetArguments(PChar(Args));
   SetWorkingDirectory(PChar(WorkDir));
 end;
 WideFile := LinkFile;
 MyPFile.Save(PWChar(WideFile), False);
 Result := MyPFile;
end;
////////////////////////////////
Нашел аналогичные модули для KOL - ActiveKOL,KOLComObj.

Пожалуйста помогите портировать на KOL или предложите другое решение.

---

chum   (2005-05-23 10:17:00) [1]

Спасибо, а я просто указывал каталог по умолчанию, и поэтому был глюк.

---

Владимир Кладов   (2005-05-21 18:09:00) [2]

да все получается:

CreateLink( 'C:\KOL\', '', '', '', 0, 'c:\link-to-KOL.lnk' );

---

chum   (2005-05-21 14:30:00) [3]

Подскажите, а как можно создать ярлых на папку? Пробовал модуль LNK, но не получается.

---

Ajax   (2004-11-02 22:01:00) [4]

Дык а что тебе не нравится в использовании Windows, ActiveX, ShlObj? Ну если не хочешь эти модули подключать, выдерни из них необходимые объявления в свой модуль и будет тебе счастье. Твой код будет работать и с KOL.

---

dimaxx   (2004-11-02 21:58:00) [5]

А юзать модуль lnk.pas с сайта Кладова религия не позволяет? :-)

---

Наверх