Форум: "Система";
Текущий архив: 2002.05.13;
Скачать: [xml.tar.bz2];
ВнизПуск-Программы Найти похожие ветки
← →
Konsul (2002-02-15 12:31) [0]Как доьбавить ярлык в меню Пуск-Программы
← →
Dimka Maslov (2002-02-15 15:51) [1]Для того чтобы в главном меню появился ярлык, надо его разместить в папке c:\windows\главное меню\программы\
← →
Набережных С. (2002-02-15 16:34) [2]
function TAddGroupForm.AddLinkFile(const GroupID, GroupDisp,IconSource: string; Target,IconIndex: integer):boolean;
var
Lnk:IShellLink;
Prf: IPersistFile;
DskPath:array [0..MAX_PATH]of WideChar;
Path:Widestring;
Pid:PItemIDList;
begin
OleCheck(SHGetSpecialFolderLocation(Handle,Target,Pid));
OleCheck(SHGetPathFromIDList(Pid,@DskPath[0]));
Lnk:=CreateComObject(CLSID_ShellLink) as IShellLink;
try
OleCheck(Lnk.SetPath("rundll32.exe"));
OleCheck(Lnk.SetArguments(PChar("FastAccess.dll,Execute"+" "+ GroupID)));
OleCheck(Lnk.SetWorkingDirectory("%windir%"));
OleCheck(Lnk.SetIconLocation(PChar(IconSource),IconIndex));
OleCheck(Lnk.QueryInterface(System.TGUID(IID_IPersistFile),Prf));
try
Path:=StrPas(@DskPath[0])+"\"+GroupDisp+".lnk";
Prf.Save(PWideChar(Path),false);
result:=true;
finally
Prf:=nil;
end;
finally
Lnk:=nil;
end;
end;
Для Пуск-ПрограммыTarget = CSIDL_PROGRAMS
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2002.05.13;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.004 c