Курсовая работа: Мониторинг ОС

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)));