Delphi 利用INI文件创建窗口菜单.rar

这是一个Delphi 7.0 利用INI文件创建窗口菜单的范例源码，在Delphi7环境下可直接编译运行，将创建的菜单内容按照以下顺序保存在INI文件中，程序会自动读取INI文件，生成菜单：[菜单] 　　文件=打开|保存|退出| 　　全过程核心代码如下： 　　IniFile := TIniFile.Create('..\ini.ini');//打开INI文件 　　Va := IniFile.ReadString('菜单','文件','');//读取小节参数值 　　mainm := TMainMenu.Create(form1);//创建主菜单 　　Im1 := TMenuItem.Create(mainm);//创建一级菜单 　　Im1.Caption := '文件'; 　　mainm.Items.Add(Im1); //将一级菜单添加到主菜单 　　while Va<>'' do 　　begin 　　 Idx := Pos('|',Va);//查找|标志符的位置 　　 Str := Copy(Va,1,Idx-1);//截取|号分开的菜单标题 　　 Im2 := TMenuItem.Create(Im1); //创建二级菜单 　　 Im2.Caption := Str;//定义菜单标题 　　 if Str='\u6253\u5f00' then 　　 Im2.OnClick:=MenuClick; 　　 if Str='\u9000\u51fa' then 　　 Im2.OnClick := Button1.OnClick;//定义单击事件 　　 Im1.Add(Im2);//将二级菜单添加到一级菜单 　　 delete(Va,1,Idx);//删除截取的字符 　　end;