![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
![]() Наверное многие пытались сделать программу для чтения жестких дисков.
Жескарь как устройство (не раздел) читается так Код:
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; — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |