Реферат: Утилита диагностики компьютера
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}
R2:=Tregistry.create;
R2.RootKey:=HKEY_LOCAL_MACHINE;
r2.OpenKey(processordir,false);
processorname.caption:=r2.readstring('Identifier');
vident.caption:=r2.readstring('VendorIdentifier');
if not (r2.readstring('MMXIdentifier')='')then
mmx1.caption:=r2.readstring('MMXIdentifier')
else
mmx1.caption:='нет';
Label48.Caption:=inttostr(Trunc(GetCPUSpeed))+' MHz';
{}
{memory}
memorystatus.dwlength:=sizeof(memorystatus);
globalmemorystatus(memorystatus);
physmemory.caption:=floattostr(memorystatus.dwtotalphys div 1024 div 1024)+' Мега '+'('+
floattostr(memorystatus.dwtotalphys / 1024 / 1024)+')';
avail.caption:=floattostr(memorystatus.dwavailphys / 1024 / 1024)+' Мег';
maxpf.caption:=floattostr(memorystatus.dwtotalpagefile / 1024 / 1024);
pffree.caption:=floattostr(memorystatus.dwavailpagefile / 1024 / 1024);
{}
{Windows info}
winid.caption:=getwinid;
winkey.caption:=getwinkey;
ver1.Caption:=getwinname;
username.caption:=getusernme;
//plusver.caption:=getplusvernum;
company.caption:=getorgname;
resolution.caption:=getscreenresolution;
{printer}
try
getprofilestring('windows','device',',,,',buffer,256);
s:=strpas(buffer);
defprn.Lines.add(' Принтер: '+copy(s,1,pos(',',s)-1));
delete(s,1,pos(',',s)-1);
defprn.lines.add(' Порт: '+copy(s,1,pos(',',s)-1));
delete(s,1,pos(',',s)-1);
defprn.lines.add(' Драйвер и порт:'+ s);
except
showmessage('Printer not found');
end;
{keyboard}
ktype:=GetKeyboardType(0);
case ktype of
1:keytype.caption:='IBM PC/XT или совместимая (83-клавииши)';