Текущий архив: 2003.03.13;
Скачать: CL | DM;

Вниз

Как узнать/изменить серийный номер тома 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;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.015 c