Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Как получить инфу о жестком диске?

Автор: Dayana 11.3.2003, 22:50

Подскажите пожалуйста, как получить информацию о том, какие установлены жесткие диски, и какие метки драйвов им соответствуют?

Спасибо!

Автор: serious 11.3.2003, 23:33

Вот пример, как определить, существует ли диск в системе:

Код

function DriveExists (Drive: Byte) : boolean;
begin
  Result := Boolean (GetLogicalDrives and (1 shl Drive));
end;

procedure TForm1.Button1Click(Sender : TObject);
var
   Drive : byte;
begin
  for Drive := 0 to 25 do
   If DriveExists (Drive) then
    begin
     ListBox1.Items.Add (Chr(Drive+$41));
    end;
end;

Теперь об информации о дисках:

исчерпывающую информацию по этому поводу дает функция GetVolumeInformation,
посмотри help, там все понятно (там и серийный номер диска, и тип файловой системы, и прочее и прочее).

Вот параметры FileSysFlags:

FS_CASE_IS_PRESERVED - (при записи на диск сохраняется регистр букв в его имени)
FS_CASE_SENSITIVE - (поддерживается поиск файлов с учетом регистра букв)
FS_UNICODE_STORED_ON_DISK - (поддерживается сохранение имен файлов в UniCode)
FS_PERSISTENT_ACLS - (поддерживаются списки контроля доступа (ACL). Только для NTFS)
FS_FILE_COMPRESSION - (поддерживается сжатие файлов на уровне системы)
FS_VOL_IS_COMPRESSED - (устройство представляет собой сжатый диск)

Определение типа диска:

Код

function GetDriveType (Drive : byte) : string;
var
  DriveLetter : Char;
  DriveType   : uInt;
