Реферат: Утилита диагностики компьютера

Процедуры модуля Main :

procedure TForm11.Timer1Timer(Sender: TObject);

Данная процедура используется для показа сплэш-окна при начальной загрузке программы. После своего выполнения она показывает главную форму.

Процедуры модуля Diag :

procedure TDiadnostic.AboutClick(Sender: TObject);

Процедура выполняет функцию открытия окна или формы. Это то же можно реализовать двумя способами:

1) Form1.Show;

2) Form1.Visible:=True;

procedure GetPrName(processor1:Tlabel);

Процедура определяет тип процессора.

procedure GetRegInfoWinNT;

Процедура используется для получения информации из реестра Windows. В частности, используется для выода информации о Базовой Системе Ввода-Вывода.

В большинстве случаев очень важной оказывается информация о типе BIOS. Строка типа BIOS хранится по адресу 0FFA68, а строка даты BIOS по адресу 0FFFF5. Это физические адреса, следовательно адреса "сегмент:смещение": 0F000:FA68 и 0F000:FFF5.

При включении компьютера BIOS инициализирует свои ресурсы и ищет, начиная с адреса 0C0000, ПЗУ установленных карт. Каждое ПЗУ имеет подпись, которая символизируется байтами 55AAh, если BIOS находит эти байты, то он узнаёт размер ПЗУ, который хранится в следующем байте и содержит число страниц по 512 байт, после чего по возможности считает контрольную сумму этого ПЗУ (она должна быть равна нулю) и передаёт управление на 4-ый байт. Также BIOS считает контрольную сумму байт CMOS, расположенных в ячейках 10h-2Dh. Так как в этих ячейках хранится важная, для продолжения работы, информация и её повреждения недопустимы.

Исходя из этого, программа определяет тип BIOS и считает контрольные суммы Видео ПЗУ и CMOS.

function GetDisplayDevice: string;

данная функция определяет основные параметры видеокарты, такие как размер памяти и строку данных производителя.

function LocalIP : string;

данная функция возвращает IP адрес текущего компьютера.

Function GetCPUSpeed: Double;

Выясняем тактовую частоту процессора.

function CheckDriveType(ch:char): String;

возвращает тип диска (сменный, жесткий)

procedure TDiadnostic.FormCreate(Sender: TObject);

создает главное окно программы

function getprintername:string;

Возвращает имя принтера, сетевого или локального.

procedure TDiadnostic.Button4Click(Sender: TObject);

выполняет обновление информации о состоянии памяти

procedure TDiadnostic.disknameChange(Sender: TObject);