Форум: "KOL";
Текущий архив: 2006.01.15;
Скачать: [xml.tar.bz2];

Вниз

Программное создание ярлыка средствами KOL   Найти похожие ветки 

← →
Ripper ©   (2004-11-02 20:06) [0]

Как средствами 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 или предложите другое решение.

---

← →
dimaxx ©   (2004-11-02 21:58) [1]

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

---

← →
Ajax ©   (2004-11-02 22:01) [2]

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

---

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

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

---

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

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

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

---

← →
chum   (2005-05-23 10:17) [5]

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

---

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

Форум: "KOL";
Текущий архив: 2006.01.15;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.013 c