> IdeSN2
ну да, вірно. запитувачу ж на ОС наплювати.
Windows) XP і вище
Серійний номер тому можна отримати наступним чином:
код:
function GetHardDiskSerial (const DriveLetter: Char): string; # XA0;
var # XA0;
# XA0; NotUsed: # XA0; # XA0; DWORD; # XA0;
# XA0; VolumeFlags: DWORD; # XA0;
# XA0; VolumeInfo: # XA0; array [0..MAX_PATH] of Char; # XA0;
# XA0; VolumeSerialNumber: DWORD; # XA0;
begin # XA0;
# XA0; GetVolumeInformation (PChar (DriveLetter + ":"), # XA0;
# XA0; # XA0; nil, SizeOf (VolumeInfo), @VolumeSerialNumber, NotUsed, # XA0;
# XA0; # XA0; VolumeFlags, nil, 0); # XA0;
# XA0; Result: = Format ( "Label =% s # XA0; VolSer =% 8.8X ", # XA0;
# XA0; # XA0; [VolumeInfo, VolumeSerialNumber]) # XA0;
end; # XA0;
procedure TForm1.Button1Click (Sender: TObject); # XA0;
begin # XA0;
# XA0; ShowMessage (GetHardDiskSerial ( "c")); # XA0;
end;
це логічного диска (c: d: e: ітп), але не фізичного (\\. \ PhysicalDrive0 \\. \ PhysicalDrive1 ітп).
більш того: через wmi теж немає впевненості - може бути підроблений клонують disk-to-disk програмами
взагалі ідея серійників заліза була похована давним давно, борцями за приватність особистого життя
Весь інет кешіт кодом як отримати Серійний номер тому, але ось заводського приклад я знайшов тільки 1 і там сам код взагалі мені не зрозумілий. Тобто ладно у мене 1 диск, а якщо у кого 2, не зрозуміло яку інфу він видасть
> Показують китайські символи, що робити?)
Вчити китайський.