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

Также можно позволить пользователю изменять и сохранять настройки системы по своему вкусу. Здесь можно использовать функцию SystemParametersInfo. Для компонентов tbKeyboardSpeed, tbKeyboardDelay, cbScreenSaverActive, cbSpeaker, edSSTimeOut в ObjectInspector перейдем на закладку Events и изменим событие OnChange (для tbKeyboardSpeed, tbKeyboardDelay) , OnClick (для cbScreenSaverActive, cbSpeaker) и OnExit для edSSTimeOut на Change.

Использование Delphi совместно c фунциями Microsoft Win32 API позволит программисту создать более функционально богатые и гибкие приложения.

Процедуры модуля 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);

выполняет смену имени диска

procedure TDiadnostic.FormClose(Sender: TObject; var Action: TCloseAction);

Процедура выполняет функцию выхода из программы. Мгновенный выход из программы.

Выход из программы можно организовать несколькими способами, такими как:

-  Application.Terminate;

-  Form1.Hide;

-  Form1.Visible:=False;

-  Form1.Close;

Эти команды практически не отличаются друг от друга. Единственным различием может быть то, что первый выход работает гораздо быстрее, т.е. приложение закрывается мгновенно.

function OpenCD(Drive : Char) : Boolean;

выполняет функцию открытия сд-рома

function CloseCD(Drive : Char) : Boolean;

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

procedure TDiadnostic.SpeedButton1Click(Sender: TObject);

Процедура выполняет функцию открытия окна или формы. В данном случае открывается окно тестирования процессора.

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

procedure TForm1.Button1Click(Sender: TObject);

выполняет измерение тактовой частоты процессора.

Следует подробнее рассказать об идентификации процессора. Как известно, в процессорах пятого поколения, а также в некоторых четвёртого поколения, появилась команда CPUID. Эта команда позволяет больше узнать об установленном в системе процессоре. Обмен информацией происходит через основные регистры (EAX, EBX, ECX, EDX). Параметры задаются через регистр EAX. Таким образом, чтобы узнать информацию о версии процессора, я записал в EAX 1 и вызвал CPUID, после чего в EAX хранился результат. Для того, чтобы узнать производителя процессора, я записал в EAX 0 и вызвал CPUID, после чего в основных регистрах находится, уникальная для каждого производителя, строка. Для AMD это "AuthenticAMD", для Intel - "GenuineIntel", для Cyrix - "CyrixInstead". Теперь расскажу об идентификации процессоров, не имеющих инструкции CPUID. Понятно, что столь подробную информацию, в этом случае получить невозможно. Т.к. программа требует процессор не ниже третьего поколения, я начал проверку именно с этого поколения. Наличие 386-го процессора определяется недоступностью для записи 18-го бита регистра флагов, если бит доступен для записи, то я проверяю наличие поддержки команды CPUID, если она не поддерживается, то процессор 486-ой. Если же CPUID поддерживается, то дальше всё определение ложится именно на эту команду.

  Наличие поддержки команды CPUID определяется доступностью для записи 21-го бита регистра флагов.

procedure TForm1.pcc2PrecizeProc(Sender: TObject);

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

procedure TForm1.pcc3PrecizeProc(Sender: TObject);

используется для вычисления времени сложения 100 целых 64-битных чисел.

procedure TForm1.pcc4PrecizeProc(Sender: TObject);

используется для сложения 100 вещественных чисел

procedure TForm1.Button2Click(Sender: TObject);

собственно выполняет 3 вышеперечисленных процедуры

procedure TForm1.pcc5PrecizeProc(Sender: TObject);

используется  для тестирования скорости системной шины

procedure TForm1.Button3Click(Sender: TObject);

при нажатии данной кнопки процессор последовательно производит вычисления над 64-мя операциями NOP, расположенными в первом случае в памчти, во втором- в кэше, и потом вычисляет задержку на передачу команд из памяти.

procedure TForm1.Button4Click(Sender: TObject);

используется  для тестирования скорости вызова приложения в оперативную память (вызывается блокнот).

procedure TForm1.pcc7PrecizeProc(Sender: TObject);

здесь тестируется скорость заполнения кэша

procedure TForm1.pcc8PrecizeProc(Sender: TObject);

выясняем количество тактов, необходимых для выполнения одной операции NOP

