Привязка программы к КПК. Как?

[tria]

Текущая задача - получить уникальный Ид устройства.
Собственно, пробовал след. образом:

Код: Выделить всё

Function GetDeviceUniqueID(pbApplicationData:LPBYTE; cbApplictionData:DWORD; dwDeviceIDVersion:DWORD;
                            pbDeviceIDOutput:LPBYTE; pcbDeviceIDOutput:PULONG):HRESULT; external 'kernel32' name 'GetDeviceUniqueID';

Function GetDeviceId():string;
var AppDate:PChar;
    ln:Cardinal;
    res:array[1..50] of byte;
begin
  AppDate:='TradeUtils';
  ln:=50;
  GetDeviceUniqueID(Pointer(AppDate), Length(AppDate), 1, @Res, @ln);
end;

В общем-то работает. Но оказалось, что начиная с версии СЕ 5.ХХ
А мне надо для 4.ХХ
Нашел ф-цию:
http://msdn.microsoft.com/en-us/library/ms172516.aspx
Но я не справился с IOCTL_HAL_GET_DEVICEID
Кто может - подскажите. Си я вообще не знаю и вызовами АПИ тольком никогда не занимался...

[tria]

Беседовал с шефом - решили, что под СЕ 4.х можно оставить без защиты.

Подскажите пож. как узнать версию СЕ?

Лучше всего на уровне директив компилятору...
Кстати, а где можно посмотреть хелп по существующим директивам?

[Mr.Smart]

Директив определяющих версии виндоус не существует.
Посмотреть все существующие директивы можно в документации на FPC.

[tria]

Спасибо, разобрался.

Для тех, кого заинтересует тема:
Список директив компилятора в документациия по ФПС: ftp://ftp.freepascal.org/pub/fpc/docs-pdf/prog.pdf
в разделе:
Appendix G
Compiler defines during compilation

Версию ОС можно узнать ф-цией:
GetVersionEx(var lpVersionInformation: TOSVersionInfo): BOOL;external KernelDLL name 'GetVersionExW'