Прочитать загрузочную запись

[Alter]

Из знаний ассемблера, матем-ие операции .Нужно приименяя Ассемблер в Дельфи получить данные с логического диска( ИСПОЛЬЗУЯ прерывание: INT 25h ). Прочитать требуется с загрузочной записи РАЗНЫХ дисков параметры из записи. Формат загрузочной записи( Смещение, Размер байт, Содержание ): 0, 3, Команда JMP ххххх - ближний переход на программу нач-ой загрузки 3, 8, название фирмы-изготовителя OC и версия 11, 25, Расширенный блок параметров BIOS 36, 1, Физический номер устройства (0-НГМД, 80h-НМД) 37, 1, Зарезервировано 38, 1, Символ "("-признак расширенной загрузочной записи 39, 4, Серийный номер диска, создан во время форматир-ия 43, 11, Метка диска 54, 8, Содержит запись "FAT12" или "FAT16", которая идентифицирует формат таблицы размещения файлов (FAT)

[rpy3uH]

Сообщение от Alter

Нужно приименяя Ассемблер в Дельфи получить данные с логического диска( ИСПОЛЬЗУЯ прерывание: INT 25h ).

ЭТО НЕВОЗМОЖНО!!!!
int 25 может работать только в режиме реальных адресов либо в режиме виртуального 8086 под Windows. Режим релаьных адресов исключается так как надо использовать Delphi, а дельфийские программы могут работать только под Windows. Режим виртулаьного 8086 тоже невоможен так как это исключает возможность нормальной работы самой дельфийской программы

[Alter]

Сообщение от rpy3uH

ЭТО НЕВОЗМОЖНО!!!!
int 25 может работать только в режиме реальных адресов либо в режиме виртуального 8086 под Windows. Режим релаьных адресов исключается так как надо использовать Delphi, а дельфийские программы могут работать только под Windows. Режим виртулаьного 8086 тоже невоможен так как это исключает возможность нормальной работы самой дельфийской программы

Хорошо, тогда в Паскале записать точно возможно.Как это можно сделать на Паскале? Пример, набросок ...

[rpy3uH]

первый сектор жесткого диска содержит главную загрузочную запись, в нём же содержится таблица размещения разделов (это таблица где написано расположение каждого раздела C:, D:,E:....).
Тебе надо просто считывать первый сектор жесткого диска, обработать его и вывести данные.

[zetrix]

Тебе надо просто считывать первый сектор жесткого диска, обработать его и вывести данные.

Как это можно сделать? (Я тож заинтересовался)
Есть слухи что в винде ХР это сделать не получится...

[rpy3uH]

правильно в WinNT это не получится. но если запустить паскалевскую прогу из под DOS, либо из под Win9x, то получится.
Надо просто считать самый первый сектор (т.е. нулевой сектор диска) жесткого диска. В регистре cx int25 принимает количество сектором для чтения, в dx логический номер сектора т.е. 0. там ещё в al надо указать номер диска и в ds bx адрес куда копировать данные.
Как было уже сказано в WinNT это работать не будет. В WinNT надо использовать функции CreateFile и DeviceIoControl

[Alter]

Весь вопрос уперается в реализацию, есть мысли как это можно сделать?

[rpy3uH]

вот пример: считывает первый килобайт с жётского диска и сохраняет в файл. Я дизассемблировал файл - вроде там находится первичный загрузчик и ещё какая-то ерунда, наверно таблица размещения разделов.

procedure TForm1.Button1Click(Sender: TObject);
var
  h:THandle;
  c:DWORD;
  buff:array[0..1023] of char;
begin

  h:=CreateFile(PChar('\\.\PhysicalDrive0'),GENERIC_READ,0,0,OPEN_EXISTING,0,0);
  if h=INVALID_HANDLE_VALUE then ShowMessage('net');

  if not  ReadFile(h,buff,1024,c,0) then ShowMessage('net');
  CloseHandle(h);
  h:=CreateFile(PChar('F:\file.dat'),GENERIC_WRITE,0,0,CREATE_ALWAYS,0,0);
  WriteFile(h,buff,1024,c,0);
  CloseHandle(h);
end;

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

procedure TForm1.Button1Click(Sender: TObject);
var
  h:THandle;
  c:DWORD;
  buff:array[0..1023] of char;
  st:pointer;
begin

  h:=CreateFile('\\.\C:',GENERIC_READ,FILE_SHARE_READ+FILE_SHARE_WRITE,0,OPEN_EXISTING,0,0);
  if h=INVALID_HANDLE_VALUE then ShowMessage('îòñòîé');

  if not  ReadFile(h,buff,1024,c,0) then ShowMessage('îòñòîé');

  CloseHandle(h);
  h:=CreateFile(PChar('F:\file.dat'),GENERIC_WRITE,0,0,CREATE_ALWAYS,0,0);
  WriteFile(h,buff,1024,c,0);
  CloseHandle(h);
end;

[Alter]

Вот код программы которую хотел получить, только ненашол структуру NTFS. В программу для упрощения использованно чтение дисков типа FAT12, FAT16 (дискет). Другие типы невводились.