Главная страница
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.014 c
1-39691
Johnmen
2002-04-29 12:40
2002.05.13
TEdit и звуковые эффекты


3-39679
AFROLOV
2002-04-09 15:58
2002.05.13
Как в таблицу Access засунуть документ Word и как с ним работать


1-39684
hooky-mars
2002-04-23 22:05
2002.05.13
Путь к файлу


14-39842
Sergo
2002-04-04 10:45
2002.05.13
Как сделать?


1-39700
Фантом
2002-04-29 15:16
2002.05.13
Как запустить программу?