kursovaya / Unit1

unit Unit1;

interface

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

type
TForm1 = class(TForm)
ToolBar1: TToolBar;
SpeedButton1: TSpeedButton;
ListBox1: TListBox;
SpeedButton2: TSpeedButton;
SpeedButton6: TSpeedButton;
SpeedButton7: TSpeedButton;
SpeedButton8: TSpeedButton;
SpeedButton9: TSpeedButton;
SpeedButton10: TSpeedButton;
SpeedButton3: TSpeedButton;
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure SpeedButton7Click(Sender: TObject);
procedure SpeedButton8Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure SpeedButton9Click(Sender: TObject);
procedure SpeedButton10Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
uses Unit2, Unit3, Unit4;
{$R *.dfm}

procedure TForm1.SpeedButton1Click(Sender: TObject); //инф о процессоре
var
SysInfo:TSystemInfo;
begin
listbox1.items.Clear;
GetSystemInfo(SysInfo);
with ListBox1.Items,SysInfo do
begin
Add('ProcessorArchitecture: '+IntToStr(wProcessorArchitecture));
Add(FloatToStr(dwPageSize)+' Kb page size');
Add(Format('Lowest memory address accessible to applications and DLL - %p',[lpMinimumApplicationAddress]));
Add(Format('Highest memory address accessible to applications and DLL - %p',[lpMaximumApplicationAddress]));
Add('OEMID:'+IntToStr(dwOemId));
Add('ActiveProcessorMask:'+IntToStr(dwActiveProcessorMask));
Add(IntToStr(dwNumberOfProcessors)+' - number of processors');
Add('ProcessorType:'+IntToStr(dwProcessorType));
case wProcessorLevel of
3:Add('Intel 80386 processor level');
4:Add('Intel 80486 processor level');
5:Add('Intel Pentium processor level');
end;
Add(FloatToStr(dwAllocationGranularity/1024)+' Kb - granularity with which virtual memory is allocated');
Add('ProcessorRevision:'+IntToStr(wProcessorRevision));
end;
end;

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

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

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

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

procedure TForm1.FormActivate(Sender: TObject); //плавно всплывающее окно и приветствие
const
n=127;
var
i:Byte;
Begin
ListBox1.Items.Add(' ');
ListBox1.Items.Add(' ');
ListBox1.Items.Add(' ');
ListBox1.Items.Add(' ');
ListBox1.Items.Add('Добро пожаловать в программу InfoPC!');
ListBox1.Items.Add(' ');
ListBox1.Items.Add(' ');
ListBox1.Items.Add(' ');
ListBox1.Items.Add('Данный проект является курсовой работой и не подлежит копированию и редактированию');
ListBox1.Items.Add(' ');
ListBox1.Items.Add(' ');
ListBox1.Items.Add(' ');
ListBox1.Items.Add('Все права защищенны');
ListBox1.Items.Add(' ');
ListBox1.Items.Add(' ');
ListBox1.Items.Add(' ');
ListBox1.Items.Add('Приятного пользование');
ListBox1.Items.Add(' ');
ListBox1.Items.Add(' ');
ListBox1.Items.Add(' ');
ListBox1.Items.Add('Удачи!');
ListBox1.Items.Add(' ');
ListBox1.Items.Add(' ');
ListBox1.Items.Add(' ');
AlphaBlend:=True;
for i:=1 to n do
begin
AlphaBlendValue:=i*2;
Repaint;
end;
end;

procedure TForm1.SpeedButton9Click(Sender: TObject); //полная очистка
begin
ListBox1.Clear;
ListBox1.Items.Add(' ');
ListBox1.Items.Add(' ');
ListBox1.Items.Add(' ');
ListBox1.Items.Add(' ');
ListBox1.Items.Add('Добро пожаловать в программу InfoPC!');
ListBox1.Items.Add(' ');
ListBox1.Items.Add(' ');
ListBox1.Items.Add(' ');
ListBox1.Items.Add('Данный проект является курсовой работой и не подлежит копированию и редактированию');
ListBox1.Items.Add(' ');
ListBox1.Items.Add(' ');
ListBox1.Items.Add(' ');
ListBox1.Items.Add('Все права защищенны');
ListBox1.Items.Add(' ');
ListBox1.Items.Add(' ');
ListBox1.Items.Add(' ');
ListBox1.Items.Add('Приятного пользование');
ListBox1.Items.Add(' ');
ListBox1.Items.Add(' ');
ListBox1.Items.Add(' ');
ListBox1.Items.Add('Удачи!');
ListBox1.Items.Add(' ');
ListBox1.Items.Add(' ');
ListBox1.Items.Add(' ');
end;

procedure TForm1.SpeedButton10Click(Sender: TObject); //видеоадаптеры и видеорежимы
var
lpDisplayDevice:TDisplayDevice;
DevMode:TDevMode;
S:String;
i,j,k:integer;
dwFlags:DWORD;
cc:DWORD;
begin
ListBox1.Items.Clear;
lpDisplayDevice.cb:=sizeof(lpDisplayDevice);
dwFlags:=0;
cc:=0;
while EnumDisplayDevices(nil,cc,lpDisplayDevice,dwFlags) do
begin
Inc(cc);
ListBox1.Items.add(lpDisplayDevice.DeviceString);
end;
ListBox1.Items.Add(' ');
// Подготовка структуры lpDisplayDevice
lpDisplayDevice.cb:=sizeof(lpDisplayDevice);
// Получение списка видеоадаптеров
i:=0;
while EnumDisplayDevices(nil,i,lpDisplayDevice,0) do
begin
Inc(i);
ListBox1.Items.Add('***** '+lpDisplayDevice.DeviceString + ' *****');
ListBox1.Items.Add(' DeviceName = '+lpDisplayDevice.DeviceName+' - '+lpDisplayDevice.DeviceString);
S:=lpDisplayDevice.DeviceName;
j:=0;
ListBox1.Items.Add(' Мониторы: ' );
// Получение списка мониторов
while EnumDisplayDevices(@S[1],j,lpDisplayDevice,0) do
begin
inc(j);
ListBox1.Items.add(' DeviceMonitor = '+lpDisplayDevice.DeviceName+' - '+lpDisplayDevice.DeviceString);
end;
k:=0;
ListBox1.Items.Add(' Видеорежимы: ' );
// Получение списка поддерживаемых видеорежимов
while EnumDisplaySettings(Pchar(S), k, DevMode) do
begin
ListBox1.Items.Add(' --- режим № '+IntToStr(k)+' ---');
inc(k);
ListBox1.Items.Add('DevMode.dmDeviceName = '+DevMode.dmDeviceName);
ListBox1.Items.Add('DevMode.dmBitsPerPel = '+IntToStr(DevMode.dmBitsPerPel));
ListBox1.Items.Add('DevMode.dmPelsWidth = '+IntToStr(DevMode.dmPelsWidth));
ListBox1.Items.Add('DevMode.dmPelsHeight = '+IntToStr(DevMode.dmPelsHeight));
ListBox1.Items.Add('DevMode.dmDisplayFrequency = '+IntToStr(DevMode.dmDisplayFrequency)+' Гц');
end;
end;
end;

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

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

end.