怎样获得开始菜单中某一选项的句柄？

Question

你可以去看一下这个程序
http://go.163.com/~qming/qmenu.exe 

Answer 1

procedure TForm1.ItemOnClick(Sender: TObject);
var
  str,sFileName:string;
begin
  if (sender is Tmenuitem) then
    str:=caption;
  str:=stringreplace(str,'&','',[rfReplaceAll,rfIgnoreCase]);
  i:=pos('(',str)-1;
  if i>0 then
    sFileName:=copy(str,1,i)
  else
    sFileName:=str;
    if sFileName='other' then 
      …… 
  end;
end;

Answer 2

To wanwangzhiwang(万王之王):　
老兄的帖子是否贴错地方了？

Answer 3

wanwangzhiwang(万王之王) to Asus(风月无边)
?老兄的帖子是否贴错地方了？ 

Answer 4

To wanwangzhiwang(万王之王):　
我是指你的帖子和获得系统的开始菜单的句柄好象关系不大

Answer 5

呵呵，是吗？看错了，Sorry！@^!^@