动态加到主菜单

[flmn]

我要做一个插件程序。
假设一个目录下有如下文件：
Plug-Ins\编码
Plug-Ins\编码\a.dll
Plug-Ins\变换
Plug-Ins\变换\b.dll
Plug-Ins\c.dll

我要把这些文件按照他们间的层次关系动态加到主菜单上，点击菜单项调用dll文件执行一个功能。我用递归已经把每个文件的路径读了出来，可是我不知道怎么保存这些路径更有利于把他们加到菜单和便于使用。
还有，我对动态添加菜单还是一知半解，比如我给一个函数提供“编码”和“a.dll”可不可能利用a.dll的父菜单的caption把他加到父菜单下面？

其实这种软件很多，我想知道有什么实现方法。

[netsys2]

这样创建主菜单：

TMenuItem *MenuItem;
for(int i=0;i<10)
{
MenuItem = new TMenuItem(MainMenu);
MenuItem->Caption="&"+IntToStr(i+1);
MenuItem->OnClick = MyItemClick;//你的菜单响应
MainMenu->Insert(HistoryAddPos+i,MenuItem);
}

另外DLL不象EXE那样直接运行，你如果需要使用其中的函数必须先得提取。

[flmn]

如果知道菜单名和父菜单名，怎么添加？

[myy]

看样子，你想按目录结构层次建立同结构的菜单，可以在你递归的代码中适当的地方，比如，找到一个目录或dll后，插入上面建菜单的代码，注意，如果是目录，菜单项的Caption就是目录名，如果是dll，并且应该立即LoadLibrary此dll，保存返回值(dll实例句柄)到TMenuItem->Tag中以便以后可再次获得，Caption可以调用dll的函数获取(dll接口规范由你定义)，菜单项响应事件可以一个公共事件中，比如：
void __fastcall DynMenuClick(TObject *Sender)
{
TMenuItem *mi=(TMenuItem *)Sender;
if(mi)
{
HINSTANCE dllinst=(HINSTANCE)(mi->Tag);
//GetProcAddress(Dll_Inst,"某函数");
// 调用.....
}
}

[sbbmu]

MenuItem->Parent=
MenuItem->Name=

[flmn]

我知道父菜单名，MenuItem->Parent不行吧？

[sprewellkobe]

先通过窗口HWND 用GetMenu获得HMENU
在InsertMenuItem

[MAX°孟兆]

我在主页写的一遍文章可以帮你解决
http://www.maxss.net/document/cc_1.htm

[jishiping]

一个例子：
class TForm1 : public TForm
{
__published: // IDE-managed Components
TMainMenu *MainMenu1;
TMenuItem *File1;
void __fastcall FormDestroy(TObject *Sender);
private: // User declarations
void __fastcall Search(AnsiString, TMenuItem*);
void __fastcall PulginItemClick(TObject *Sender);
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};

TStringList* DllNames;

__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
DllNames = new TStringList;
Search(ExtractFilePath(Application->ExeName)
+"Plug-Ins\\", MainMenu1->Items);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
delete DllNames;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Search(AnsiString Path,
TMenuItem* Item0)
{
TSearchRec sr;
TMenuItem* Item;

if (FindFirst(Path+"*.*",faAnyFile,sr)!=0)
return;
do {
if ((sr.Attr&faDirectory) != 0) {
if (sr.Name=="." || sr.Name=="..")
continue;
}
else {
if (strcmpi(ExtractFileExt(sr.Name
).c_str(),".dll")!=0)
continue;
}
Item = new TMenuItem(MainMenu1);
Item->Caption = sr.Name;
Item0->Add(Item);

if ((sr.Attr&faDirectory) == 0) {
DllNames->Add(Path+sr.Name);
Item->Tag = DllNames->Count-1;
Item->OnClick = PulginItemClick;
}
else
Search(Path+sr.Name+'\\', Item);
}while(FindNext(sr) == 0);
FindClose(sr);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::PulginItemClick(TObject *Sender)
{
AnsiString str;
HMODULE hModule;

TMenuItem* Item = (TMenuItem*)Sender;
str = DllNames->Strings[Item->Tag];
hModule = LoadLibrary(str.c_str());
if (hModule != NULL) {
//这儿调用 GetProcAddress取得函数
//地址，然后执行相应的函数代码

FreeLibrary(hModule);
}
}