I want to Hook a Function, but it dont work. When I use HookAPI is alwas False.
Code: Select all
if(HookAPI('msvcrt.dll', 'fopen', @fopenCallback, @fopenNext)=false) then begin
showMessage('Error');
end;
Code: Select all
var fopenNext: function(filename: pchar; mode: pchar): pointer;
function fopenCallback(filename: pchar; mode: pchar): pointer;
begin
result := fopenNext(filename, mode);
end;
Code: Select all
procedure TForm1.Button1Click(Sender: TObject);
var fHookLibrary: HMODULE;
begin
fHookLibrary := LoadLibrary('HookDLL.dll');
If fHookLibrary <> 0 Then Begin
end;
end;