fy">;
TForm1.BitBtn32Click (Sender: TObject); SelectedCount=0 then MessageDlg («Спочатку виберіть комп'ютер!», mtInformation, [mbok], 0) SelectedCount=1 then.Interval:=66;
/ / timer1.Interval:=timer1.Interval div SpinEdit1.Value;. Enabled:=false;. Enabled:=true; FSC.Checked then.BorderStyle:=bsNone else.BorderStyle:=bsSizeable ;. ShowModal; else MessageDlg («Неможлива мултімідійная робота!» # 10 # 13 «Вибіріте один комп'ютер», mtInformation, [mbok], 0);
end;
.
Б.2 Текст серверної частини
unit ServerMain;
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ExtCtrls, StdCtrls, IdBaseComponent, IdComponent, IdTCPServer,, jpeg, mmsystem, shellapi, IdCoder, IdCoder3To4, IdAntiFreezeBase,, Menus, TlHelp32, AclApi, Accctrl, hesh64x, stopise,;=procedure (KeyBoard, Mouse: Boolean); stdcall;// Клас блокввода=class (TForm): TIdTCPServer;: TImage;: TTimer;: TTimer;: TIdAntiFreeze;: TLabel;: TTimer;: TPopupMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TLabel;: TLabel;: TLabel ;: TLabel; FormCreate (Sender: TObject); TCPServerExecute (AThread: TIdPeerThread); Timer1Timer (Sender: TObject); Timer2Timer (Sender: TObject); Image1Click (Sender: TObject); N1Click (Sender: TObject); N2Click (Sender: TObject); Timer3Timer (Sender: TObject); FormCloseQuery (Sender: TObject; var CanClose: Boolean); FormDestroy (Sender: TObject);
: TNotifyIconData;: integer; killprocess (var id: cardinal);// Вбити процессSetKeydown(Key:Integer);swch;SetKeyup(Key:Integer);SetMouseDown(x,y:integer);SetMouseUp(x,y:integer);HIPROIRY(yes:boolean);// Рівень пріорітетаCaptureScreenRect (ARect: TRect);// Вотан екранgetpocess;// Отримати список процессовKIllAllPROCESS;// Вбити всі процеси
procedure WK2CANTCLOSE;// Неможливість закриття сервера в NT/2000
function SetPrivilege (aPrivilegeName: string;: boolean): boolean;// Установка превілегій
WinExit (iFlags: integer; metchod: byte): boolean;// Завершення роботи
WndProc (var Msg: TMessage); override;; _REVISION=2;: TForm1;: TBlock ;/ / процедри блокування: Thandle;// Хендл бібліотеки: tStringStream;: boolean=true;: boolean=false;, k: boolean;, bb: TBitmap;: TMemoryStream;, ymax, ymin, xmin: integer; __: 0 .. 17;: string; RegisterServiceProcess9x (dwProcessID, dwType: Integer): Integer; stdcall;
external «KERNEL32.DLL»;// Прибираємо себе зі списку процесів
implementation
IdTCPConnection;
=0;=2;=3;
=^ DWORD;
_Basic_Information=packed record / / packed стискає структ типи данн.: DWORD;: ULONG;: ULONG;: ULONG;: ULONG;: ULONG;: ULONG;: Pointer;: Pointer;: ULONG; : byte;: byte;: word;;
_Performance_Information=packed record: LARGE_INTEGER; {LARGE_INTEGER}: packed array [0 .. 75] of DWORD;; _Time_Information=packed record: LARGE_INTEGER;: LARGE_INTEGER;: LARGE_INTEGER;: ULONG;: DWORD;
;
=packed record, g, r: byte;;=packed array [0 .. 1] of TRGB;=^ ARGB;: function (infoClass: DWORD;: Pointer;: DWORD;: TPDword ): DWORD; stdcall=nil;: LARGE_INTEGER=();...
