终合第一课，第二课和基本知识，做出此菜单，虽然很简单，但觉得挺实用的。大家努力学习，接受一下，如果有不懂的或者对我们教程有好的意见的话直接去论坛提出。第一步，设计好界面，放入四个按钮组件，调整好位置和尺寸及标题，窗口标题，大小尺寸如下图：

为每个按钮输入实现各功能的代码。如下：

procedure TForm1.btn1Click(Sender: TObject);
begin
  WinExec('c:\qq2005正式版\qq.exe',1);
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
  WinExec('c:\qq2006正式版\qq.exe',1);
end;

procedure TForm1.btn3Click(Sender: TObject);
begin
  WinExec('c:\qq2006珊瑚虫版\qq.exe',1);
end;

procedure TForm1.btn4Click(Sender: TObject);
begin
  WinExec('c:\qq2006女生版\qq.exe',1);
end;

运行效果如下图：

为了实现xp的主题风格效果，加上一个风格组件(xpmainfest，在win32页，添加不可见组件，不用添加任何代码)运行后：

源码下载：

QQ菜单.rar

顶了