Главная страница
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.009 c
14-39843
Леха
2002-04-04 10:31
2002.05.13
Есть такое предложение


1-39732
Андрей Сенченко
2002-04-27 15:18
2002.05.13
Регистрация горячей клавиши


3-39674
Коля
2002-04-18 03:50
2002.05.13
по поводу DBComboBox


1-39734
Vint
2002-04-27 15:58
2002.05.13
TTable


6-39813
Hewlping
2002-03-01 18:01
2002.05.13
СРОЧНО!!