Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)
-   -   Подскажите, как работать с ярлыками на Delphi (http://forum.oszone.net/showthread.php?t=30111)

PAS2k 01-12-2003 11:49 207314

Подскажите, как работать с ярлыками на Delphi (На какой файл ссылка, иконка, создание ярлыков)

Vich 01-12-2003 12:03 207315

//создание
uses ..ShlObj, ComObj, ActiveX, shellapi, ComCtrls..
нужны эти модули, но я не уверен что эт все,поищешь..
procedure SetShortCut(path, cmd, icon, wd, name, arg : String);
var ShellObject:IUnknown;

LinkFile:IPersistFile;
ShellLink:IShellLink;
begin

Try
CoInitialize(nil);
ShellObject:=CreateComObject(CLSID_ShellLink);
LinkFile:=ShellObject as IPersistFile;
ShellLink:=ShellObject as IShellLink;  // RTFM - интерфейсу IShellLink, там всё описано
ShellLink.SetPath(@cmd[1]);
ShellLink.SetWorkingDirectory(@wd[1]);
ShellLink.SetIconLocation(@icon[1],0); // вместо 0 можно указать номер иконки если их там много...
ShellLink.SetDescription(@name[1]);
ShellLink.SetArguments(@arg[1]);
LinkFile.Save(PWChar(WideString(path)),true);
finally
ShellObject:=Unassigned;
CoUninitialize;
end;
end;

Prisoner 01-12-2003 14:35 207316

Идем сюда, причем идем в самый низ странички.

RIKO 06-12-2003 21:43 207317

Если надо мыль .Много писать.
Какие ярлыки ? url или lnk ?
Разные функции всё тут не опишешь.


Время: 20:21.

Время: 20:21.
© OSzone.net 2001-