Home

Page 337
Page 337
background image

330 Глава 7

 Group';

end;

if not

 then

if

 then

 WorkTable +

 ,  ') ;

end;

В самом начале определяется место расположения папки Программы, кото-

рая отвечает за содержание одноименного меню кнопки Пуск. Да, это самая

настоящая папка на диске, которая в Windows 9x по умолчанию располага-

лась по следующему пути:

 меню\Программы.

В Windows 2000/XP расположение более сложное, и тут уже надо Програм-

мы искать в папке Documents and Settings. Все, что находится в этой папке

(файлы ярлыков, программы и любые другие файлы), отображается в глав-
ном меню.
Итак, чтобы разместить в меню Программы свой объект, мы можем просто

скопировать нужный файл в найденную папку. Копировать сами исполняе-
мые файлы в папку Программы неэтично. Там принято создавать лишь

файлы ярлыков, которые занимают очень мало места, потому что только

ссылаются на реальную программу.

Кстати, когда мы определили путь к папке, содержащей объекты меню

Программы, мы добавили к этому пути \Му Group. Таким образом мы пере-

местились в подменю My Group меню Программы. Но прежде чем туда пе-

реместиться, необходимо выяснить, существует ли такой подкаталог? Для

этого проверяем: если нужная директория не существует, то ее нужно соз-

дать с помощью функции

if not

 then

Следующим этапом проверяем, существует ли ярлык для программы. Если

да, то удаляем файл ярлыка, потому что в нем могут находиться устаревшие
данные, и лучше пересоздать все заново.

Само создание происходит в последней строке, с помощью вызова процеду-

ры CreateShotCut. У этой процедуры имеется три параметра.

 Файл, запускаемый ярлыком.


Copyright © 2020 Файлообменник files.d-lan.dp.ua

Использование любых материалов сайта возможно только с разрешения автора.