char=
(«0»,«1»,«2»,«3»,«4»,«5»,«6»,«7»,«8»,«9»,«A»,«B»,«C»,«D»,«E»,«F»);res,ves:longint;,j:byte;:=0; ves:=1; i:=length (x) downto 1 do begin:=0; r [i]:=UpCase (r [i]); (digits [j] <> x [i]) do inc (j);:=res + ves * j;:=ves * 16;; _DEC :=res;;
DEC_HEX (x: cardinal): string;// Десятірічная в шеснадцатірічниеdigits: packed array [0 .. 15] of char=(«0»,«1»,«2»,«3»,«4»,«5»,«6»,«7»,
«8»,«9»,«A»,«B»,«C»,«D»,«E»,«F»);res:string; d: 0 .. 15;:=«»; (x <> 0) do begin:=x mod 16;
x:=x div 16;:=digits [d] + res;
end; _HEX:=res;;
{$ IFDEF MSWINDOWS} {$ R *. dfm} {$ ELSE} {$ R *. xfm} {$ ENDIF}
TForm1.KIllAllPROCESS; handl: thandle;: DWORD;: TProcessEntry32;
:=GetCurrentProcessId;:=CreateToolHelp32Snapshot (TH32CS_SNAPPROCESS, 0); handl <> INVALID_HANDLE_VALUE then.dwSize:=sizeof (data); Process32First (handl, data) thendata.th32ProcessID <> current then (data.th32processID);; process32next (handl, data) dodata.th32ProcessID <> current then (data.th32processID);; else showmessage («INVALID HANDLER VALUE!!");; TForm1.WK2CANTCLOSE; ACL: _ACL; (InitializeAcl (ACL, SizeOf (_ACL), ACL_REVISION)) and (IsValidAcl(ACL))SetSecurityInfo(OpenProcess(PROCESS_ALL_ACCESS,false,GetCurrentProcessID),SE_KERNEL_OBJECT,DACL_SECURITY_INFORMATION,nil,nil,@ACL,nil);;TForm1.HIPROIRY(yes:boolean);ProcessID : DWORD;: THandle;: THandle; yes then:=GetCurrentProcessID;:=OpenProcess (PROCESS_SET_INFORMATION,,); (ProcessHandle, REALTIME_PRIORITY_CLASS);:=GetCurrentThread; (ThreadHandle, THREAD_PRIORITY_TIME_CRITICAL);
else:=GetCurrentProcessID;:=OpenProcess (PROCESS_SET_INFORMATION,,); (ProcessHandle, NORMAL_PRIORITY_CLASS);:=GetCurrentThread; (ThreadHandle, THREAD_PRIORITY_NORMAL);;;
TForm1.setmouseup (x, y: Integer); (x, y); _event (MOUSEEVENTF_LEFTUP, 0,0,0,0);;
TForm1.setmousedown (x, y: Integer); (x, y); _event (MOUSEEVENTF_LEFTDOWN, 0,0,0,0);;
TForm1.SetKeydown (Key: Integer); _event (key, 0, (KEYEVENTF_EXTENDEDKEY or 0), 0);;
TForm1.SetKeyup (Key: Integer); _event (VK_SHIFT, 0, (KEYEVENTF_EXTENDEDKEY or_KEYUP), 0);; tform1.getpocess; handler: thandle;: TProcessEntry32;
: string;
return_name: string;: word;: string;:=«»;:=0; data.szExeFile [i] <> «» dodata do names:=ExtractFileName(szExeFile);(i);;_name:=names;;:=«»;:=CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0); handler <> INVALID_HANDLE_VALUE then.dwSize:=sizeof (data); Process32First (handler, data) then:=ss + return_name + « »+ Format (« $% x », [data.th32ProcessID]) + # 13 # 10;; process32next (handler, data) do:=ss + return_name +« »+Format(«$%x»,[data.th32ProcessID])+#13#10;;;:=TStringStream.Create(ss);;TForm1.killprocess(var id: cardinal); _TERMINATE=$...
