Home

Page 290
Page 290
background image

Железная мастерская 283

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

сле установки программа может запомнить где-нибудь серийный номер то-

ма и затем проверять его при старте. Если серийный номер изменился, то
программа должна требовать переустановки, где вы можете реализовать бо-

лее жесткие возможности защиты программы.

В моей программе на вкладке Диски вы можете узнать основные сведения

о любом диске

 6.4). Для этого на вкладке у меня расположен компо-

нент

 с закладки Win 3.1 для выбора диска и куча компонен-

тов

 в которых отображается вся полученная информация.

Получение информации происходит по событию

 компонента

 Здесь вызывается процедура updateDisk. Ее нужно описать

в разделе private следующим образом:

procedure UpdateDisk;
А сама процедура должна выглядеть, как в листинге 6.2.

Листинг 6.2. Сканирование п

procedure

var

 r

 DWORD

FBytesPerSector : DWORD
FFreeClusters : DWORD
FTotalCIusters : DWORD

begin

 :

 :

 :

 :

try

PChar;

DWORD;
DWORD;
PChar;
DWORD;

_

 0;
 0;
 0;

= '

978


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

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