NOP  -   Пустая операция.

             ---------------------------------------------------------

             O      D      I      T      S      Z      A      P      C

     ----------------------------------------------------------------¬

     ¦Код       Инструкция      Такты             Описание           ¦

     ¦операции                                                       ¦

     +--------T---------T-----T-----T-----T------T-------------------+

     ¦        ¦         ¦486  ¦386  ¦286  ¦86    ¦                   ¦

     +--------+---------+-----+-----+-----+------+-------------------+

     ¦90      ¦NOP      ¦1    ¦3    ¦3    ¦3     ¦Нет операции.      ¦

     L--------+---------+-----+-----+-----+------+--------------------

          Операция NOP не выполняет никакой операции.  NOP - это одно-

     байтовая инструкция,  которая занимает место,  но но не влияет на

     содержимое машины (кроме (E)IP).

          NOP - это псевдоним инструкции XCHG (E)AX, (E)AX.

procedure TProcessorClockCounter.TestPrecizeProc;

данная процедура помещает небольшой код в кэш память

procedure TProcessorClockCounter.TestPrecizeProcInCache;

данная процедура тестирует кусок кода, уже находящийся в кэш-памяти

procedure TDiadnostic.SpeedButton2Click(Sender: TObject);

данная процедура высвечивает сообщение о том, что программа тестирования памяти загружена в оперативную память.

  Тестированию подвергается память, расположенная выше первого мегабайта, во избежание проблем. Программа использует три разновидности тестирования: Бегущая Единица, Бегущий Ноль, Шахматная доска. Перед тем как начать тестирование, программа определяет объём памяти, установленной в системе. Для этого в последние четыре байта, каждого мегабайта, записывается число, затем оно читается и сравнивается. Если оно не совпадает с записанным, значит этого и последующих мегабайт памяти не существует.

  Особенности применяемых тестов следующие. Тест "Бегущая Единица" или "Бегущий Ноль" состоит в том, что в каждый байт памяти записывается значение 0FFh или 0 соответственно, затем это значение сравнивается. Несовпадение говорит об ошибке. В тесте "Шахматная доска" в память записываются значения вида 10101010b, затем они сдвигаются и сравниваются. Несовпадение - ошибка.

3.2. Руководство пользователю

Программа функционирует по следующему принципу:

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

после этого появляется главное окно программы

в нем содержатся следующие закладки:

1.     Общие – общая информация, т.е. тип процессора, операционная система, версия ОС, имя пользователя, организация.

2.     Диски – информация о всех дисках, установленных в системе, таких как жесткие диски, СД-РОМ, флоппи-диски, а также информация об их емкости, метке
тома, и файловой системе.

3.    
Принтер – информация о принтерах, установленных в системе

4.     память – информация о системной памяти, о ее количестве, информация о файле подкачки.

5.    
Клавиатура и мышь – информация о установленных в системе клавиатуре и мыши.

6.    
Видео- информация о видеокарте, разрешении монитора, поставщике драйвера и т.д.

7.    
информация о процессоре – вендор, частота

8.    
шрифты – информация о установленных шрифтах.

9.    
Диагностика – здесь собраны такие свойства, как тестирование процессора, памяти и проверка лотка СД-рома, а также информация об авторе этой маленькой программы

10.   
при нажатии на кнопку тестирования процессора выпадает нижеуказанное окно, где производится тестирование процессора.

здесь, можно потестировать очень много параметров. Перечислим наиболее главные из них:

-тактовая частота – здесь применяется встроенный в микропроцессор счетчик тактов, с которого мы получаем текущую тактовую частоту

-скорость выполнения арифмеических операций – здесь мы тестируем, насколько быстро процессор выполняет основные арифметические операции с различными типами данных

-скорость системной шины – здесь мы проверяем скорость шины между процессором и памятью, т.е. за сколько тактов передается информация между ними. Используется инструкции НОП, расположенные в первом случае в оперативной памяти, а во вотром случае – в кэш-памяти.

В конце программа вычисляет задержку памяти, т.е. сколько тактов требуется именно на передачу данных из / в память .

-скорость вызова приложений – здесь тестируем, за сколько тактов вызывается в оперативнюу память стандартная программа Блокнот

-скорость заполнения кэша – тама мы заполняем все 256 или 512 килобайтов кэша инструкциями, и смотрим, за сколько тактов он заполнится.

Заключение

Известно, что выпускная работа завершает подготовку бакалавра и показывает готовность выпускника решать теоретические и практические задачи в условиях реальной трудовой деятельности.
Цель выпускной работы – систематизация и углубление теоретических и практических знаний студента по специальности и возможности их применения в конкретных условиях практической деятельности. Поэтому то, как студент выполнил выпускную работу, показывает, как он подготовлен.

  В данной выпускной работе мною рассмотрена программа диагностики и тестирования компьютера, и в процессе ее написания я более хорошо понял назначение и принцип работы основных устройств персонального компьютера. Вышеозначенные знания, несомненно, пригодятся мне в дальнейшей моей трудовой деятельности. Я очень благодарен преподавательскому составу нашей кафедры за привитую мне способность учиться, невзирая на лень и другие обстоятельства.

  Что касается социальной(общественной ценности) данной работы, то я уверен, что для меня она очень значима, так как в процессе разработки я научился терпимости по отношению к программам и вообще у меня получилась очень хорошая утилитка.

