Buscar por:

Administrando memória

Código

// Declare ShareMem na seção USES.

  // Esta procedure faz ocorrência com borlndmm.dll

  procedure InitMemoryManager;

  var

    SharedMemoryManager: TMemoryManager;

    MM: Integer;

  begin

    SharedMemoryManager.GetMem := SysGetMem;

    MM := GetModuleHandle(DelphiMM);

    SharedMemoryManager.GetMem := GetProcAddress(MM,'@Borlndmm@SysGetMem$qqri');

    SharedMemoryManager.FreeMem := GetProcAddress(MM,'@Borlndmm@SysFreeMem$qqrpv');

    SharedMemoryManager.ReallocMem := GetProcAddress(MM, '@Borlndmm@SysReallocMem$qqrpvi');

    SetMemoryManager(SharedMemoryManager);

  end;