deviceid.zip

Получение DeviceID устройства по букве диска (например для привязки программы к съемному носителю) через WMI

Для работы необходимы библиотеки (SysUtils, ActiveX, WbemScripting_TLB)

Пример вызова:

device:=getDeviceId(ExtractFileDrive(Application.ExeName));

Библиотеку WbemScripting_TLB, Вы можете найти в разделе Компоненты Delphi

Borland Delphi | Windows NT/2000/XP/Vista/7

Автор: public_morozov

Дата: 08.03.2010