| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как узнать/изменить серийный номер тома HDD?

Amien ©   (2003-01-19 15:43:00) 

Как узнать/изменить серийный номер тома HDD? Например диска C:

---
Amien

---

DeadMeat   (2003-01-19 16:31:00) [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;


А вот изменить не знаю, если кто знает подскажите...

---

Наверх