🚀 go-pugleaf

"Oren Halvani" <Spam@Me-Please.com> wrote in message
news:41a066cc@newsgroups.borland.com...

> Remy, i've found the following delphi code on the net..
>
> i've tried to convert it to c++ code (see bottom) but the
> compiler didn't recognized FreeMem( )...what does
> FreeMem do..?

It does what its name suggests - it frees the memory that was allocated by
GetMem().

> how can i rewrite it to c++ ?

    //  List all Windows with a Button on the taskbar...

    AnsiString __fastcall GetText(HWND Wnd)
    {
        AnsiString Result;

        int textlength = SendMessage(Wnd, WM_GETTEXTLENGTH, 0, 0);
        if( textlength > 0 )
        {
            Result.SetLength(textlength);
            SendMessage(Wnd, WM_GETTEXT, textlength,
reinterpret_cast<LPARAM>(Result.c_str()));
        }

        return Result;
    }

    BOOL CALLBACK EnumWindowsProc(HWND Wnd, LPARAM lParam)
    {
        if( (IsWindowVisible(Wnd) || IsIconic(Wnd)) &&
            ((GetWindowLong(Wnd, GWL_HWNDPARENT) == 0) ||
            (GetWindowLong(Wnd, GWL_HWNDPARENT) == GetDesktopWindow())) &&
            ((GetWindowLong(Wnd, GWL_EXSTYLE) & WS_EX_TOOLWINDOW) == 0) )
            Form1->ListBox1->Items->Add("Handle: " + IntToStr(Wnd) + ",Text:
" + GetText(Wnd));
        return TRUE;
    }

    void __fastcall TForm1::Button1Click(TObject *Sender)
    {
        EnumWindows(EnumWindowsProc, 0);
    }


>     sizeof(Text, textlength + 1);

That was a completely wrong translation of GetMem().  As its name suggests,
GetMem() allocates a block of memory.  sizeof(), on the other hand, merely
returns the byte size of the value passed to it.

>     return Text;
>     FreeMem(Text); // ???

You cannot call FreeMem() after a 'return' statement.  As soon as the
'return' statement executes, the function exists immediately and is no
longer running.  You have to call FreeMem() before you call 'return', or
else the memory is leaked.


Gambit