unit1.pas

HOOK GetSYStemdefaultlangid 设置特定系统运行

unit Unit1;

interface

  uses windows;


type
  TjmpCode=packed record
    tmp1:byte;
    tmp2:dword;
  end;

  procedure hook;

implementation


function MyGetSystemDefaultLangID(P:pointer):integer;stdcall;
begin
  result:=$411;
end;

procedure hook;
var
  base:pointer;
  dllmodule,prc:thandle;
  jcode:Tjmpcode;
  num:dword;
begin
  PRC:=GetCurrentProcess;
  DLLModule := LoadLibrary('kernel32.dll');
  base:=GetProcAddress(DLLModule,'GetSystemDefaultLangID');
  VirtualAllocEx(PRC,base,5,MEM_COMMIT,PAGE_READWRITE);
  jcode.tmp1:=$E9;
  jcode.tmp2:=dword(@MyGetSystemDefaultLangID)-dword(base)-5;
  writeprocessMemory(PRC,base,@jCode,5,num);
end;

end.