Ist es möglich eine Funktion innerhalb einer Schleife
Rekursiv aufzurufen ?
Delphi-Quellcode:
Procedure List_Menu(hWnd, hmenu : DWORD; sys : Boolean);
If MenuList[cnt].nType = 1 Then
begin
subMenu := GetSubMenu(hmenu, i);
menuCnt := GetMenuItemCount(subMenu);
MenuList[cnt].nSub := menuCnt;
List_Menu(hWnd, subMenu, False);
end;
gruß