螺廬BCB議IDE 悶刮ToolsAPI

寄謹方BCB殻會埀匆俯匯渦徨脅音喘購伉Toolsapi?徽泌惚?厘匯劔涙祖議三?

音形螺螺才網胎匯和?

心心和中議殻會?栖委IDE延倖劔?

--->BCB5。0

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
USERES("nodebug.res");
USEPACKAGE("vcl50.bpi");
//---------------------------------------------------------------------------
#include <toolsapi.hpp>
#include <inifiles.hpp>
//---------------------------------------------------------------------------
#pragma package(smart_init)
//---------------------------------------------------------------------------
//　Package source.
//---------------------------------------------------------------------------
namespace Nodebug　// Here the namespace should be same with this file name.
{
　　 bool NeedLocalize = true;
　　 bool NeedWriteToIni = false;
　　 TIniFile *ini, *chsini;
　　 AnsiString Section, Ident, Value;
　　 //===[ Do something on MenuItems. ]======================================
　　 void __fastcall DoMenuItem(TMenuItem* MenuItem)
　　 {
　　　　 //Display all MenuItems.
　　　　 if(MenuItem->Visible==false)　MenuItem->Visible = true;
　　　　 if ( NeedWriteToIni && !MenuItem->Name.IsEmpty())
　　　　 {
　　　　　　 Ident = MenuItem->Name;
　　　　　　 Value = MenuItem->Caption;
　　　　　　 ini->WriteString ( Section, Ident, Value );
　　　　 }
　　 }
　　 //===[ Do something on MenuItems. ]======================================
　　 //===[ Enumerate all MenuItem''s SubItems. ]==============================
　　 void __fastcall EnumerateMenuItem(TMenuItem* MenuItem)
　　 {
　　　　 DoMenuItem(MenuItem);
　　　　 for ( int i=0; i<MenuItem->Count; i++ )
　　　　 {
　　　　　　 EnumerateMenuItem(MenuItem->Items[i]);
　　　　 }
　　 }
　　 //===[ Enumerate all MenuItem''s SubItems. ]==============================
　　 void __fastcall LocalizeAppMenu()
　　 {
　　　　 _di_INTAServices IDE;
　　　　 HRESULT hr = BorlandIDEServices->QueryInterface(__uuidof(INTAServices), (void **) &IDE);
　　　　 if (SUCCEEDED(hr))
　　　　 {
　　　　　 //----------[AppBuilder macro start]--------------------------------------
　　　　　 #ifndef AppBuilder
　　　　　 #define AppBuilder IDE->MainMenu->Owner
　　　　　 #endif
　　　　　 //----------[AppBuilder macro end　]--------------------------------------
　　　　　　 TStringList* SectionList = new TStringList;
　　　　　　 TStringList* IdentList = new TStringList;
　　　　　　 AnsiString Value , Default("NULL");
　　　　　　 try
　　　　　　 {
　　　　　　　　 chsini->ReadSections(SectionList);
　　　　　　　　 for (int i = 0; i < SectionList->Count; i++)
　　　　　　　　 {
　　　　　　　　　　 chsini->ReadSection( SectionList->Strings[i], IdentList);
　　　　　　　　　　 for (int x = 0; x < IdentList->Count; x++)
　　　　　　　　　　 {
　　　　　　　　　　　　 Value = chsini->ReadString( SectionList->Strings[i],
　　　　　　　　　　　　　　　　　　　　 IdentLis

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!