Thread: Can help me for this Script, What is Rt1AdjustPrivilage ?

Hallo, i am new here, can help me for this
I have Problem, can tell me whats wrong with my script?

Code:

procedure WriteInt(IDProcess, Address: Integer; Value: Integer);
Var
Unc:Dword;
THandle: integer;
begin
   RtlAdjustPrivilege(20, True, 0, @Unc);
  THandle := OpenProcess(PROCESS_ALL_ACCESS, False, IDProcess);
  WriteProcessMemory(THandle, Ptr(Address), @Value, 4, e);
  CloseHandle(THandle);
end;

Please, help me.
I am use Delphi Studio 10.4 now
Thank You

Originally Posted by SansID

Hallo, i am new here, can help me for this
I have Problem, can tell me whats wrong with my script?

Code:

procedure WriteInt(IDProcess, Address: Integer; Value: Integer);
Var
Unc:Dword;
THandle: integer;
begin
   RtlAdjustPrivilege(20, True, 0, @Unc);
  THandle := OpenProcess(PROCESS_ALL_ACCESS, False, IDProcess);
  WriteProcessMemory(THandle, Ptr(Address), @Value, 4, e);
  CloseHandle(THandle);
end;

Please, help me.
I am use Delphi Studio 10.4 now
Thank You

{$REGION 'SetPrivilege'}

function RtlAdjustPrivilege(dwPrivilegeId : DWORD; bSet : BOOL; AdjType : INTEGER; Unc : PDWORD) : WORD; stdcall; external 'ntdll.dll';

const SE_DEBUG_PRIVILEGE = $14;

If I remember, this function sets privilege to kernel or something.

Portugues

Se eu me lembro, está função seta o privilégio para kernel ou algo assim.