Цитата:
Сообщение от Denever
Можно пример?
|
delphi Код:
var
OldLoadLibraryW:function (lpLibFileName: PWideChar): HMODULE; stdcall;
function MyLoadLibraryW(lpLibFileName: PWideChar): HMODULE; stdcall;
begin
if ExtractFileName(lpLibFileName)='frostProtector.dll' then
result:=0
else
result:=OldLoadLibraryW(lpLibFileName);
end;
procedure AntiFrost;
begin
HookProc('kernel32.dll','LoadLibraryW',@MyLoadLibraryW,@OldLoadLibraryW);
end;
Добавлено через 1 минуту
раньше работало, щас хрен знает
Добавлено через 18 минут
щас проверил - работает