一个关于.ini文件创建动态菜单的问题

Question

我的ini文件结构为
[radio]
radioname=中央人民广播电台
radiochanl=http://www.cnradio.net/now.rm
[radio1]
radioname=大庆人民广播电台
radiochanl=http://www.daqing.net/now.rm
我想在from1的子菜单下显示出.caption循环调用radioname关键字的菜单
on click事件为播放radiochanl字段的值,请问各位大哥这个怎么实现呢?
有高手吗?请指点一下,谢谢

Answer 1

在本地用一个access不就完了？字段一：radioname,字段二：radiochanl。到时候循环取纪录加到菜单中，同时赋予相应的播放radiochanl字段值的事件。

Answer 2

直接读ini文件的内容，读出来之后加到菜单中，同时赋予相应的播放radiochanl字段值的事件。

Answer 3

var
  tmp1, tmp2: string;
  M: TMenuItem;
begin
  with TIniFile.Create('E:\你的INI文件.INI') do
  try
    tmp1:=ReadString('radio', 'radioname', '');
    tmp2:=ReadString('radio', 'radiochanl', '', '');
    M:=TMenuItem.Create(Self);
    M.Caption:=tmp1;
    M.Hint:=tmp2;
    M.OnClick:=MenuClick;
    Form1.mniFile.Add(M);
    //...
  finally
    Free;
  end;
end;//
procedure TForm1.MenuClick(Sender: TObject);
var
  tmp: string;
begin
  tmp:=TMenuItem(Sender).Hint;
  shellexecute(handle,nil,pchar(tmp),nil,nil,sw_shownormal);
end;

Answer 4

大概形式是这样的，
你自己看看吧。记得引用ShellAPI单元。