по букве тома определить физический серийный номер накопителя, а не номер тома

[@лександр]

Написал программу на Delphi7, хочу сделать чтобы её посли установки не могли перенести на другой (физический) диск путём клонирования.
Искал в поисковиках как читать серийный номер, там везде один и тот же вариант дублируется. А он не везде работает, зависит от конфигурации.
Мне нужно по букве тома определить физический серийный номер накопителя, а не номер тома. Помогите пожалуста.

[Stilet]

Ну разве что через WMI получить информацию об устройстве...
Но все равно учти нет надежной защиты даже с привязкой к железу.
Ее можно отвязать, если иметь знакомства в среде Какеров.

[@лександр]

А на ассемблерной вставке никак нельзя?

[Stilet]

Может и можно. Я сказал то что знаю, то что сам использую - WMI. Там много интересного.

[@лександр]

Можно примерчик?!

[Stilet]

А погуглить? А хелп почитать? Или не модно уже своими руками рыть?
Вот получение серийника тома:

program WQL;

{$APPTYPE CONSOLE}

uses
  activex,
  comobj,
  variants,
  SysUtils;

var Host,Root,FLogin,FPassword:string;



procedure pEnum(Obj: OleVariant);
var PropEnum:IEnumVariant;  i:Cardinal; s:string; d:double;
begin
    PropEnum:=IEnumVariant(IUnknown(Obj.Properties_._NewEnum)); //Поля
    while (PropEnum.Next(1, Obj, i) = S_OK) do begin
     try
      if obj.CIMType=$00000065 then begin
       s:=Obj.Value;
       s:=copy(s,7,2)+'.'+copy(s,5,2)+'.'+copy(s,1,4);
      end else
      if VarIsNull(Obj.Value) then s:='' else   s:=Obj.Value;
      writeln(obj.name,' = ',s);
     except

     end;
    end;
end;

 procedure SetSQL2(const FSQL2: String);
var objSWbemLocator,objWMIService,Records,o1,o2
 :OleVariant;
 i:Cardinal;   s:string;
 id:IDispatch;
 Enum:IEnumVariant;
begin
  objSWbemLocator:=CreateOleObject('WbemScripting.SWbemLocator');
  if not VarIsClear(objSWbemLocator) then begin
    objWMIService:=objSWbemLocator.ConnectServer(Host,Root,FLogin,FPassword,'','',0,id);
    if not VarIsClear(objWMIService) then begin
      Records:=objWMIService.ExecQuery(FSQL2,'WQL',0,id);
      if not VarIsClear(Records) then begin
       //**************************************
           Enum:=IEnumVariant(IUnknown(Records._NewEnum)); //Список Записей
           while (Enum.Next(1, o1, i) = S_OK) do begin
            pEnum(o1);   writeln;
           end;
       //**************************************
       Records:=Unassigned;
      end;
     objWMIService:=Unassigned;
    end;
    objSWbemLocator:=Unassigned;
  end;
end;

begin
   Host:='.';
   Root:='root\cimv2';
   CoInitialize(0);
    SetSQL2('select Caption, VolumeSerialNumber from Win32_LogicalDisk');
   CoUninitialize;
   readln;
end.

Не знаю поможет или нет читай про WMI classes в MSDN

[@лександр]

В гугле я уже неделю роюсь.
Одни работают на IDE, но неработают на SATA. Другие наоборот.
Нужен серийник не логического диска а физического, так как первый легко изменить.