В данном разделе перечислены и описаны все функции, которые используются в программе:

Главное окно, в котором находится TListBox, кнопки, определяющие все главные функции программы.

Дополнительные окна, для интерфейса пользователя и удоства использования программы.

Функция выводит на экран всю информацию об имени текущего пользователя средствами функций WinAPI.

function GetComputerNetName:string; //узнаем имя компьютера:array[0..255] of Char;:DWORD;:=256;GetComputerName(buffer,size) then:=bufferResult:= '';

end;

Функция выводит на экран всю информацию об имени текущего пользователя средствами функций WinAPI.

function GetCurrentUserName:String; //узнаем имя текущего пользователя=254;:String;:DWORD;:=cnMaxUserNameLen-1;(sUserName,cnMaxUserNameLen);(PChar(sUserName),dwUserNameLen);(sUserName,dwUserNameLen);

Result:=sUserName;;

Руководство пользователя

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

Главное окно имеет удобный и интуитивно понятный интерфейс. Главное окно, на которое попадает пользователь программой InfoPC - это окно с приветствием и навигацией по программе. На нижней панели программы находятся кнопки переключения. С помощью этих кнопок можно легко перемещаться по окнам программы и работать с ее функционалом.

Рис.3.4.Вид главного окна

Далее можно проверить работоспособность программы, например выберем информацию об оперативной памяти:

Рис. 3.5.Первое дополнительное окно, которое мы рассмотрим это «Информация о пользователе»:

Рис.3.6.Вид при активации доп. окна «Информация о пользователе»

Далее проверим на работоспособность дополнительное окно «Локальные диски», предназначенное для просмотра содержимого локальных дисков и съемных устройств:

Рис.3.7.Окно «Локальные диски»

Далее перейдем в окно «Дополнительная информация». Тут содержится информация, которая не попала не в один из разделов но является так же многозначительной:

Рис.3.8.Вид окна «Дополнительная информация»

ВЫВОДЫ

В процессе разработки данного приложения были изучены принципы программирования средствами WinAPI. Конечная программа имеет простейший в использовании интерфейс пользователя и в то же время имеет вполне широкий функционал. В результате разработки данной программы также была затронута тема реестра. Но основная часть программы написана на функциях Windows API. Программа InfoPC отличается от своих аналогов простым интерфейсом и структурированностью. Вся программа структурирована по отдельным разделам, что делает поиск нужного устройства еще более простым. Все вышеназванные цели были достигнуты.

СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ

1. Финогенов К. Г. Win32. Основы программирования. - 2-е изд., испр. и дополн. - М.: ДИАЛОГ-МИФИ, 2006.

. Гэри Неббет Справочник по базовым функциям API Windows NT/2000 = Windows NT/2000 Native API Reference. - М.: «Вильямс», 2002. - С. 528. - ISBN 1-57870-199-6

. RSDN Magazine #4-2005

. #"justify">. #"justify">ПРИЛОЖЕНИЕ А

Unit1;

, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Buttons, ToolWin, ComCtrls, ExtCtrls;

= class(TForm): TToolBar;: TSpeedButton;: TListBox;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;SpeedButton1Click(Sender: TObject);SpeedButton2Click(Sender: TObject);SpeedButton6Click(Sender: TObject);SpeedButton7Click(Sender: TObject);SpeedButton8Click(Sender: TObject);FormActivate(Sender: TObject);SpeedButton9Click(Sender: TObject);SpeedButton10Click(Sender: TObject);SpeedButton3Click(Sender: TObject);FormCreate(Sender: TObject);

{ Private declarations }

{ Public declarations };

: TForm1;

Unit2, Unit3, Unit4;

{$R *.dfm}

TForm1.SpeedButton1Click(Sender: TObject); //инф о процессоре:TSystemInfo;.items.Clear;(SysInfo);ListBox1.Items,SysInfo do('ProcessorArchitecture: '+IntToStr(wProcessorArchitecture));(FloatToStr(dwPageSize)+' Kb page size');(Format('Lowest memory address accessible to applications and DLL - %p',[lpMinimumApplicationAddress]));(Format('Highest memory address accessible to applications and DLL - %p',[lpMaximumApplicationAddress]));('OEMID:'+IntToStr(dwOemId));('ActiveProcessorMask:'+IntToStr(dwActiveProcessorMask));(IntToStr(dwNumberOfProcessors)+' - number of processors');('ProcessorType:'+IntToStr(dwProcessorType));wProcessorLevel of

:Add('Intel 80386 processor level');

