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

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

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

下载免费游戏更新软件

相关文章

网管第八个程序（多线路切换器） 网管第七个程序（漂亮的网吧公告） 网管第六个程序（类资源管理器程序） 网管第五个程序（操作注册表） 网管第三个程序，操作ini文件 网管的第二个程序（调用外部程序） 网管第一个程序，显示‘我爱你，网吧’