Форум: "Система";
Текущий архив: 2003.03.13;
Скачать: [xml.tar.bz2];
ВнизКак узнать/изменить серийный номер тома HDD? Найти похожие ветки
← →
Amien (2003-01-19 15:43) [0]Как узнать/изменить серийный номер тома HDD? Например диска C:
---
Amien
← →
DeadMeat (2003-01-19 16:31) [1]Узнать можно так:
function getserial (drive:string):string;
Var
VolumeName,
FileSystemName:array [0..MAX_PATH-1] of Char;
VolumeSerialNo:DWord;
MaxComponentLength,FileSystemFlags:cardinal;
begin
GetVolumeInformation(pchar (drive),VolumeName,MAX_PATH,@VolumeSerialNo,MaxComponentLength,FileSystemFlags,FileSystemName,MAX_PATH);
result:=IntToHex(VolumeSerialNo,8);
end;
А вот изменить не знаю, если кто знает подскажите...
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2003.03.13;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c