:Add('Intel 80486 processor level');

:Add('Intel Pentium processor level');;(FloatToStr(dwAllocationGranularity/1024)+' Kb - granularity with which virtual memory is allocated');('ProcessorRevision:'+IntToStr(wProcessorRevision));;;

TForm1.SpeedButton2Click(Sender: TObject);//инф о памяти:TMemoryStatus;.Items.Clear;.dwLength:=SizeOf(MemoryStatus);(MemoryStatus);MemoryStatus do.items.Add(IntToStr(dwMemoryLoad)+'% использованно памяти');.items.Add(IntToStr((dwTotalPhys div 1024) div 1024)+' Мб всего физической памяти');.items.Add(IntToStr((dwAvailPhys div 1024) div 1024)+' Мб доступно физической памяти');.items.Add(IntToStr((dwTotalPageFile div 1024) div 1024)+' Мб всего виртуальной памяти');.items.Add(IntToStr((dwAvailPageFile div 1024) div 1024)+' Мб доступно виртуальной памяти');.items.Add(IntToStr((dwTotalVirtual div 1024) div 1024)+' Мб адресное виртуальное простанство текущего процесса');

listbox1.items.Add(IntToStr((dwAvailVirtual div 1024) div 1024)+' Мб доступно виртуального адресного пространства текущего процесса');

end;;

TForm1.SpeedButton6Click(Sender: TObject); //показать вторую форму.Show;;

TForm1.SpeedButton7Click(Sender: TObject);//серийный номер винчестера:Word;,b:DWORD;:array [0..255] of Char;.Items.Clear;GetVolumeInformation('c:\',Buffer,SizeOf(Buffer),@SerialNum,a,b,nil,0) then.Items.Add('Серийные номер винчестера:');.Items.Add(IntToStr(SerialNum));;;

TForm1.SpeedButton8Click(Sender: TObject); //показать форму 3.Show;;

TForm1.FormActivate(Sender: TObject); //плавно всплывающее окно и приветствие=127;:Byte;.Items.Add(' ');.Items.Add(' ');.Items.Add(' ');.Items.Add(' ');

ListBox1.Items.Add('Добро пожаловать в программу InfoPC!');

ListBox1.Items.Add(' ');.Items.Add(' ');.Items.Add(' ');

ListBox1.Items.Add('Данный проект является курсовой работой и не подлежит копированию и редактированию');

ListBox1.Items.Add(' ');.Items.Add(' ');.Items.Add(' ');

ListBox1.Items.Add('Все права защищенны');

ListBox1.Items.Add(' ');.Items.Add(' ');.Items.Add(' ');

ListBox1.Items.Add('Приятного пользование');

ListBox1.Items.Add(' ');.Items.Add(' ');.Items.Add(' ');.Items.Add('Удачи!');.Items.Add(' ');.Items.Add(' ');.Items.Add(' ');:=True;i:=1 to n do:=i*2;;;;

TForm1.SpeedButton9Click(Sender: TObject); //полная очистка.Clear;.Items.Add(' ');.Items.Add(' ');.Items.Add(' ');.Items.Add(' ');

ListBox1.Items.Add('Добро пожаловать в программу InfoPC!');

ListBox1.Items.Add(' ');.Items.Add(' ');.Items.Add(' ');

ListBox1.Items.Add('Данный проект является курсовой работой и не подлежит копированию и редактированию');

ListBox1.Items.Add(' ');.Items.Add(' ');.Items.Add(' ');

ListBox1.Items.Add('Все права защищенны');

ListBox1.Items.Add(' ');.Items.Add(' ');.Items.Add(' ');

ListBox1.Items.Add('Приятного пользование');

ListBox1.Items.Add(' ');.Items.Add(' ');.Items.Add(' ');.Items.Add('Удачи!');.Items.Add(' ');.Items.Add(' ');.Items.Add(' ');;

TForm1.SpeedButton10Click(Sender: TObject); //видеоадаптеры и видеорежимы:TDisplayDevice;:TDevMode;:String;,j,k:integer;:DWORD;:DWORD;.Items.Clear;.cb:=sizeof(lpDisplayDevice);:=0;:=0;EnumDisplayDevices(nil,cc,lpDisplayDevice,dwFlags) do(cc);.Items.add(lpDisplayDevice.DeviceString);;.Items.Add(' ');

// Подготовка структуры lpDisplayDevice.cb:=sizeof(lpDisplayDevice);

