Вниз
Скачать: CL | DM;

Количество физических дисков   Найти похожие ветки 

 
Oleg--   (2003-01-22 09:59) [0]

Привет.. Как бы определить количество установленных физических дисков. (Вне зависимости на какие логические диски они разбиты :)

может что-то вроде этого:

function OpenHDDAsFile( path : String ) : THandle;
begin
Result := Windows.CreateFile( PChar(path), GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0 );
end;

--------
var
hDevice : THandle;
begin
function OpenHDDAsFile( path : String ) : THandle;
begin
Result := Windows.CreateFile( PChar(path), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, 0, 0 );
end;


var
hDevice : THandle;
begin
hDevice := OpenHDDAsFile("\\.\PhysicalDrive0");
hDevice := OpenHDDAsFile("\\.\PhysicalDrive1");
hDevice := OpenHDDAsFile("\\.\PhysicalDrive2");
hDevice := OpenHDDAsFile("\\.\PhysicalDrive3");
hDevice := OpenHDDAsFile("\\.\PhysicalDrive4");
end
-----

ну все в цикле конечно... и смотреть .. открылся или нет?


 
Oleg--   (2003-01-22 10:01) [1]

странно скопировался пример.. так лучше :)))

--------
var
hDevice : THandle;
begin
function OpenHDDAsFile( path : String ) : THandle;
begin
Result := Windows.CreateFile( PChar(path), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, 0, 0 );
end;


var
hDevice : THandle;
begin
hDevice := OpenHDDAsFile("\\.\PhysicalDrive0");
hDevice := OpenHDDAsFile("\\.\PhysicalDrive1");
hDevice := OpenHDDAsFile("\\.\PhysicalDrive2");
hDevice := OpenHDDAsFile("\\.\PhysicalDrive3");
hDevice := OpenHDDAsFile("\\.\PhysicalDrive4");
end
-----


 
Hip Hop Music   (2003-01-22 10:15) [2]

Путь правильный. Смелее!


 
Игорь Шевченко ©   (2003-01-22 10:48) [3]

В кладовке, в разделе готовые программы лежит программа QuerySystemInformation (с исходниками) - там есть это определение


 
Oleg--   (2003-01-23 11:21) [4]

Hip Hop Music: хм.. проверить не на чем, но будут ли определятся SCSI диски таким образом или допольнительно надо будет проверить "\\.\ScsiN" устройства?


 
Alex Konshin ©   (2003-01-23 21:50) [5]

Можно не открывая через Native API.
А открыть может и не получиться, если у тебя прав нет.


 
Alex Konshin ©   (2003-01-23 21:52) [6]

Кстати, я боюсь что в случае физического RAID он будет виден как один единственный диск. Хотя не знаю - у меня нет RAID.



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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.014 c
14-64377
sancho{ne_hochu_parol_v_ceshe_ostavit'}
2003-03-05 19:49
2003.03.20
Подскажите словарь по программистскому сленгу


14-64382
Veronika
2003-03-03 13:52
2003.03.20
TObject Inspector


3-64000
Kron
2003-02-28 14:52
2003.03.20
Title в DBGrid


6-64244
MasterA
2003-01-03 18:33
2003.03.20
Видео-голосовой чат


1-64182
Nikolay Enby
2003-03-08 00:56
2003.03.20
Открыть с помощью...




   Наверх