Home

Page 342
Page 342
background image

Полезное 335

7.4. Управление ярлыками

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

вать значки на рабочем столе. Для этого я создал отдельное приложение

и положил на форму две кнопки:

 Упорядочить влево;

 Упорядочить по верху.

В обработчике нажатия первой кнопки напишем следующий код:

procedure

 TObject);

var

DesktopHandle:Integer;

DesktopHandle :=

 nil);

DesktopHandle

 ;

DesktopHandle

 0 );

end;

Здесь ищем окно с заголовком ProgMan. Хотя такое окно не видно, но оно
существует при работе Windows, начиная с третей версии (а может и рань-

ше), и называется Program Manager. В этом окне мы ищем дочернее окно

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

 Затем получаем следующее дочернее окно.

Вот теперь мы получили указатель на системный объект класса

sysListview32. Этот компонент как раз и содержит все значки рабочего
стола.

Теперь

 можем посылать сообщения, совместимые с компонентом

ListView, системному Хранилищу значков С ПОМОЩЬЮ

 SendMessage.

В качестве примера отсылается сообщение с двумя параметрами:

 LVM_ARRANGE

 — указывает на необходимость отсортировать значки;

 — упорядочить значки по левому краю.

Если второй из этих параметров заменить на

 значки будут

выровнены по верхнему краю окна.

Давайте создадим на нашей форме кнопку Удалить все элементы. В обра-

ботчике события onclick этой кнопки напишем следующий код:

procedure

var

begin

DesktopHandle :=

 nil);


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

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