ЗАЩИТА ПО с привязкой к железу

[exetor]

Паскаль с большего изучен, курсовую сам сделал, все хорошо и тут резко задание на дэлфи. Довольно резкий переход, нужна помощь!

Разработать и реализовать алгоритм защиты произвольной программы на уровне аппаратных средств, т.е. алгоритм защиты должен использовать произвольный элемент аппаратной базы (номер или размер жесткого диска, аппаратные hasp- или flash-ключи и многое другое).
Есть что то похожее, программа работающая только при вставленной ключ-дискете, вот пример ее:

unit UnitHardwareProtect;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls;

type
  TMainForm = class(TForm)
    Memo: TMemo;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

//Как проверить готовность диска A:
function DiskInDrive(const Drive: char): Boolean;
var
  DrvNum: byte;
  EMode: Word;
begin
  result := true;
  DrvNum := ord(Drive);
  if DrvNum >= ord('a') then dec(DrvNum,$20);
  EMode := SetErrorMode(SEM_FAILCRITICALERRORS);
  try
    while DiskSize(DrvNum-$40) = -1 do begin // ПРи неудаче выводим диалог
      if (Application.MessageBox('Диск не готов...'+chr(13)+chr(10)+
          'Повторить?',PChar('Диск '+UpperCase(Drive)),mb_OKCANCEL+
           mb_iconexclamation{IconQuestion})=idcancel) 
      then begin         
        Result:=false;
        Break;
      end;
    end;
  finally
    SetErrorMode(EMode);
  end;
end;

// проверка защиты при отображении окна формы
procedure TMainForm.FormShow(Sender: TObject);
begin
   if  DiskInDrive('a') then                   // дискета в дисководе
   begin
       if not FileExists('a:\hardware.key') then   // файл-ключ на дискете
       begin
         MessageDlg('Внимание! Файл-ключ на дискете отсутствует.',            
                     mtError,[mbOk],0);
         Close;
       end;
   end
   else                                       // дискеты нет в дисководе
   begin
       MessageDlg('Внимание! Вставьте ключ-дискету в дисковод.'+#10#13+
       'Вы являетесь незарегистрированным пользователем.'+#10#13+
       'Программа будет закрыта. ЗАРЕГИСТРИРУЙТЕСЬ.',mtError,[mbOk],0);
       Close;
   end;
end;

end.

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

[Dimasw]

Серийный номер и тип винчестера:

type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
procedure EnumHDDSerials(List:TStrings);
type
TSendCmdInParams=packed record
cBufferSize:DWORD;
irDriveRegsacked record
bFeaturesReg:Byte;
bSectorCountReg:Byte;
bSectorNumberReg:Byte;
bCylLowReg:Byte;
bCylHighReg:Byte;
bDriveHeadReg:Byte;
bCommandReg:Byte;
bReserved:Byte;
end;
bDriveNumber:DWORD;
end;
var
Drive,A:Integer;
Handle:THandle;
Readed:Cardinal;
Bufferacked record
InData:TSendCmdInParams;
Res1:array[0..4] of DWORD;
Serial:array[0..19] of AnsiChar;
Res2:array[0..471] of Byte;
end;
begin
for Drive:=0 to 15 do begin//тут по хорошему должно быть SysInfo.DiskCount-1 полученное через NtQuerySystemInformation(SystemConf igurationInformation,SysInfo,...)
Handle:=CreateFile(PChar(Format('\\ .\PhysicalDrive%d', [Drive])),GENERIC_READ or GENERIC_WRITE,
FILE_SHARE_READ or FILE_SHARE_WRITE or FILE_SHARE_DELETE,nil,OPEN_EXISTING ,0,0);
if Handle<>INVALID_HANDLE_VALUE then begin
FillChar(Buffer,SizeOf(Buffer),0);
Buffer.InData.irDriveRegs.bCommandR eg:=$EC{IDE_ATA_IDENTIFY};
if DeviceIoControl(Handle,$7C088{SMART _RCV_DRIVE_DATA},@Buffer,SizeOf(Buf fer),
@Buffer,SizeOf(Buffer),Readed,nil) then begin
for A:=0 to 9 do
PWordArray(@Buffer.Serial)[A]:=Swap(PWordArray(@Buffer.Serial)[A]);
List.Add(Trim(Buffer.Serial));
end;
CloseHandle(Handle);
end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
EnumHDDSerials(memo1.Lines);
end;

Компоненты для вытаскивания данных о винчестере:
http://home.earthlink.net/~akonshin/delphi_ru.htm

[Dimasw]

Еще есть исходники проги по вытаскиванию номера биоса и параметров процессора. Доп. компонент не требует.
Где-то видел прогу по вытаскиванию MAC адреса сетевой карты. Если надо - покопаюсь в своих архивах.

[exetor]

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