Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.012 c
3-39682
Chainik
2002-04-17 11:02
2002.05.13
компоненты ODAC/DAO для Oracle


14-39844
savva
2002-04-04 10:22
2002.05.13
После большого числа веток про единство и борьбу...


3-39653
AndDem
2002-04-16 16:27
2002.05.13
Добраться до Pervasive2000


7-39873
123321
2002-02-16 14:09
2002.05.13
Работа с bat-файлами


14-39825
VictorT
2002-03-29 13:26
2002.05.13
Миг-29