: LARGE_INTEGER=(); Li2Double (x: LARGE_INTEGER): Double;:=x.HighPart * 4.294967296E9 + x.LowPart;
GetCPUUsage: double;// Інфоромацію Про завантаження процесорів: TSystem_Basic_Information;: TSystem_Performance_Information;: TSystem_Time_Information;: Longint; {Long}: Double;: Double; @ NtQuerySystemInformation=nil then:=GetProcAddress (GetModuleHandle («ntdll.dll»),
«NtQuerySystemInformation»);:=NtQuerySystemInformation (SystemBasicInformation, @ SysBaseInfo, SizeOf (SysBaseInfo), 0); status <> 0 then Exit;. ProcessMessages;
:=NtQuerySystemInformation (SystemTimeInformation, @ SysTimeInfo, SizeOf (SysTimeInfo), nil); status <> 0 then Exit;
:=NtQuerySystemInformation (SystemPerformanceInformation, @ SysPerfInfo, SizeOf (SysPerfInfo), nil); status <> 0 then Exit;
(liOldIdleTime.QuadPart <> 0) then
:=Li2Double (SysPerfInfo.liIdleTime) - Li2Double (liOldIdleTime);:=Li2Double (SysTimeInfo.liKeSystemTime) - Li2Double (liOldSystemTime);
:=dbIdleTime / dbSystemTime;
:=100.0 - dbIdleTime * 100.0 / SysBaseInfo.bKeNumberProcessors + 0.5;:=dbIdleTime;. ProcessMessages;;
/ / store new CPU's idle and system time:=SysPerfInfo.liIdleTime;:=SysTimeInfo.liKeSystemTime;;;
ExtractParam (s: string): string;// Витягуємо параметри з командного строкіi: integer;:=«»; i:=1 to length (s) do if s [i]="/" then:=copy (s, i +1, length (s) - 1);;
TForm1.SetPrivilege (aPrivilegeName: string; aEnabled: boolean): boolean;// Превілегіі
,: TTokenPrivileges;: THandle;: DWord;:=False; (GetCurrentProcess, TOKEN_ADJUST_PRIVILEGESTOKEN_QUERY, Token);. PrivilegeCount:=1; (LookupPrivilegeValue (nil, PChar (aPrivilegeName),. Privileges [0 ]. LUID)) then (aEnabled) then.Privileges [0]. Attributes:=SE_PRIVILEGE_ENABLED.Privileges [0]. Attributes:=0;:=0;:=AdjustTokenPrivileges (Token, False, TP, (TPPrev),, dwRetLen);; (Token);; tform1.WinExit (iFlags: integer; metchod: byte): boolean;
/ / EWX_LOGOFF
/ / EWX_REBOOT
/ / EWX_SHUTDOWN:=True; (SetPrivilege («SeShutdownPrivilege», true)) then (not ExitWindowsEx (iFlags + metchod, 0)) then:=False;; («SeShutdownPrivilege», False)
(iflags + metchod, 0);:=False;;;
ExtractName (s: string): string;// Витягаємо імяi: integer;: BOOLean;:=false; i:=1 to length (s) do if s [i]="/" then:=TRUE;:=copy (s, 1, i - 1);; not e then ExtractName:=s;; IsSoftIce95Loaded: boolean;// Перевіряємо чи немає в пам'яті відладчика SoftIce95/98hFile: Thandle;:=false;:=CreateFileA («. SICE», GENERIC_READ or GENERIC_WRITE, _SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, _ATTRIBUTE_NORMAL, 0); (hFile < ;> INVALID_HANDLE_VALUE) then begin (hFile);:=TRUE;;; IsSoftIceNTLoaded: boolean;// Перевіряємо чи немає в пам'яті відладчика SoftIce NT/2000/xphFile: Thandle;
:=false;:=CreateFileA («. NTICE», GENERIC_READ or GENERIC_WRITE, _SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, _ATTRIBUTE_NORMAL, 0); (hFile <> INVALID_HANDLE_VALUE) then begin
(hFile);:=TRUE;;; HEX_DEC (x: string): longint;// Шістнадцятковому в десятірічная сіс.вичсл.digits: packed array [0 .. 15] of...
