Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.10.02;
Скачать: CL | DM;

Вниз

Как получить серийный номер жесткого диска?   Найти похожие ветки 

 
Denizzz   (2005-09-14 08:11) [0]

Как получить серийный номер жесткого диска?


 
pavel_guzhanov ©   (2005-09-14 08:20) [1]

Если под жестким диском понимается целиком устройство, то тебе надо на сайт Alex Konshin © http://home.earthlink.net/~akonshin/index.htm Помнится, была у него там программка, выдающая всю информацию про IDE устройства.
А если под жестким диском понимается раздел, то используй функцию GetVolumeInformation()


 
Big Joe ©   (2005-09-14 08:47) [2]

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;



Страницы: 1 вся ветка

Текущий архив: 2005.10.02;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.026 c
1-1126014295
NikNet
2005-09-06 17:44
2005.10.02
Чем отличаются виртуальные и простые методы?


6-1118118699
leonidus
2005-06-07 08:31
2005.10.02
idHTTP и потоки


14-1125743585
Rouse_
2005-09-03 14:33
2005.10.02
DimonF женится :)


1-1126106582
KLAUS
2005-09-07 19:23
2005.10.02
WriteFloat


10-1104266315
st. reset
2004-12-28 23:38
2005.10.02
corba