1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

library hook_2;

uses
  windows,
  uallhook;


type TCFfunc = function(lppoint:pointer):boolean; stdcall;

var oldCreateFile, nextCreateFile: tcffunc;


function myCreateFile(lpPoint:pointer):boolean; stdcall;
begin
tpoint(lppoint^).x := 123;
tpoint(lppoint^).y := 123;
result := true;
end;

var p:pointer;

begin
  p := GetProcAddress(GetModuleHandle('user32.dll'),'GetCursorPos');
  if p <> nil then begin
    @oldCreateFile := p;
    uallHook.HookCode(@oldCreateFile,@myCreateFile,@nextCreateFile);
  end;
end.					

1:

function GetCursorPos(var lpPoint: TPoint): BOOL; stdcall;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

var oldGetCursorPos, nextGetCursorPos: function(var lpPoint: TPoint): BOOL; stdcall;


function myGetCursorPos(var lpPoint: TPoint): BOOL; stdcall;
begin
  // alter aufruf überhaupt nötig?
  // result := nextGetCursorPos(lpPoint);
  // ansonsten nur:

  result := true;
  lpPoint.x := 123;
  lpPoint.y := 123;  
end;

// und noch hooken					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

var oldGetCursorPos, nextGetCursorPos: function(var lpPoint: TPoint): BOOL; stdcall;

function myGetCursorPos(var lpPoint: TPoint): BOOL; stdcall;
begin
  // alter aufruf überhaupt nötig?
  // result := nextGetCursorPos(lpPoint);
  // ansonsten nur:

  result := true;
  lpPoint.x := 123;
  lpPoint.y := 123;
end;


procedure TForm1.FormCreate(Sender: TObject);
var lp: Tpoint;
begin
  @oldGetCursorPos := GetProcAddress(GetModuleHandle('user32.dll'),'GetCursorPos');
  uallHook.HookCode(@oldGetCursorPos,@myGetCursorPos,@nextGetCursorPos);

  GetCursorPos(lp); //alter aufruf
  form1.caption := inttostr(lp.X)+' '+inttostr(lp.Y);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

program exemain;

uses
  windows,
  uallHook,
  uallUtil;

begin
  if paramcount < 1 then
    MessageBox(0,'No Param, use PARAM -load / -unload.',Nil,0) else

  if uppercase(paramstr(1)) = uppercase('-load') then
    GlobalInjectLibrary(pchar(uallUtil.GetExeDirectory+'hook.dll')) else

  if uppercase(paramstr(1)) = uppercase('-unload') then
    GlobalUnloadLibrary(pchar('hook.dll')) else

    MessageBox(0,'Wrong Param, use PARAM -load / -unload.',Nil,0);
end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:

library hook;

uses windows,
     uallHook;

var
  oldSystemParametersInfoA, oldSystemParametersInfoW, nextSystemParametersInfoA,
  nextSystemParametersInfoW: function(uiAction, uiParam: UINT; pvParam: Pointer; fWinIni: UINT): BOOL; stdcall;

function mySystemParametersInfoA(uiAction, uiParam: UINT; pvParam: Pointer; fWinIni: UINT): BOOL; stdcall;
begin
Result := nextSystemParametersInfoA(uiAction, uiParam, pvParam, fWinIni);
end;

function mySystemParametersInfoW(uiAction, uiParam: UINT; pvParam: Pointer; fWinIni: UINT): BOOL; stdcall;
begin
Result := nextSystemParametersInfoW(uiAction, uiParam, pvParam, fWinIni);
end;

procedure injectmain;
var h: integer;
begin
  h :=  GetModuleHandle('user32.dll');
  if h > 0 then
  begin
      @oldSystemParametersInfoA := GetProcAddress(h, 'SystemParametersInfoA');
      If @oldSystemParametersInfoA <> Nil
      then
        uallHook.HookCode(@oldSystemParametersInfoA, @mySystemParametersInfoA, @nextSystemParametersInfoA);
      @oldSystemParametersInfoW := GetProcAddress(h, 'SystemParametersInfoW');
      If @oldSystemParametersInfoW <> Nil
      then
        uallHook.HookCode(@oldSystemParametersInfoW, @mySystemParametersInfoW, @nextSystemParametersInfoW); 
  end;
end;

procedure uninjectmain;
begin
  uallHook.UnhookCode(@nextSystemParametersInfoA);
  uallHook.UnhookCode(@nextSystemParametersInfoW);
end;

procedure dllmain(dwReason: integer);
begin
  case dwreason of
    DLL_PROCESS_ATTACH:
      injectmain;
    DLL_PROCESS_DETACH:
      uninjectmain;
  end;
end;

begin
  DLLProc := @DLLMain;
  DLLMain(1);
end.					

1:
2:
3:

var   
  oldSystemParametersInfoA, oldSystemParametersInfoW, nextSystemParametersInfoA,   
  nextSystemParametersInfoW: function(uiAction, uiParam: UINT; pvParam: Pointer; fWinIni: UINT): BOOL stdcall = nil;					

1:
2:
3:

  if @nextSystemParametersInfoA <> nil then
  if uallHook.UnhookCode(@nextSystemParametersInfoA) then
   // MessageBoxA(0,pchar(paramstr(0)),nil,0); <- aber messageboxa dynamisch importieren					

1:
2:
3:

var
  oldSystemParametersInfoA, oldSystemParametersInfoW, nextSystemParametersInfoA, 
  nextSystemParametersInfoW: function(uiAction, uiParam: UINT; pvParam: Pointer; fWinIni: UINT): BOOL stdcall = nil;