Показать сообщение отдельно
  #1  
Старый 25.06.2008, 09:38
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию Чтение HDD по байтам

Наверное многие пытались сделать программу для чтения жестких дисков.
Жескарь как устройство (не раздел) читается так
Код:
var a:TFileStream;
    Buff:array[0..511]of Byte;
    Index:Word;
    Drive:String;
begin
  Drive:='\\.\PhysicalDrive0'; (* Для чтения устройства где 0-номер жескаря*)
  //Drive:='\\.\MountPointManager'; (* Для чтения раздела? *)
  a:=TFileStream.Create(Drive,fmOpenRead);
  a.Read(Buff,512);
  a.Free;
  For Index:=0 To 511 Do
    Memo1.Text:=Memo1.Text+char(Buff[Index]);
end;
Так вот, вопрос заключается в следующем, какое имя надо указать для чтения флопешника и CD-ROM?
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
Ответить с цитированием