请教：如何得到开始->程序 下的所有菜单项？谢谢。

Question

谢谢

Answer 1

uses ShellCtrls;procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
    ShellListView1:TShellListView;
begin
  ShellListView1:=TShellListView.Create(self);
  ShellListView1.ParentWindow:=Application.Handle;
  ShellListView1.Root:='rfPrograms';
  for i:=0 to ShellListView1.Items.Count-1 do
    begin
     Memo1.Lines.Add(ShellListView1.Folders[i].DisplayName);//添加到Memo中
    end;
  ShellListView1.Free;
end;