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

Y: Integer);

procedure Image6MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image7MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image8MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image9MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image5Click(Sender: TObject);

procedure Image9Click(Sender: TObject);

procedure Image2Click(Sender: TObject);

procedure Image4Click(Sender: TObject);

procedure Image3Click(Sender: TObject);

procedure Image8Click(Sender: TObject);

procedure Image7Click(Sender: TObject);

procedure Image6Click(Sender: TObject);

private

{ Private declarations }

Dragging,Stop : Boolean;

OldLeft,OldTop : Integer;

modes:array[0..255] of TDevMode;

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8;