Опитах се да заменя вградената функция на Delphi с моя собствена версия в движение.
function ShortCutToTextOverride(ShortCut: TShortCut): string;
begin
if SomeCondition then
Result := Menus.ShortCutToText // after patching the pointer equals ShortCutToTextOverride
else
begin
// My own code goes here
end;
end;
FastcodeAddressPatch(@Menus.ShortCutToText, @ShortCutToTextOverride);
След корекция оригиналната функция вече не е достъпна. Възможен ли е достъп до него все пак?
like this. 15.05.2012 Страхувам се, че не: първите байтове се презаписват чрез прескачане към новата функция.
Можете да използвате KOLDetours.pas: той връща показалеца към батута (първите няколко байта на оригинала, които се презаписват от обхода). http://code.google.com/p/asmprofiler/source/browse/trunk/SRC/KOLDetours.pas
Например:
type
TNowFunction = function:TDatetime;
var
OrgNow: TNowFunction;
function NowExact: TDatetime;
begin
//exact time using QueryPerformanceCounter
end;
initialization
OrgNow := KOLDetours.InterceptCreate(@Now, @NowExact);
Now() -> executes NowExact()
OrgNow() -> executes original Now() before the hook
Cromis.Detoursе съвместима с x64. Надявам се информацията да е полезна за всички вас. 07.03.2014Cromis.Detours. Съжалявам за късния отговор. 10.11.2014