delphi – 在TWinControl类上添加属性

如果没有,有一些方法重新编译基本源代码没有太多麻烦？

请咨询……

编辑新思路的原因

好吧,我正在考虑做什么我试图从System.pas覆盖_GetMem类
继承自TWinControl.
为什么？因为我会为对象分配一些额外的空间足够一个整数.
为什么是整数？因为这样我可以添加任何指向对象的指针.
所以在TWinControl的辅助类上,我可以创建一个Get a Set函数来访问这个内存空间.
好不是吗？这该怎么做 ？
重写GetMem过程我可以使用在FastCode上使用的相同策略,创建一个跳转到新过程.

我现在需要的是理解这个内存分配如何工作InstanceSize来覆盖它.
总之,我正在研究Delphi如何做到这一点…而在DFM上添加它我将以同样的方式,我将创建一个跳线到文件管理器.

有人有想法在对象中添加新空间吗？我需要覆盖哪种方法？跳线我知道怎么做.

再来一次.

编辑=进化

我认为我注射了记忆.
我需要做更多的测试.
我刚刚做到了,我现在不关心优化,如果有人想测试它,这里就是代码.
只需将该单元添加为项目的第一个单元即可.

unit uMemInjection;


interface

uses
  Controls;

type
  THelperWinControl = class Helper for TWinControl
  private
    function RfInstanceSize: Longint;
    function GetInteger: Integer;
    procedure SetInteger(const Value: Integer);
  public
    property RfInteger: Integer read GetInteger write SetInteger;
  end;

implementation

uses
  Windows;

procedure SInstanceSize;
asm
  call TWinControl.InstanceSize
end;

function THelperWinControl.GetInteger: Integer;
begin
  Result := Integer(PInteger(Integer(Self) + (Self.InstanceSize - SizeOf(Integer)))^);
end;

function THelperWinControl.RfInstanceSize: Longint;
begin
  Result := PInteger(Integer(Self) + vmtInstanceSize)^;
  Result := Result + SizeOf(Integer);
end;

/////////////////////////////////////////////// FastCode ///////////////////////////////////////////////
type
  PJump = ^TJump;
  TJump = packed record
    OpCode: Byte;
    Distance: Pointer;
  end;

function FastcodeGetAddress(AStub: Pointer): Pointer;
begin
  if PBYTE(AStub)^ = $E8 then
  begin
    Inc(Integer(AStub));
    Result := Pointer(Integer(AStub) + SizeOf(Pointer) + PInteger(AStub)^);
  end
  else
    Result := nil;
end;

procedure FastcodeAddressPatch(const ASource,ADestination: Pointer);
const
  Size = SizeOf(TJump);
var
  NewJump: PJump;
  OldProtect: Cardinal;
begin
  if VirtualProtect(ASource,Size,PAGE_EXECUTE_READWRITE,OldProtect) then
  begin
    NewJump := PJump(ASource);
    NewJump.OpCode := $E9;
    NewJump.Distance := Pointer(Integer(ADestination) - Integer(ASource) - 5);

    FlushInstructionCache(GetCurrentProcess,ASource,SizeOf(TJump));
    VirtualProtect(ASource,OldProtect,@OldProtect);
  end;
end;

/////////////////////////////////////////////// FastCode /////////////////////////////////////////////// 


{ THelperWinControl }
procedure THelperWinControl.SetInteger(const Value: Integer);
begin
  PInteger(Integer(Self) + (Self.InstanceSize - SizeOf(Integer)))^ := Value;
end;

initialization
  FastcodeAddressPatch(FastcodeGetAddress(@SInstanceSize),@TWinControl.RfInstanceSize);


end.