Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как узнать серийный номер ж.диска?

тт © (2006-05-06 20:49:00)
Как узнать серийный номер ж.диска, я делаю так:

function hddSN_C:cardinal;
var
v,L,F:cardinal;
begin
if GetVolumeInformation('C:\',nil,0,@V,L,F,nil,0)
then result:=V
else result:=0;
end;

Но функция возвращает номер логическоко диска а не физического.:(

Джо (2006-05-07 03:59:00) [1]
> [5] тт (07.05.06 03:45)
> <Гермамм>
> А что такое АП, ИШ, АК?

Это не "что такое", а "кто такие" :)
АК, например, это Alex Konshin, и, собственно, его сайт.

тт (2006-05-07 03:45:00) [2]
<Гермамм>
А что такое АП, ИШ, АК?

тт (2006-05-07 03:43:00) [3]
<Handle>
Спасибо конечно, но у тебя тоже самое, что и у меня:(

<A.K.>
Ок! Вроде то что нужно, но я еще не разобрался.

Германн (2006-05-07 02:48:00) [4]
Имхо, надо что-то сделать, чтобы хотя бы поиск на форуме автоматом бы приводил на сайты АП, ИШ, АК и др. Если др. появятся.
Хоть что-то.

Может быть добавить в " Добавить свой вопрос в форум".
Т.е. к "Искать в FAQ" и "Искать в этом форуме", добавить поиск по сайтам АП, ИШ, АК?

Alex Konshin (2006-05-07 02:25:00) [5]
Искал?
Зайди ко мне на сайт.

Handle (2006-05-06 22:32:00) [6]
procedure TForm1.Button1Click(Sender: TObject); var VolumeName, FileSystemName : array [0..MAX_PATH-1] of Char; VolumeSerialNo : DWord; MaxComponentLength,FileSystemFlags: Cardinal; begin GetVolumeInformation('C:\',VolumeName,MAX_PATH,@VolumeSerialNo, MaxComponentLength,FileSystemFlags, FileSystemName,MAX_PATH); Memo1.Lines.Add('VolumeName = '+VolumeName); Memo1.Lines.Add('SerialNo = $'+IntToHex(VolumeSerialNo,8)); Memo1.Lines.Add('CompLen = '+IntToStr(MaxComponentLength)); Memo1.Lines.Add('Flags = $'+IntToHex(FileSystemFlags,4)); Memo1.Lines.Add('FSName = '+FileSystemName); end;

Наверх

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