Home

Page 341
Page 341
background image

334

begin

end;

for i:=0 to 20 do

 + ' V

end;

Глава 7

 7.5. В результате работы программы рабочий стол

превращается в свалку

Здесь нет проверки на существование ярлыка. Если он уже существует (а он
с некоторого момента будет на столе не один), то наша процедура
CreateShotCut изменит имя и создаст еще один ярлык. Вызов процедуры
создания ярлыка помещен в цикл так, чтобы процедура создавала 20 ярлы-

ков на рабочем столе. На рис. 7.5 вы можете увидеть мой рабочий стол по-

сле выполнения этого кода.

На компакт-диске в директории \Примеры\Глава 7\Ярлык вы можете уви-

деть пример этой программы и цветные версии рисунков.


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

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