Текущий архив: 2004.09.12;
Скачать: CL | DM;
Вниз
Спасите Памагити!!! Найти похожие ветки
← →
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;
Страницы: 1 вся ветка
Текущий архив: 2004.09.12;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.04 c
