InstantForum.NET v4.1.4Релибhttp://www.relib.com/forums/robot@relib.comSun, 23 Nov 2008 01:01:45 GMT20http://www.relib.com/forums/Topic895229-8-1.aspx Делаю прогу, которая должна будет иметь значок в трее с собственным меню. Проблема в пополнении этого меню итемами.[code]SetForegroundWindow(Form1->Handle);hTrayMenu=CreateMenu();MENUITEMINFO mii;mii.cbSize=sizeof(MENUITEMINFO); mii.fMask=MIIM_DATA||MIIM_TYPE||MIIM_CHECKMARKS||MIIM_ID||MIIM_STATE||MIIM_SUBMENU; mii.fType=MFT_STRING; mii.fState=MFS_ENABLED||MFS_DEFAULT;// mii.wID=1442; mii.hSubMenu=NULL; mii.hbmpChecked=NULL; mii.hbmpUnchecked=NULL;// mii.dwItemData=0;// mii.dwTypeData=AnsiString("Сменить фон").c_str(); mii.dwTypeData=PChar("Сменить фон\0"); mii.cch=12; InsertMenuItem(hTrayMenu,1,true,&mii);// InsertMenuItem(hTrayMenu,0,false,&mii); POINT cp;GetCursorPos(&cp); TrackPopupMenuEx(hTrayMenu, TPM_HORIZONTAL | TPM_LEFTALIGN, cp.x, cp.y, Form1->Handle, NULL);[\code]Нашёл пример в сборнике "Delphi World" - сделал всё по нему. Но пункт меню пустым получается, хоть убейся. В чем может быть дело?Fri, 14 Apr 2006 11:55:00 GMTsabakka