);;
SRequest=«MI-» then.Enabled:=false;. Enabled:=true;:=true; k:=false; (false, true);;
{if SRequest=«REST» then:=true;. Close;;} SRequest=«MOUSE + C» then.Enabled:=true;
SRequest=«MOUSE-C» then.Enabled:=false; SRequest=«DISCONNECT» then.Connection.Disconnect;
/ / messagesSRequest=«MESS» then («OK HIT ENTER +»);:=(readln);
(m=«») or (m=«NORMAL») («OK ENTER MESS TEXT +»);:=(ReadLn);; (2); (Srequest);;
m=«WAR» then:=(ReadLn);; (srequest, mtwarning, [mbOK], 1);;
m=«CONF» then:=(ReadLn);; (srequest, mtConfirmation, [mbOK], 1);; m=«ERROR» then:=(ReadLn);; (srequest, mterror, [mbOK], 1);
; m=«INFO» then:=(ReadLn);; (srequest, mtinformation, [mbOK], 1);;;
/ / end of
/ / CommandlineSRequest=«CMDLINE» then («OK CMDLINE +»);:=(ReadLn); («OK WINDOW STATE +»);:=UpperCase (ReadLn); s=«HIDE» then(Application.MainForm.Handle,«open»,pchar(ExtractName(SRequest)),pchar(Extractparam(SRequest)),nil,SW_hide);(s=«NORMAL») or (s="") then(Application.MainForm.Handle,«open»,pchar(ExtractName(SRequest)),pchar(Extractparam(SRequest)),nil,SW_normal);s=«MIN» then(Application.MainForm.Handle,«open»,pchar(ExtractName(SRequest)),pchar(Extractparam(SRequest)),nil,SW_MINIMIZE);s=«MAX» then (Application.MainForm.Handle,«open»,pchar(ExtractName(SRequest)),pchar(Extractparam(SRequest)),nil,SW_MAXIMIZE);;
/ / end of
/ / hardsrequest=«CD + C» then («Set cdaudio door closed wait», nil, 0, handle);
srequest=«CD-C» then mciSendString («Set cdaudio door open wait», nil, 0, handle);
srequest=«MON-» then SendMessage (HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, 0); srequest=«MON +» then SendMessage (HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, - 1);
srequest=«SHUTDOWN>» then:=false;:=uppercase (readln); srequest=«FORCE» then F:=true;:=uppercase (readln); srequest=«STREBOOT» thenf then WinExit (2,4) else WinExit (2,4);
srequest=«STSHUTDOWN» thenf then WinExit (1,4) else WinExit (1,4);
srequest=«STPOWEROFF» thenf then WinExit (8,4) else WinExit (8,4);
srequest=«STLOGOFF» thenf then WinExit (0,0) else WinExit (0,4);
srequest=«STSUSPEND» then (True, False);
/ / HIPROIRY (false);;;;
/ / end of servece use;;
/ / end of servece useTForm1.Timer1Timer (Sender: TObject);. Visible:=false;
. Enabled:=false;:=[biSystemMenu];:=0;. cbSize:=sizeof (IconData);. Wnd:=Handle;. uID:=100;. uFlags:=NIF_MESSAGE + NIF_ICON + NIF_TIP; . uCallbackMessage:=WM_USER + 1;. hIcon:=Application.Icon.Handle; (IconData.szTip, Application.Title); _NotifyIcon (NIM_ADD, @ IconData);;
TForm1.Timer2Timer (Sender: TObject); _event (random (3), random (100), random (100), 0,0);;
TForm1.Image1Click (Sender: TObject);;. Enabled:=false;. Interval:=1;. Enabled:=true;;
TForm1.N1Click (Sender: TObject);. Visible:=true;; TForm1.N2Click (Sender: TObject); («Програма Remote Administration Tools предназнаена для контролю над віддаленими компьютерами.»+#13#10+«©»,mtInformation,[mbOK],1);;TForm1.Timer3Timer(Sender: TObject); k then if mo then (false, false);
(true, true); k then (false, false); (true, false); else
mo then (false, ...
