Home

Page 340
Page 340
background image

Полезное 333

Сейчас мы создадим обработчик события нажатия второй кнопки, и я по-

кажу, как создать ярлык на рабочем столе (листинг 7.3).

Листинг

 ярлыка

 рабочем

 v

procedure
var

C:array

 of char;

begin

if

 then

begin

 ;

 ;

end;

if

 then

 WorkTable +

 +

  ' ' ) ;

end;

Этот код похож на тот, что мы писали при создании ярлыка в меню
Программы. Единственная разница в том, что здесь с помощью функции

SHGetSpeciaiFolderLocation мы узнаем расположение папки для ярлыков и

программ рабочего стола (второй параметр равен

Вот теперь посмотрим на код заполнения экрана ярлыками. Он выглядит

следующим образом (листинг 7.4).

var

C:array [0..1000] of char;

begin

if SHGetSpeciaiFolderLocation

 then


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

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