// Получение списка видеоадаптеров:=0;EnumDisplayDevices(nil,i,lpDisplayDevice,0) do(i);.Items.Add('***** '+lpDisplayDevice.DeviceString + ' *****');.Items.Add(' DeviceName = '+lpDisplayDevice.DeviceName+' - '+lpDisplayDevice.DeviceString);:=lpDisplayDevice.DeviceName;:=0;.Items.Add(' Мониторы: ' );

// Получение списка мониторовEnumDisplayDevices(@S[1],j,lpDisplayDevice,0) do

begin(j);.Items.add(' DeviceMonitor = '+lpDisplayDevice.DeviceName+' - '+lpDisplayDevice.DeviceString);;:=0;.Items.Add(' Видеорежимы: ' );

// Получение списка поддерживаемых видеорежимовEnumDisplaySettings(Pchar(S), k, DevMode) do.Items.Add(' --- режим № '+IntToStr(k)+' ---');(k);.Items.Add('DevMode.dmDeviceName = '+DevMode.dmDeviceName);.Items.Add('DevMode.dmBitsPerPel = '+IntToStr(DevMode.dmBitsPerPel));.Items.Add('DevMode.dmPelsWidth = '+IntToStr(DevMode.dmPelsWidth));.Items.Add('DevMode.dmPelsHeight = '+IntToStr(DevMode.dmPelsHeight));.Items.Add('DevMode.dmDisplayFrequency = '+IntToStr(DevMode.dmDisplayFrequency)+' Гц');;;;

TForm1.SpeedButton3Click(Sender: TObject);//показать окно "Расширенная информация".Show;;

TForm1.FormCreate(Sender: TObject);.Left:=(Screen.Width-Form1.Width) div 2; //по середине моннитора.Top:=(Screen.Height-Form1.Height) div 2;;

.

ПРИЛОЖЕНИЕ БUnit2;

, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Buttons, StdCtrls, unit1;

= class(TForm): TEdit;: TEdit;: TSpeedButton;: TMemo;: TLabel;: TLabel;: TLabel;SpeedButton1Click(Sender: TObject);FormActivate(Sender: TObject);FormCreate(Sender: TObject);

{ Private declarations }

{ Public declarations };

: TForm2;

{$R *.dfm}

GetComputerNetName:string; //узнаем имя компьютера:array[0..255] of Char;:DWORD;:=256;GetComputerName(buffer,size) then:=bufferResult:= '';;

GetCurrentUserName:String; //узнаем имя текущего пользователя=254;:String;:DWORD;:=cnMaxUserNameLen-1;(sUserName,cnMaxUserNameLen);(PChar(sUserName),dwUserNameLen);(sUserName,dwUserNameLen);:=sUserName;;

TForm2.SpeedButton1Click(Sender: TObject); //информация о пользователе=800; // расчет (SizeOf(Pointer)=4 *200):THandle;:PTOKENPRIVILEGES;:Cardinal;:Integer;:PChar;:PChar;:Cardinal;:Cardinal;:Cardinal;.Lines.Clear;.text:=GetComputerNetName; //вызываем функцию имени "имя компьютера"

Edit2.text:= GetCurrentUserName; //вызываем функцию "имя пользователя"

GetMem(pTokenInfo, TokenSize);not OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,hToken) then ShowMessage('OpenProcessToken error');not GetTokenInformation(hToken, TokenPrivileges, pTokenInfo, TokenSize, ReturnLen) then('GetTokenInformation error');(PrivName, 255);(DisplayName, 255);i := 0 to pTokenInfo.PrivilegeCount - 1 do:= 255;:= 255;(nil, pTokenInfo.Privileges[i].Luid, PrivName, Namesize);(nil, PrivName, DisplayName, DisplSize, LangId);.lines.Add(PrivName +^I + DisplayName);;(PrivName);(DisplayName);(pTokenInfo);;

TForm2.FormActivate(Sender: TObject); //плавно всплывающее окно для формы 2=127;:Byte;:=True;i:=1 to n do:=i*2;;;;

TForm2.FormCreate(Sender: TObject);.Left:=(Screen.Width-Form2.Width) div 2; //по середине моннитора.Top:=(Screen.Height-Form2.Height) div 2;;

.

ПРИЛОЖЕНИЕ В

Unit3;

, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, unit1, ComCtrls;

= class(TForm): TTreeView;FormCreate(Sender: TObject);TreeView1Expanding(Sender: TObject; Node: TTreeNode;AllowExpansion: Boolean);FormActivate(Sender: TObject);

{ Private declarations }

