Home

Page 336
Page 336
background image

Полезное

329

была дана в гл. 6. Именно поэтому мне приходится описывать пример толь-

ко сейчас.
В программе будем размещать только по одному ярлыку в меню Пуск и на

рабочем столе. Вы же можете немного модифицировать пример, и после

этого ваша программа сможет засыпать хоть весь рабочий стол разными яр-

кими ярлыками.

Итак, создаем новый проект в Delphi. Сразу же перейдем в раздел uses

и добавим туда следующие модули:

 ActiveX и

 Теперь раз-

местим на форме три кнопки с надписями:

 Создать ярлык в меню

 Создать ярлык на рабочем столе;

 Засыпать экран.

Мой вариант формы программы вы можете увидеть на рис. 7.4. Я думаю,

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

 создания ярлыков

 ярлык в меню "Программы"

Создать

 на рабочем столе

Засыпать экран

 7.4. Пример работы программы

В обработчике

 первой кнопки Создать ярлык в меню "Программы"

пишем следующий код (листинг 7.1).

procedure

 TObject);

C:array

 of char;

begin

if

 then

begin


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

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