fununit.pas

一个很不错的小远控啊

unit FunUnit;

interface

uses
  Windows;

function IntToStr(I: DWORD): String;
function StrToInt(S: String): DWORD;

function wsprintf(Output: PChar; Format: PChar): Integer; cdecl; varargs; external user32 name 'wsprintfA';

procedure GetDebugPrivs();

implementation

function IntToStr(I: DWORD): String;
begin
  Str(I, Result);
end;

function StrToInt(S: String): DWORD;
begin
  Val(S, Result, Result);
end;

procedure GetDebugPrivs();
var
  hToken: THandle;
  tkp: TTokenPrivileges;
  retval: dword;
begin
  If (OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken)) then
  begin
    LookupPrivilegeValue(nil, 'SeDebugPrivilege', tkp.Privileges[0].Luid);
    tkp.PrivilegeCount := 1;
    tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
    AdjustTokenPrivileges(hToken, False, tkp, 0, nil, retval);
  end;
end;

end.