{ Public declarations };

: TForm3;

{$R *.dfm}NextLevel(ParentNode: TTreeNode); //переключение и показ папок на лок дискахDirectoryName(name: string): boolean;:=(name<>'.') and (name<>'..');;, srChild: TSearchRec;: TTreeNode;: string;:=ParentNode;:='';:=node.Text+'\'+path;:=node.Parent;node=nil;FindFirst(path+'*.*', faDirectory, sr)=0 then(sr.Attr and faDirectory <> 0) and DirectoryName(sr.Name):=Form3.TreeView1.Items.AddChild(ParentNode, sr.Name);.ImageIndex:=0;.SelectedIndex:=1;.HasChildren:=false;FindFirst(path+sr.Name+'\*.*', faDirectory, srChild)=0(srChild.Attr and faDirectory<>0) and DirectoryName(srChild.Name)node.HasChildren := true;(FindNext(srChild) <> 0) or node.HasChildren;;(srChild);;FindNext(sr) <> 0;ParentNode.HasChildren:=false;(sr);;

TForm3.FormCreate(Sender: TObject); //показать локальные диски и находящиеся

//в них папки:array [0..6] of String=('CLOSEDFOLDER','OPENFOLDER','FLOPPY','HARD','NETWORK','CDROM','RAM');:Char;:String;:TTreeNode;:Integer;,mask:TBitmap;:Integer;.Left:=(Screen.Width-Form3.Width) div 2; //по середине моннитора.Top:=(Screen.Height-Form3.Height) div 2;

.Items.BeginUpdate;.Images:=TImageList.CreateSize(16, 16);:=TBitmap.Create;:=TBitmap.Create;i:=low(IconNames) to high(IconNames) do.Handle:=LoadBitmap(HInstance, PChar(IconNames[i]));.Width:=16;.Height:=16;.Assign(bm);.Mask(clBlue);.Images.Add(bm, mask);;c:='A' to 'Z' do:=c+':';:=GetDriveType(PChar(s));DriveType=1 then continue;:=Form3.TreeView1.Items.AddChild(nil, s);DriveType of_REMOVABLE: node.ImageIndex:=2;_FIXED: node.ImageIndex:=3;_REMOTE: node.ImageIndex:=4;_CDROM: node.ImageIndex:=5;node.ImageIndex:=6;;.SelectedIndex:=node.ImageIndex;.HasChildren:=true;;.Items.EndUpdate;

;

TForm3.TreeView1Expanding(Sender: TObject; Node: TTreeNode;AllowExpansion: Boolean);.Items.BeginUpdate;.DeleteChildren;(Node);.Items.EndUpdate;;

TForm3.FormActivate(Sender: TObject); //плавно всплывающее окно для формы 3n=127;:Byte;:=True;i:=1 to n do:=i*2;;;;

.

ПРИЛОЖЕНИЕ Г

Unit4;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Winsock, registry, ExtCtrls, StdCtrls, ImgList, Buttons, ShellAPI, ComCtrls;= class(TForm): TImage;: TTimer;: TStatusBar;: TImageList;: TImage;FormShow(Sender: TObject);Timer1Timer(Sender: TObject);FormCreate(Sender: TObject);FormActivate(Sender: TObject);Image2Click(Sender: TObject);

{ Private declarations }info(s1, s2: string);;: TForm4;_speed_y: Integer;_text_y: Integer;

_eax, _ebx, _ecx, _edx: Longword;: Integer;: Byte;: Word;,s1,s2,s3,s_all:string;:TImageIndex;: TDisplayDevice;: DWORD;: DWORD;_speed_x: Integer =8;_text_x: Integer =15;_start: Boolean =True;

{$R *.dfm}TForm4.FormShow(Sender: TObject);

_eax, _ebx, _ecx, _edx: Longword;: Integer;: Byte;, s1, s2, s3, s_all: string;:TMemoryStatus;: WORD;: TWSAData;: pchar;: PHostEnt;: array[0..128] of char;:integer;:DWORD;: array [0..255] of char;:TOSVersionInfo;('','');

//Set the startup colour of the image.Canvas.Brush.Color:=clBtnFace;.Canvas.FillRect(rect(0, 0, Image1.Width,Image1.Height));//get brand IDeax,$80000002$0F$A2_eax,eax_ebx,ebx_ecx,ecx_edx,edx;:= '';:= '';:= '';:= '';i := 0 to 3 do:= lo(_eax);:= s3 + chr(b);:= lo(_ebx);:= s + chr(b);:= lo(_ecx);:= s1 + chr(b);:= lo(_edx);:= s2 + chr(b);

