🚀 go-pugleaf

Greetings - From previous problems w/Borland MM and previous post
suggestions, I'm playing with installing a new Tmemory manager, using just
the very basic Win API memory allocation functions (I'm sure it's greatly
inefficient, but just for testing/learning purposes).

My program NEVER starts up with my new 'cheap' mem mgr.
I was wondering if anyone could tell me what I'm doing wrong,


Thanks for the help: heres the cheap stab at mem mgr code:

// VARIABLES FOR OLD & NEW MMGR
TMemoryManager mmNew;
TMemoryManager mmOld;

// DECLARE ALLOC,REALLOC,FREE Functions for new mem mgr
void* __fastcall MyGetMem(int nbytes)
{
    HGLOBAL memptr;
    memptr= GlobalAlloc(GMEM_MOVEABLE ,nbytes);
    return memptr;
}

int __fastcall MyFreeMem(void *p)
{
   if(GlobalFree(p)==NULL)
    return 0;
   return 1;
}

void* __fastcall MyReallocMem(void *p, int nbytes)
{
    HGLOBAL memptr;
    memptr=GlobalReAlloc( p, nbytes, GMEM_ZEROINIT);
    return memptr;
}

//---- SET THE NEW MEM MGR in WinMain()

try {

mmNew.GetMem=MyGetMem;
mmNew.FreeMem=MyFreeMem;
mmNew.ReallocMem=MyReallocMem;
GetMemoryManager(mmOld);
SetMemoryManager(mmNew);

    // Do normal app startup......
         Application->Initialize();
         Application->CreateForm(__classid(TForm1), &Form1);
         Application->Run();