ID Винта - Win Api

Chals · 14.06.2007, 11:15

Подскажите как получить ID винта

Квэнди · 14.06.2007, 11:22

function GetHardDiskSerial(const DriveLetter: Char): string;
var
NotUsed: DWORD;
VolumeFlags: DWORD;
VolumeInfo: array[0..MAX_PATH] of Char;
VolumeSerialNumber: DWORD;
begin
GetVolumeInformation(PChar(DriveLet ter + ':\'),
nil, SizeOf(VolumeInfo), @VolumeSerialNumber, NotUsed,
VolumeFlags, nil, 0);
Result := Format('Label = %s VolSer = %8.8X',
[VolumeInfo, VolumeSerialNumber])
end;

VVM · 14.06.2007, 11:27

http://www.delphikingdom.com/asp/ans...?IDAnswer=7767

14.06.2007, 11:15	#1
Chals Регистрация: 04.06.2007 Сообщений: 7	ID Винта Подскажите как получить ID винта

14.06.2007, 11:22	#2
Квэнди Старожил Регистрация: 13.12.2006 Сообщений: 3,859	function GetHardDiskSerial(const DriveLetter: Char): string; var NotUsed: DWORD; VolumeFlags: DWORD; VolumeInfo: array[0..MAX_PATH] of Char; VolumeSerialNumber: DWORD; begin GetVolumeInformation(PChar(DriveLet ter + ':\'), nil, SizeOf(VolumeInfo), @VolumeSerialNumber, NotUsed, VolumeFlags, nil, 0); Result := Format('Label = %s VolSer = %8.8X', [VolumeInfo, VolumeSerialNumber]) end; ICQ не для вопросов, а для предложений. Для вопросов используйте форум IRC канал клуба программистов\|Мои статьи

14.06.2007, 11:27	#3
VVM Форумчанин Регистрация: 06.06.2007 Сообщений: 282	http://www.delphikingdom.com/asp/ans...?IDAnswer=7767 Не важно, как часто вы падаете. Важно, как часто вы поднимаетесь. Винс Ломбарди.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
как узнать серийник винта	Prisian	Win Api	7	26.04.2009 21:21
BIOSa не видит винта после замены платы управления	PDVich	Компьютерное железо	3	05.03.2008 14:38
Как узнать емкость винта	Hottabych	Помощь студентам	1	26.01.2008 06:04