VPF::Как получить инфу о жестком диске?

Dayana

Дата 16.3.2003, 22:25 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник Клуба
Сообщений: 352
Регистрация: 6.10.2002
Где: Тель-Авив

Репутация: 2
Всего: 4

serious, а какой?

serious

Дата 17.3.2003, 03:08 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 316
Регистрация: 15.2.2003
Где: Пенза

Репутация: нет
Всего: 1

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

Код


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, 03:09

--------------------

Я знаю то, что ничего не знаю, а некоторые не знают и этого.

serious

Дата 17.3.2003, 16:45 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 316
Регистрация: 15.2.2003
Где: Пенза

Репутация: нет
Всего: 1

Цитата(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 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник Клуба
Сообщений: 352
Регистрация: 6.10.2002
Где: Тель-Авив

Репутация: 2
Всего: 4

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

Это сообщение отредактировал(а) Dayana - 17.3.2003, 22:19

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »