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

FormVideo.Video1.Caption:=(lpDisplayDevice.DeviceString);

Form1.Visible:=False;

FormVideo.Visible:=True;

end;

end;

procedure TForm1.Image6Click(Sender: TObject);

begin

Form1.Visible:=False;

FormAbout.Visible:=True;

end;

end.

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, ExtCtrls, TeEngine, Series, TeeProcs, Chart,

DbChart, jpeg, registry;

type

TFormCPUSpeed = class(TForm)

LabelCPUSpeed: TLabel;

BitBtnStart: TBitBtn;

BitBtnStop: TBitBtn;

Timer1: TTimer;

Chart1: TChart;

Label1: TLabel;

Image1: TImage;

Series1: TFastLineSeries;

Label2: TLabel;

Label3: TLabel;