quarta-feira, 25 de novembro de 2009

Administrando memória

// 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;

Nenhum comentário:

Postar um comentário