Спасите Памагити!!!

← →
D3viL (2004-08-26 15:03) [0]

Здравствуйте великие и могучие учу!
Скажите тупому ламеру как средствами Delphi 6/7 узнать серийник HDD?

PS: Намыльте мне пожалуйса! d3vil@59.ru я буду очень благодарен!

← →
pasha_golub © (2004-08-26 15:14) [1]

Мальчик, иди в другое место кричать.

← →
onix (2004-08-26 15:22) [2]

function SerialNumberHardDisk: string;
var
VolumeSerialNumber : DWORD;
MaximumComponentLength : DWORD;
FileSystemFlags : DWORD;
begin
GetVolumeInformation("C:\",
nil,
0,
@VolumeSerialNumber,
MaximumComponentLength,
FileSystemFlags,
nil,
0);

Result := IntToHex(HiWord(VolumeSerialNumber), 4) + "-" +
IntToHex(LoWord(VolumeSerialNumber), 4);
end;

Спасите Памагити!!! Найти похожие ветки