p align="left"> OldLeft := X; OldTop := Y; end; end; procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if Dragging then begin Left := Left+X-OldLeft; Top := Top+Y-OldTop; end; end; procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Dragging := False; end; procedure TForm1.Image2MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Image2.Cursor:=crHandPoint; end; procedure TForm1.Image2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Image2.Picture:=Image14.Picture; end; procedure TForm1.Image2MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Image2.Picture:=Image15.Picture; end; procedure TForm1.Image3MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Image3.Picture:=Image16.Picture; end; procedure TForm1.Image4MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Image4.Picture:=Image18.Picture; end; procedure TForm1.Image5MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Image5.Picture:=Image13.Picture; end; procedure TForm1.Image6MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Image6.Picture:=Image24.Picture; end; procedure TForm1.Image7MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Image7.Picture:=Image23.Picture; end; procedure TForm1.Image8MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Image8.Picture:=Image20.Picture; end; procedure TForm1.Image9MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Image9.Picture:=Image11.Picture; end; procedure TForm1.Image3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Image3.Picture:=Image17.Picture; end; procedure TForm1.Image4MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Image4.Picture:=Image19.Picture; end; procedure TForm1.Image5MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Image5.Picture:=Image12.Picture; end; procedure TForm1.Image6MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Image6.Picture:=Image25.Picture; end; procedure TForm1.Image7MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Image7.Picture:=Image22.Picture; end; procedure TForm1.Image8MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Image8.Picture:=Image21.Picture; end; procedure TForm1.Image9MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Image9.Picture:=Image10.Picture; end; procedure TForm1.Image3MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Image3.Cursor:=crHandPoint; end; procedure TForm1.Image4MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Image4.Cursor:=crHandPoint; end; procedure TForm1.Image5MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Image5.Cursor:=crHandPoint; end; procedure TForm1.Image6MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Image6.Cursor:=crHandPoint; end; procedure TForm1.Image7MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Image7.Cursor:=crHandPoint; end; procedure TForm1.Image8MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Image8.Cursor:=crHandPoint; end; procedure TForm1.Image9MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Image9.Cursor:=crHandPoint; end; procedure TForm1.Image5Click(Sender: TObject); begin //Выход Application.Terminate; end; procedure TForm1.Image9Click(Sender: TObject); var Reg:TRegistry; begin Form1.Visible:=False; FormCPUSpeed.Visible:=True; Reg:=TRegistry.Create; Reg.RootKey:=HKEY_LOCAL_MACHINE; Reg.OpenKey('\Hardware\DESCRIPTION\System\CentralProcessor\0',False); FormCPUSpeed.LabelCPUName.Caption:=Reg.ReadString('ProcessorNameString'); Reg.CloseKey; FormCPUSpeed.BitBtnStart.Click; end; procedure TForm1.Image2Click(Sender: TObject); var MemInfo : TMemoryStatus; begin MemInfo.dwLength := Sizeof (MemInfo); GlobalMemoryStatus (MemInfo); FormPamyt.PolnayaFizPamyt.Caption:=IntToStr(MemInfo.dwTotalPhys div 1024); FormPamyt.DostupnayaFizPamyat.Caption:=IntToStr(MemInfo.dwAvailPhys div 1024); FormPamyt.ObshayaPodkachka.Caption:=IntToStr(MemInfo.dwTotalPageFile div 1024); FormPamyt.DostupPodkachka.Caption:=IntToStr(MemInfo.dwAvailPageFile div 1024); FormPamyt.Pamyt1.Progress := MemInfo.dwAvailPhys div (MemInfo.dwTotalPhys div 100); FormPamyt.Pamyt2.Progress := MemInfo.dwAvailPageFile div (MemInfo.dwTotalPageFile div 100); {если значение маленькое меняем цвет на красный} if (FormPamyt.Pamyt1.Progress < 5) then FormPamyt.Pamyt1.ForeColor := clRed else FormPamyt.Pamyt1.ForeColor := clActiveCaption; if (FormPamyt.Pamyt2.Progress < 20) then FormPamyt.Pamyt2.ForeColor := clRed else FormPamyt.Pamyt2.ForeColor := clActiveCaption; Form1.Visible:=False; FormPamyt.Visible:=True; if (StrToFloat(FormPamyt.PolnayaFizPamyt.Caption)>0)and(StrToFloat(FormPamyt.PolnayaFizPamyt.Caption)<65536) then begin FormPamyt.OcenkaPamyati.Caption:='1';FormPamyt.Label6.Caption:='-балл (Очень слабая)';end; if (StrToFloat(FormPamyt.PolnayaFizPamyt.Caption)>63488)and(StrToFloat(FormPamyt.PolnayaFizPamyt.Caption)<131072) then begin FormPamyt.OcenkaPamyati.Caption:='2';FormPamyt.Label6.Caption:='-балла (Слабая)';end; if (StrToFloat(FormPamyt.PolnayaFizPamyt.Caption)>129024)and(StrToFloat(FormPamyt.PolnayaFizPamyt.Caption)<262144) then begin FormPamyt.OcenkaPamyati.Caption:='3';FormPamyt.Label6.Caption:='-балла (Нормальная)';end; if (StrToFloat(FormPamyt.PolnayaFizPamyt.Caption)>260096)and(StrToFloat(FormPamyt.PolnayaFizPamyt.Caption)<524288) then begin FormPamyt.OcenkaPamyati.Caption:='4';FormPamyt.Label6.Caption:='-балла (Хорошая)';end; if (StrToFloat(FormPamyt.PolnayaFizPamyt.Caption)>522240)then begin FormPamyt.OcenkaPamyati.Caption:='5';FormPamyt.Label6.Caption:='-баллов (Отличная)';end; end; procedure TForm1.Image4Click(Sender: TObject); var OsVersion: TOSVersionInfo; PathArray:Array[0..255] of char; begin Form1.Visible:=False; FormOS.Visible:=True; //OS OSVersion.dwOSVersionInfoSize := SizeOf(OSVersion); if GetVersionEx(OSVersion) then begin FormOS.VersionLabel.Caption:= Format('%d.%d (%d.%s)',[OSVersion.dwMajorVersion, OSVersion.dwMinorVersion,(OSVersion.dwBuildNumber and $FFFF), OSVersion.szCSDVersion]); case OSVersion.dwPlatformID of VER_PLATFORM_WIN32s: FormOS.VersionNumberLabel.Caption := 'Windows 3.1'; VER_PLATFORM_WIN32_WINDOWS: FormOS.VersionNumberLabel.Caption := 'Windows 95'; VER_PLATFORM_WIN32_NT: FormOS.VersionNumberLabel.Caption := 'Windows NT'; else FormOS.VersionNumberLabel.Caption := ''; end; //of case end; //of if FillChar(PathArray, SizeOf(PathArray), #0); GetWindowsDirectory(PathArray,255); FormOS.WindowsDirLabel.Caption:= Format('%s',[PathArray]); FillChar(PathArray, SizeOf(PathArray), #0); ExpandEnvironmentStrings('%TEMP%', PathArray, 255); FormOS.TempDir.Caption:=Format('%s',[PathArray]); if FormOS.VersionNumberLabel.Caption='Windows NT' then begin FormOS.OcenkaOC.Caption:='2'; FormOS.Label7.Caption:='-балла(Отличная)'end else begin FormOS.OcenkaOC.Caption:='1';FormOS.Label7.Caption:='-балл(Старая)';end; if FormOS.VersionNumberLabel.Caption='Windows NT' then FormOS.WindowsOS.Caption:='NT/2000/XP'else FormOS.WindowsOS.Caption:='95/98/ME'; end; procedure TForm1.Image3Click(Sender: TObject); var i:Integer; begin case GetDeviceCaps(Canvas.Handle, TECHNOLOGY) of DT_PLOTTER: FormDisplay.Memo1.Lines.Add('Тип: Векторный плотер'); DT_RASDISPLAY: FormDisplay.Memo1.Lines.Add('Тип: Растровый дисплей'); DT_RASPRINTER: FormDisplay.Memo1.Lines.Add('Тип: Растровый принтер'); DT_RASCAMERA: FormDisplay.Memo1.Lines.Add('Тип: Растровая камера'); DT_CHARSTREAM: FormDisplay.Memo1.Lines.Add('Тип: Поток символов'); DT_METAFILE: FormDisplay.Memo1.Lines.Add('Тип: Метафайл'); DT_DISPFILE: FormDisplay.Memo1.Lines.Add('Тип: Файл дисплея'); end; FormDisplay.Memo1.Lines.Add('Ширина в миллиметрах '+IntToStr(GetDeviceCaps(Canvas.Handle, HORZSIZE))); FormDisplay.Memo1.Lines.Add('Высота в миллиметрах '+IntToStr(GetDeviceCaps(Canvas.Handle, VERTSIZE))); FormDisplay.Memo1.Lines.Add('Ширина в пикселях '+IntToStr(GetDeviceCaps(Canvas.Handle, HORZRES))); FormDisplay.Memo1.Lines.Add('Высота в пикселях '+IntToStr(GetDeviceCaps(Canvas.Handle, VERTRES))); FormDisplay.Memo1.Lines.Add('Количество пикселей на дюйм по горизонтали '+ IntToStr(GetDeviceCaps(Canvas.Handle, LOGPIXELSX))); FormDisplay.Memo1.Lines.Add('Количество пикселей на дюйм по вертикали '+ IntToStr(GetDeviceCaps(Canvas.Handle, LOGPIXELSY))); FormDisplay.Memo1.Lines.Add('Количество бит на пиксель '+ IntToStr(GetDeviceCaps(Canvas.Handle, BITSPIXEL))); FormDisplay.Memo1.Lines.Add('Количество цветовых плоскостей '+ IntToStr(GetDeviceCaps(Canvas.Handle, PLANES))); FormDisplay.Memo1.Lines.Add('Количество цветов в системной палитре '+ IntToStr(GetDeviceCaps(Canvas.Handle, SIZEPALETTE)));
Страницы: 1, 2, 3
|