Текущий архив: 2002.05.13;
Скачать: CL | DM;

Вниз

Пуск-Программы   Найти похожие ветки 

← →
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;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.01 c