_eax := _eax shr 8;

_ebx := _ebx shr 8;

_ecx := _ecx shr 8;

_edx := _edx shr 8;;_all := s3 + s + s1 + s2;eax,$80000003$0F$A2_eax,eax_ebx,ebx_ecx,ecx_edx,edx;:= '';:= '';:= '';:= '';i := 0 to 3 do:= lo(_eax);:= s3 + chr(b);:= lo(_ebx);:= s + chr(b);:= lo(_ecx);:= s1 + chr(b);:= lo(_edx);:= s2 + chr(b);

_eax := _eax shr 8;

_ebx := _ebx shr 8;

_ecx := _ecx shr 8;

_edx := _edx shr 8;;_all := s_all + s3 + s + s1 + s2;eax,$80000004$0F$A2_eax,eax_ebx,ebx_ecx,ecx_edx,edx;:= '';:= '';:= '';:= '';i := 0 to 3 do:= lo(_eax);:= s3 + chr(b);:= lo(_ebx);:= s + chr(b);:= lo(_ecx);:= s1 + chr(b);:= lo(_edx);:= s2 + chr(b);

_eax := _eax shr 8;

_ebx := _ebx shr 8;

_ecx := _ecx shr 8;

_edx := _edx shr 8;;s2[Length(s2)] = #0 then setlength(s2, Length(s2) - 1);('', 'Процессор - ' + s_all + s3 + s + s1 + s2);;.cb := sizeof(lpDisplayDevice);EnumDisplayDevices(nil, cc, lpDisplayDevice, dwFlags) do(cc);('', 'Видео карта - ' + lpDisplayDevice.DeviceString);;(MS);('', 'Оперативня память - '+FormatFloat('#,###" Мгб"', MS.dwTotalPhys / 1044484) );;.dwOSVersionInfoSize := SizeOf(OSVersion);GetVersionEx(OSVersion) then('', 'Версия операционной системы - ' + Format('%d.%d (%d.%s)',[OSVersion.dwMajorVersion,OSVersion.dwMinorVersion,(OSVersion.dwBuildNumber and $FFFF),OSVersion.szCSDVersion]));;:=GetLogicalDrives;isa:=0 to 25 do(ld and (1 shl isa))<>0 thenGetDriveType(PChar(Char(Ord('A')+isa) + ':\'))=DRIVE_FIXED then('','HDD - ' +Char(Ord('A')+isa)+':\');GetDriveType(PChar(Char(Ord('A')+isa) + ':\'))=DRIVE_REMOVABLE then('','Floppy - '+Char(Ord('A')+isa)+':\');GetDriveType(PChar(Char(Ord('A')+isa)+':\'))=DRIVE_CDROM then('','CD-Rom - '+Char(Ord('A')+isa)+':\');;:=MAKEWORD(1,1);(wVerReq,wsaData);(@c,128);:=GetHostByName(@c);:=iNet_ntoa(PInAddr(h^.h_addr_list^)^);;('','IP - '+iw);;('','HOST - '+h^.h_Name);;;(PathArray,SizeOf(PathArray),#0);(PathArray,255);('','Дериктория Windows - '+Format('%s',[PathArray]));;;;TForm4.info(s1, s2: string);s1 <> '' then.Canvas.Brush.Color := clBtnFace;.Canvas.Font.Color := clBlack;.Canvas.TextOut(gn_text_x, gn_text_y, s1);;s2 <> '' then.Canvas.Brush.Color := clBtnFace;.Canvas.Font.Color := clBlack;.Canvas.TextOut(gn_text_x + Image1.Canvas.TextWidth(s1), gn_text_y, s2);;(gn_text_y, 13);;TForm4.Timer1Timer(Sender: TObject);.Panels[0].Text:='Сейчас: '+DateToStr(Now)+' '+TimeToStr(Now);;TForm4.FormCreate(Sender: TObject);.Left:=(Screen.Width-Form4.Width) div 2; //по середине моннитора.Top:=(Screen.Height-Form4.Height) div 2;;TForm4.FormActivate(Sender: TObject);=127;:Byte;:=True;i:=1 to n do:=i*2;;;;TForm4.Image2Click(Sender: TObject);: TRegistry;:=TRegistry.Create;.RootKey := HKEY_CURRENT_USER;.OpenKey('SOFTWARE\MICROSOFT\Internet Explorer\Main',True);;;.

Больше работ по теме: