Курсовая работа: Разработка вспомогательной системной программы в системе программирования Delphi с использованием средств WinApi

Путь 4 :1-2-3-4-5-7-8-9-12.

№ пути	Исходные данные	Ожидаемые результаты	Реальные результаты
1	Дескрипторы файлов не созданы .	Невозможно получить данные о носителе вывод сообщения: «Не удалось создать дескрипторы файлов»	Вывод сообщения «Не удалось создать дескрипторы файлов»
2	Создан дескриптор файла BPB	Невозможно получить данные о носителе вывод сообщения: «Не удалось создать дескрипторы файлов»	Вывод сообщения «Не удалось создать дескрипторы файлов»
3	Создан дескриптор файла MBR	Невозможно получить данные о носителе вывод сообщения: «Не удалось создать дескрипторы файлов»	Вывод сообщения «Не удалось создать дескрипторы файлов»
4	Дескрипторы файлов существуют как MBR так и BPB	Загрузка данных о носителе.	Загрузка данных о носителе.

3) Тестирование процедуры считывающей блок параметров Bios- событие «С2» (происходит при нажатии на кнопку «Считать BPB»)логического диска

дескриптор которого был создан в процедуре обрабатывающей событие «С1» при нажатии на кнопку «Начать работу с диском»

1инициализация

2IfReadSectors(hDrive,0,1,@buffer,DiscGeometry.BytesPerSector) = DiscGeometry.BytesPerSector then

begin

3for i:= 1 to 16 do

4Grid1.Cells[i,0]:=intToHex((i-1),1);

5i:=1; j:=1; k:=1;

6while k<=DiscGeometry.BytesPerSector do

begin

7 if i=1 then

8 Grid1.Cells[0,j]:=IntToHex(((j-1)*16+(i-1)),3);

9 Grid1.Cells[i,j]:=IntToHex(Buffer[k],2);

inc(k);

inc(i);

10 if i>16 then

begin

11 i:=1;

j:=j+1;

Grid1.RowCount:= Grid1.RowCount+1;

12end;

13end;

14{линейный блок расшифровки данных BPB}

end

else

15ShowMessage(‘неудалосьсчитать BPB’);

16end

17end;