begin
  DriveLetter := Char (Drive + $41);
  DriveType   := GetDriveType (PChar(DriveLetter + ':\'));
  case DriveType of

  0: Result := '?';
  1: Result := 'Path does not exists';
  Drive_Removable: Result := 'Removable';
  Drive_Fixed: Result := 'Fixed';
  Drive_Remote: Result := 'Remote';
  Drive_CDROM: Result := 'CD-ROM';
  Drive_RamDisk: Result := 'RAMDisk'
 else
  Result := 'Unknown';
 end;
end;

Автор: Dayana 12.3.2003, 00:34

serious, спасибо! Но это все относится к драйву (логическому диску), а не к жесткому диску... Мне нужна информация именно о жеском диске, и о связи его с логическим....

Автор: AntonSaburov 12.3.2003, 00:47

Посмотри функцию DeviceIoControl - может там что получиться. Я ее мало использовал, но что-то там было.

Там есть ссылка на CreateFile - эта функция под NT может действительно вернуть хэндл на физический диск.

You can use the CreateFile function to open a disk drive or a partition on a disk drive. The function returns a handle to the disk device; that handle can be used with the DeviceIOControl function.

Автор: serious 12.3.2003, 03:03

Что-то не совсем понял вопрос: тебе нужна информация типа серийный номер, объем диска, кластеры.... Так что ли? Поясни конкретнее.

Автор: Medved 12.3.2003, 09:19

Код


{ **** UBPFD *********** by delphibase.endimus.com ****
>> Получение сведений о диске (метка/имя диска, файловая система, серийный номер)

Получение информации о любом диске.
Работает на FDD, HDD, CD, другие не пробовал.

Создайте модуль с именем HDDInfo и полностью скопируйте в него весь текст.

Зависимости: Все Windows (32S,95,NT)
Автор:       cyborg, [email protected], ICQ:114205759, Бузулук
Copyright:   Собственное написание (Осипов Евгений Анатольевич)
Дата:        23 мая 2002 г.
***************************************************** }

unit HDDInfo;
 
interface
Uses Windows;
 
Const {Константы для TypeOfDisk функции GetDisks}
 DiskUnknown=0; {Неизвестные диски}
 DiskNone=1; {Отсутствующие диски}
 DiskFDD=DRIVE_REMOVABLE; {Съёмные диски, дискеты}
 DiskHDD=DRIVE_FIXED; {Не съёиные диски, жёсткие диски}
 DiskNet=DRIVE_REMOTE; {Сетевые диски}
 DiskCDROM=DRIVE_CDROM; {CD ROM}
 DiskRAM=DRIVE_RAMDISK; {Диски в ОЗУ}
 
{Получить имена нужных дисков}
function GetDisks(TypeOfDisk : Word) : String;
 

{Функция получения информации о диске (HDD,FDD,CD) с буквой Disk}
{
Передаваемые значения:
Disk - Буква диска
 
Получаемые значения:
VolumeName - Метка/Имя тома
FileSystemName - Файловая система
VolumeSerialNo - Серийный номер диска (можно привязывать к диску программы)
MaxComponentLength - Максимальная длинна имени файла
FileSystemFlags - Флаги смотрите в справке Delphi по GetVolumeInformation
 
Функция возвращает true, если всё прошло успешно (диск нашёлся),
и false, если возникли проблемы, например диска нет в дисководе,
либо дисковода такого вообще нет
}
Function GetHDDInfo(Disk : Char;Var VolumeName, FileSystemName : String;
         Var VolumeSerialNo, MaxComponentLength, FileSystemFlags:LongWord) : Boolean;
 
implementation
 
function GetDisks(TypeOfDisk : Word) : String;{Получить имена нужных дисков}
var
  DriveArray : array[1..26] of Char;
  I : integer;
begin
  DriveArray:='ABCDEFGHIJKLMNOPQRSTUVWXYZ';
  for I := 1 to 26 do
  if GetDriveType(PChar(DriveArray[I]+':\')) = TypeOfDisk then Result := Result+DriveArray[I];
end;
 
 
 
Function GetHDDInfo(Disk : Char;Var VolumeName, FileSystemName : String;
          Var VolumeSerialNo, MaxComponentLength, FileSystemFlags:LongWord) : Boolean;
Var
_VolumeName,_FileSystemName:array [0..MAX_PATH-1] of Char;
_VolumeSerialNo,_MaxComponentLength,_FileSystemFlags:LongWord;
Begin
  if GetVolumeInformation(PChar(Disk+':\'),_VolumeName,MAX_PATH,@_VolumeSerialNo,
  _MaxComponentLength,_FileSystemFlags,_FileSystemName,MAX_PATH) then
  Begin
    VolumeName:=_VolumeName;
    VolumeSerialNo:=_VolumeSerialNo;
    MaxComponentLength:=_MaxComponentLength;
    FileSystemFlags:=_FileSystemFlags;
    FileSystemName:=_FileSystemName;
    Result:=True;
  End else Result:=False;
End;
end.

Пример использования:

Код

USES ..., ..., ..., HDDInfo; {Добавляем наш модуль}
 
{Нужно создать на форме компонент TLabel , Name которого ставим в Disks}
{И в событии главной формы OnActicate написать это:}
 
procedure TMyForm.FormActivate(Sender: TObject);
Var
  S,SOut : String;
  I : Integer;
  VolumeName,FileSystemName : String;
  VolumeSerialNo,MaxComponentLength,FileSystemFlags:LongWord;
begin
S:=GetDisks(DiskHDD); {Получаем список Жёстких дисков (Параметр DiskHDD)}
SOut:='';
For I:=1 to Length(S) do {Получаем информацию о всех дисках и пишем в TLabel на форме}
 Begin
  {Если диск существует/вставлен ...}
  if GetHDDInfo(S[I], VolumeName, FileSystemName, VolumeSerialNo,
                MaxComponentLength, FileSystemFlags) then {... тогда собираем информацию}
  SOut:=SOut+
  'Диск: '+S[I]+#13#10+
  'Метка: '+VolumeName+#13#10+
  'Файловая система: '+FileSystemName+#13+#10+
  'Серийный номер: '+IntToHex(VolumeSerialNo,8)+#13+#10+
  'Макс. длина имени файла: '+IntToStr(MaxComponentLength)+#13+#10+
  'Flags: '+IntToHex(FileSystemFlags,4)+#13#10+#13#10;
 End;
 Disks.Caption:=SOut; {Выводим в компонент TLabel полученные данные о дисках}
end;

Автор: Dayana 12.3.2003, 18:33

AntonSaburov, спасибо, посмотрю!

Pegas, но это все относится к логическим дискам.

serious, типа этого...

Например у меня есть 2 жестких диска, один Maxtor объемом 20 Gb и второй WD объемом 15Gb. Первый (Maxtor) разбила на 3 патиции: C, D, E соответственно 10Gb, 4Gb, 6Gb. Второй оставила с одной патицией F. Тем кодом, который привел serious и Pegas, можно получить информацию о том, что у меня в системе есть логические диски C, D, E, F их серийные номера, их объем. А у меня задача узнать сколько винчестеров у меня стоит, т.е. узнать о том, что у меня стоит 2 винчестера. Какие они, т.е., что это Maxtor и WD. Какой у них объем, т.е., что 20Gb и 15Gb. И на какие они патиции (логические диски) разбиты. А уже информацию по логическим дискам можно получить кодом приведенным выше Pegasом и seriousом.

Чтобы совсем было понятно: зайдите в Control Panel - Administrative tools - Computer management - Storage - Disk management. Вот в таком виде информацию...

Автор: Dayana 12.3.2003, 23:36

AntonSaburov, похоже, это то, что мне надо... Спасибо! :-)

Автор: AntonSaburov 12.3.2003, 23:56

Цитата(Dayana @ 13.3.2003, 00:36)

AntonSaburov, похоже, это то, что мне надо... Спасибо! :-)

Ну, я, это, типа, завсегда, мы ж понимаем ...

Вот

Автор: Dayana 13.3.2003, 23:39

AntonSaburov, только это работает для NT, а для 95/98 не работает... :-(
Есть ли какой-нибудь способ добраться до информации BIOSа? (для всех систем) Ведь BIOS видит диски.

Автор: serious 14.3.2003, 03:41

А что конкретно под NT не работает? Все? Попробую под XP это сделать, если не пойдет, то будем думать дальше.

Автор: AntonSaburov 14.3.2003, 19:01

Цитата

только это работает для NT, а для 95/98 не работает... :-(

Я уже очень давно не работаю под такими ОС - предпочитаю с ними не связываться.
Так что здесь мало что могу посоветовать.

Но с другой стороны эти ОС дырявые и можно что-то с прямым доступом к памяти поискать.

Автор: Dayana 16.3.2003, 18:18

serious, для NT все работает. Читай внимательнее...

AntonSaburov, у меня просто задача для разных ОС. Поискать можно... вот и ищу... :-)

Автор: serious 16.3.2003, 21:14

Цитата(Dayana @ 13.3.2003, 15:39)

Есть ли какой-нибудь способ добраться до информации BIOSа? (для всех систем) Ведь BIOS видит диски.

Assembler?
ЗЫ А вообще, посмотри, не равен ли у тебя 0 дескриптор винта.

Автор: serious 16.3.2003, 21:46

Цитата(Dayana @ 13.3.2003, 15:39)

AntonSaburov, только это работает для NT, а для 95/98 не работает... :-(

Если ничего не путаю, там немного другой способ получения дескриптора.

Автор: Dayana 16.3.2003, 22:25

serious, а какой?

Автор: serious 17.3.2003, 03:08

Может так попробовать:

Код


procedure TMainForm.btnGetHandleClick(Sender: TObject);
var
  DriveHandle : HWND;
begin
  case Win32Platform of
  VER_PLATFORM_WIN32_NT:
    begin
      DriveHandle := CreateFile ('\\.\Scsi0:', GENERIC_READ+GENERIC_WRITE,
                                 FILE_SHARE_READ+FILE_SHARE_WRITE, nil,
                                 OPEN_EXISTING, 0, 0);
      if DriveHandle <> INVALID_HANDLE_VALUE then
        MessageBox (MainForm.Handle, PChar(IntToStr(DriveHandle)),
                    PChar('Here is your handle:'), MB_ICONINFORMATION)
      else
        MessageBox (MainForm.Handle, PChar('Error!'), PChar('Error'),
                    MB_ICONERROR);
    end;

  VER_PLATFORM_WIN32_WINDOWS:
    begin
      DriveHandle := CreateFile ('\\.\SMARTVSD', 0, 0, nil,
                                 CREATE_NEW, 0, 0 );
      if DriveHandle <> INVALID_HANDLE_VALUE then
        MessageBox (MainForm.Handle, PChar(IntToStr(DriveHandle)),
                    PChar('Here is your handle:'), MB_ICONINFORMATION)
      else
        MessageBox (MainForm.Handle, PChar('Error!'), PChar('Error'),
                    MB_ICONERROR);
    end;

  end; // case
end;

Автор: serious 17.3.2003, 16:45

Цитата(Dayana @ 12.3.2003, 10:33)

Например у меня есть 2 жестких диска, один Maxtor объемом 20 Gb и второй WD объемом 15Gb. Первый (Maxtor) разбила на 3 патиции: C, D, E соответственно 10Gb, 4Gb, 6Gb. Второй оставила с одной патицией F. Тем кодом, который привел serious и Pegas, можно получить информацию о том, что у меня в системе есть логические диски C, D, E, F их серийные номера, их объем. А у меня задача узнать сколько винчестеров у меня стоит, т.е. узнать о том, что у меня стоит 2 винчестера. Какие они, т.е., что это Maxtor и WD. Какой у них объем, т.е., что 20Gb и 15Gb. И на какие они патиции (логические диски) разбиты. А уже информацию по логическим дискам можно получить кодом приведенным выше Pegasом и seriousом.

Чтобы совсем было понятно: зайдите в Control Panel - Administrative tools - Computer management - Storage - Disk management. Вот в таком виде информацию...

Ну дык надо проверять название каждого винта или их серийные номера, тогда сможешь отличить один от другого. Иных путей не вижу, так что высылаю example, как все это сделать.

Автор: Dayana 17.3.2003, 22:18

serious, спасибо большое за пример... но я уже сама разобралась... :-)