🚀 go-pugleaf

"Remy Lebeau (TeamB)" <no.spam@no.spam.com> schrieb im
Newsbeitrag news:41a03fb6@newsgroups.borland.com...

> Probably because your window enumeration is finding multiple top-level
> windows per application, so you find the same parent window multiple times.
>
>
> Gambit

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..?

how can i rewrite it to c++ ?

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

function GetText(Wnd: HWND): string;
var
  textlength: Integer;
  Text: PChar;
begin
  textlength := SendMessage(Wnd, WM_GETTEXTLENGTH, 0, 0);
  if textlength = 0 then Result := ''
  else
  begin
    GetMem(Text, textlength + 1);
    SendMessage(Wnd, WM_GETTEXT, textlength + 1, Integer(Text));
    Result := Text;
    FreeMem(Text);
  end;
end;

function EnumWindowsProc(Wnd: HWND; lParam: lParam): BOOL; stdcall;
begin
  Result := True;
  if (IsWindowVisible(Wnd) or IsIconic(wnd)) and
    ((GetWindowLong(Wnd, GWL_HWNDPARENT) = 0) or
    (GetWindowLong(Wnd, GWL_HWNDPARENT) = GetDesktopWindow)) and
    (GetWindowLong(Wnd, GWL_EXSTYLE) and WS_EX_TOOLWINDOW = 0) then
    Form1.Listbox1.Items.Add('Handle: ' + IntToStr(Wnd) + ',Text:  ' +
GetText(Wnd));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Param: Longint;
begin
  EnumWindows(@EnumWindowsProc, Param);
end;
/*******************************************************/


-----> converted to c++:


/*******************************************************/
String __fastcall GetText(HWND hwnd)
{
  int textlength;  char *Text;

  textlength = SendMessage(hwnd, WM_GETTEXTLENGTH, 0, 0);
  if(textlength == 0) return; // i guess this might be wrong....
  else
  {
    sizeof(Text, textlength + 1);
    SendMessage(hwnd, WM_GETTEXT, textlength + 1, Integer(Text));
    return Text;
    FreeMem(Text); // ???
  }
}

BOOL CALLBACK EnumWindowsCallback(HWND hwnd, LPARAM lParam)
{
  if (IsWindowVisible(hwnd) || IsIconic(hwnd)) &&
    ((GetWindowLong(hwnd, GWL_HWNDPARENT) = 0) ||
    (GetWindowLong(hwnd, GWL_HWNDPARENT) = GetDesktopWindow)) &&
    (GetWindowLong(hwnd, GWL_EXSTYLE) && WS_EX_TOOLWINDOW = 0)
    frmMainUnit->ListBox1->Items->Add("Handle: " + IntToStr(hwnd) + ", Text: " +
GetText(hwnd));

    return true;
}

void __fastcall TfrmMainUnit::Button1Click(TObject *Sender)
{
    int Param;
    EnumWindows((WNDENUMPROC)EnumWindowsCallback, Param);
}
/*******************************************************/


Oren