| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как получить серийный номер жесткого диска? [D7, Win2k]
Denizzz © (2005-09-14 08:11:00)Как получить серийный номер жесткого диска?
Big Joe (2005-09-14 08:47:00) [1]function GetHardDiskSerial(const DriveLetter: Char): string;
var
NotUsed: DWORD;
VolumeFlags: DWORD;
VolumeInfo: array[0..MAX_PATH] of Char;
VolumeSerialNumber: DWORD;
begin
GetVolumeInformation(PChar(DriveLetter + ':\'),
nil, SizeOf(VolumeInfo), @VolumeSerialNumber, NotUsed,
VolumeFlags, nil, 0);
Result := Format('Label = %s VolSer = %8.8X',
[VolumeInfo, VolumeSerialNumber])
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GetHardDiskSerial('c'));
end;
pavel_guzhanov (2005-09-14 08:20:00) [2]Если под жестким диском понимается целиком устройство, то тебе надо на сайт Alex Konshin © http://home.earthlink.net/~akonshin/index.htmПомнится, была у него там программка, выдающая всю информацию про IDE устройства.
А если под жестким диском понимается раздел, то используй функцию GetVolumeInformation()
| |
