Как поместить иконку моей программы в меню

← →
Vitaliygavrilov (2003-09-26 11:18) [0]

Уважаемые Мастера!
Помогите пожалуйста советом как поместить иконку моей программы в меню "Пуск"
С уважением Гаврилов В.А.

← →
Переяслов Григорий © (2003-09-26 11:21) [1]

Installshield Express

← →
Vitaliygavrilov (2003-09-26 11:22) [2]

А программно..

← →
[lamer]Barmaglot © (2003-09-26 11:23) [3]

FAQ?
http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988624981&n=15

← →
62mkv (2003-09-26 11:37) [4]

помоему товарищ не совсем то имел в виду... не могли бы Вы (Виталий Гаврилов) пояснить свой вопрос ? куда конкретно в меню пуск вам надо поместить иконку ? и иконку ли ? Может речь идет о ярлыке для запуска ?

← →
ZEE © (2003-09-26 11:51) [5]

SHGetSpecialFolderLocation
+
http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988621840&n=15

← →
Vitaliygavrilov (2003-09-26 12:59) [6]

>>62mkv
вы совершенно правы, спасобо за уточние.
В меню которое появляется при нажатии на кловишу "Пуск" в W.
Извените но я точно незнаю как оно называется

← →
Юрий Зотов © (2003-09-26 13:11) [7]

Vitaliygavrilov (26.09.03 12:59) [6]

Меню "Пуск" динамически формируется Проводником по ярлыкам, лежащим в соотвествующих каталогах. Под NT такие каталоги существуют для всех пользователей и для текущего пользователя, а их меню сливаются в одно. Щелкните по кнопке "Пуск" правой кнопкой и выберите "Проводник" - все сами увидите.

Это означает, что для добавления Вашей программы в меню "Пуск" Вам нужно просто создать ярлык на нее в нужном каталоге. Чтобы определить, в каком именно - посмотрите функцию SHGetSpecialFolderLocation, а как создать - посмотрите ссылку
http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988621840&n=15

← →
Vitaliygavrilov (2003-09-30 08:00) [8]

Простите за такой вопрос а как это сделать в XP

А чем XP отличается здесь от NT??

← →
Soi (2003-09-30 08:31) [10]

Попробуй следующее. У меня это пашет на все 100%. Если не поможетЮ, то пиши мне s-o-i@kuzbass.net есть еще кое-что.
_______________________________________________________________
MyObject := CreateComObject(CLSID_ShellLink);
MySLink := MyObject as IShellLink;
MyPFile := MyObject as IPersistFile;
FileName := "explorer.EXE";
with MySLink do begin
SetArguments(Pchar("c:\winnt\profiles\"+s+"\Личная"));
SetPath(PChar(FileName));
SetWorkingDirectory(PChar(ExtractFilePath(FileName)));
end;
//MyReg := TRegIniFile.Create("Software\MicroSoft\Windows\CurrentVersion\Explorer");

// Используйте следующие три строчки для создания ярлыка в главном меню
//Directory := MyReg.ReadString("Shell Folders","Start Menu","")+"\Мой диск -Z-";
//CreateDir(Directory);

// Используйте следующую строчку кода для создания ярлыка на рабочем столе
//Directory := MyReg;
WFileName := "c:\winnt\profiles\"+s+"\Рабочий стол"+"\Мой диск -Z-.lnk";
WFileName1 := "c:\winnt\profiles\"+s+"\Главное Меню\Программы"+"\Мой диск -Z-.lnk";
WFileName2 := "c:\winnt\profiles\"+s+"\Главное Меню"+"\Мой диск -Z-.lnk";
MyPFile.Save(PWChar(WFileName),False);
MyPFile.Save(PWChar(WFileName1),False);
MyPFile.Save(PWChar(WFileName2),False);
//MyReg.Free;

Не, это не серьезно
Привязываться к "c:\winnt - на моей машине это не попрет стопудово
И это не единичный случай
Я уже не говорю про Win9x, ну разве что папку там кто-то укажет как Winnt ;)

Как поместить иконку моей программы в меню Найти похожие ветки