[Kaligula]

Есть функция осуществляющая поиск окон в системе. Находит окна, для каждого окна определяет (если есть) системное меню и в этом меню считает кол-во элементов. Затем заголовок окна и количество элементов для каждого окна выводит в listbox. Выглядит так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

function EnumFind(Wd: HWnd; Param: LongInt): Boolean; stdcall; var   Nm:Array[0..255] of Char;   Cs, MenuName: Array[0..255] of Char;   name,clas_s: string;   WndMenu: HMENU;   menu_size, i: Word;   Begin     GetClassName(wd,Cs,255);     GetWindowText(wd,Nm,255);     name:=string(nm);     clas_s:=string(cs);     WndMenu:=0;         WndMenu:=GetSystemMenu(wd, False);         if (IsWindowVisible(wd)) and (WndMenu<>0) then                 begin                     AppendMenu(WndMenu,MF_STRING,1,'my_string');                   menu_size:= GetMenuItemCount(WndMenu);                   Form1.ListBox2.Items.add(name+'     количество элементов меню: '+ IntToStr(menu_size));                 end;     EnumFind := TRUE; end;

Проблема следующая: для окон проводника(обычных, не окон приложений) в 1й раз выводит нормальное кол-во элементов меню (7 обычно), а если закрыть приложение и снова запустить, то для окон приложений будет все выводится верно, а для системных окон выводит типа элементов меню у этого окна 65535( макс типа Word). Если эти окна закрыть и открыть заново, то опять будет нормально работать ф-ция и скажет, что элементов 7 и они такие-то. Но если опять перезапустить приложение, то снова беда, причем только с окнами системы.
Если кто в курсе, подскажите пожалуйста в чем может быть дело.
PS: Заранее спасибо!
PPS: вот на всякий случай вызов функции:

Код:

1	EnumWindows(@EnumFind,0);