Список используемой литературы

1) С. Бобровский “DELPHI 5” Учебный курс Москва 2000г.

2) Справочник функций WinAPI.

Приложение 1    Листинг программы

// главный модуль

unit Main;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, jpeg, ExtCtrls;

type

  TForm11 = class(TForm)

    Image1: TImage;

    Timer1: TTimer;

    Label1: TLabel;

    procedure Timer1Timer(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form11: TForm11;

implementation

uses Diag;

{$R *.dfm}

procedure TForm11.Timer1Timer(Sender: TObject);

begin

 diadnostic.show;

 timer1.Enabled:=false;

end;

end.

// собственно модуль диагностики

unit Diag;

interface

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  StdCtrls, ComCtrls, Registry,Printers, ExtCtrls, AxCtrls, OleCtrls, vcf1, Tabs, Winspool,

  FileCtrl, ImgList, Menus,winsock,ScktComp, Systeminfo,mmsystem, Buttons,shellapi;

type

  TDiadnostic = class(TForm)

    SysInfo1: TSysInfo;

    Timer1: TTimer;

    Button1: TButton;

    SpeedButton1: TSpeedButton;

    SpeedButton2: TSpeedButton;

    GroupBox3: TGroupBox;

    About: TButton;

    procedure AboutClick(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure aClick(Sender: TObject);

    procedure disknameClick(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure disknameChange(Sender: TObject);

    procedure ListBox1DrawItem(Control: TWinControl; Index: Integer;

      Rect: TRect; State: TOwnerDrawState);

    procedure ListBox1MeasureItem(Control: TWinControl; Index: Integer;

      var Height: Integer);

    procedure ListBox1Click(Sender: TObject);

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

    procedure Timer1Timer(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure SpeedButton1Click(Sender: TObject);

    procedure SpeedButton2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Diadnostic: TDiadnostic;

implementation

uses tlhelp32, about, example;

{$R *.DFM}

function GetRootDir:string; external 'Ulandll.dll' index 1;

function getboottype:string; external 'UlanDll.dll';// index 31;

procedure TDiadnostic.AboutClick(Sender: TObject);

begin

form2.show;

end;

procedure GetPrName(processor1:Tlabel);

var SI:TsystemInfo;

begin

GetSystemInfo(SI);

Case SI.dwProcessorType of

386:Processor1.caption:='386';

486:Processor1.caption:='486';

586:Processor1.caption:='586';

686:Processor1.caption:='686';

end;

end;

procedure GetRegInfoWinNT;

var

  Registryv       : TRegistry;

  RegPath         : string;

  sl,sll          : TStrings;

begin

  RegPath := '\HARDWARE\DESCRIPTION\System';

  registryv:=tregistry.Create;

  registryv.rootkey:=HKEY_LOCAL_MACHINE;

  sl := nil;

  try

    registryv.Openkey(RegPath,false);

    diadnostic.Label28.Caption:=(RegistryV.ReadString('SystemBiosDate'));

    sl:= ReadMultirowKey(RegistryV,'SystemBiosVersion');

    diadnostic.memo1.Text:=sl.Text;

  except

  end;

  Registryv.Free;

  if Assigned(sl) then sl.Free;

end;

function GetDisplayDevice: string;

var

  lpDisplayDevice: TDisplayDevice;

begin

  lpDisplayDevice.cb := sizeof(lpDisplayDevice);

  EnumDisplayDevices(nil, 0, lpDisplayDevice , 0);

  Result:=lpDisplayDevice.DeviceString;

end;

procedure getinfovideo;

var

  lpDisplayDevice: TDisplayDevice;

  dwFlags: DWORD;

  cc: DWORD;

begin

diadnostic.memo2.Clear;

lpDisplayDevice.cb := sizeof(lpDisplayDevice);

dwFlags := 0;

cc:= 0;

while EnumDisplayDevices(nil, cc, lpDisplayDevice , dwFlags) do

  begin

    Inc(cc);

    diadnostic.memo2.lines.add(lpDisplayDevice.DeviceString);

        {Так же мы увидим дополнительную информацию в lpDisplayDevice}

  end;

end;

function LocalIP : string;

type

    TaPInAddr = array [0..10] of PInAddr;

    PaPInAddr = ^TaPInAddr;

var

    phe  : PHostEnt;

    pptr : PaPInAddr;

    Buffer : array [0..63] of char;

    I    : Integer;

    GInitData      : TWSADATA;

begin

    WSAStartup($101, GInitData);

    Result := '';

    GetHostName(Buffer, SizeOf(Buffer));

    phe :=GetHostByName(buffer);

    if phe = nil then Exit;

    pptr := PaPInAddr(Phe^.h_addr_list);

    I := 0;

    while pptr^[I] <> nil do begin

      result:=StrPas(inet_ntoa(pptr^[I]^));

      Inc(I);

    end;

    WSACleanup;

end;

Function GetCPUSpeed: Double;

const

  DelayTime = 500;

var

  TimerHi      : DWORD;

  TimerLo      : DWORD;

  PriorityClass: Integer;

  Priority     : Integer;

begin

  PriorityClass := GetPriorityClass(GetCurrentProcess);

  Priority := GetThreadPriority(GetCurrentThread);

  SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);

  SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL);

  Sleep(10);

  asm

    dw 310Fh // rdtsc

    mov TimerLo, eax

    mov TimerHi, edx

  end;

  Sleep(DelayTime);

  asm

    dw 310Fh // rdtsc

    sub eax, TimerLo

    sbb edx, TimerHi

    mov TimerLo, eax

    mov TimerHi, edx

  end;

  SetThreadPriority(GetCurrentThread, Priority);

  SetPriorityClass(GetCurrentProcess, PriorityClass);

  Result := TimerLo / (1000.0 * DelayTime);

end;

 function CheckDriveType(ch:char): String;

var

  DriveLetter: Char;

  DriveType  : UInt;

begin

  DriveLetter := Ch;

  DriveType   := GetDriveType(PChar(DriveLetter + ':\'));

  Case DriveType Of

  0: Result := '?';

  1: Result := 'Path does not exists';

  Drive_Removable: Result := 'Removable';

  Drive_Fixed    : Result := 'Fixed';

  Drive_Remote   : Result := 'Remote';

  Drive_CDROM    : Result := 'CD-ROM';

  Drive_RamDisk  : Result := 'RAMDisk'

 else

  Result := 'Unknown';

 end;

end;

function GettingHWProfileName: String;

var

  pInfo:  TagHW_PROFILE_INFOA;

begin

  GetCurrentHwProfile(pInfo);

  Result := pInfo.szHwProfileName;

end;

procedure TDiadnostic.FormCreate(Sender: TObject);

var OsVerInfo:Tosversioninfo;

    winver,build:string;

    Disks:byte;

    buffer:array[0..255]of char;

    wd:string;

    sp:array[0..max_path-1]of char;

    s:string;

    memorystatus:tmemorystatus;

    dwLength:DWORD;         // sizeof(MEMORYSTATUS)

    dwMemoryLoad:DWORD;     // percent of memory in use

    dwTotalPhys:DWORD ;     // bytes of physical memory

    dwAvailPhys:DWORD   ;   // free physical memory bytes

    dwTotalPageFile:DWORD ; // bytes of paging file

    dwAvailPageFile:DWORD  ;// free bytes of paging file

    dwTotalVirtual:DWORD   ;// user bytes of address space

    dwAvailVirtual:DWORD  ; // free user bytes

    ktype:integer;

    R:Tregistry;

    R2:Tregistry;

    disk1:integer;

    msgtext:string;

const monitorregdir:string='\system\currentcontrolset\ENUM\Display\Default_Monitor';

      videordir:string='\System\currentcontrolset\services\class\display\0000';

      processordir:string='Hardware\Description\System\Centralprocessor\0';

begin

button2.click;

Label50.Caption:=GettingHWProfileName;

listbox1.items:=screen.fonts;

numofbuttons.caption:=inttostr(getsystemmetrics(sm_cmousebuttons));

if getsystemmetrics(sm_mousepresent)<>0then ismouse.caption:='Есть'else

ismouse.caption:='Нет';

for disk1:=0 to diskname.items.count-1 do

begin

disk.lines.add(diskname.items[disk1]+'  '+CheckDriveType(diskname.items[disk1][1]));

end;

{monitor&video}

///////

R:=tregistry.create;

R.RootKey:=HKEY_LOCAL_MACHINE;

R.OpenKey(monitorregdir,false);

monitortype.caption:=R.ReadString('DeviceDesc');

monitormanufacturer.caption:=R.ReadString('Mfg');

monitorid.caption:=r.readstring('HardwareID');

R.OpenKey(videordir,false);

//drvdesc.caption:=r.ReadString('DriverDesc');

driverdate.caption:=r.readstring('DriverDate');

drvprovider.caption:=r.readstring('ProviderName');

driverver.caption:=r.readstring('ver');

r.closekey;

r.closekey;

getinfovideo;

//////

{Version BIOS}

GetRegInfoWinNT;

{advanced processor info}

Страницы: 1, 2, 3