Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Получить серийный номер диска

Delphi , Файловая система , Диски

Получить серийный номер диска

Куплю винчестер. Жёсткие диски не предлагать.


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;

Статья Получить серийный номер диска раздела Файловая система Диски может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


:: 2011-08-05 09:43:55 :: re:Получить серийный номер диска

пользователь: Grub.

O_o Это Что... Серийный номар диска???
Ну ты и умник... VolumeSerialNumber НЕ номер диска, а номер ТОМА(раздела) на диске.


:: 2011-10-12 20:20:36 :: re:Получить серийный номер диска

пользователь: kan.

Да, это действительно так.
Для определения номера диска, лучше анализировать информацию с PhysicalDrive0


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Диски ::


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
13.08.2020 06:22:04/0.0023419857025146/2