Delphi自动启动的多媒体光盘程序

Delphi自动启动的多媒体光盘程序
实例说明
用户在安装软件时，将光盘放入光驱内，光盘会自动运行，进行安装操作。该功能是如何实现的呢?本例介绍如何制作“自动安装的光盘程序”，运行效果如图1.23所示。

技术要点
实现光盘的自动运行非常简单，当用户打开自动运行的光盘时，会发现光盘中有几个特殊的文件，分别为autorun.exe，run.ico和autorun.inf，其中autorun.exe是光盘自动播放时执行的可执行文件，run.ico是光盘的图标，autorun.inf是一个INI文件。只要光盘中包含这些文件，那么在将光盘放入光驱时就会自动运行。
实现过程
1.新建一个工程，将主窗体命名为Form1。
2.在Form1窗体上放置Timage和TSpeedButton等自己
3.程序代码如下：
procedure TForm1.FormCreate(Sender: TObject);
var
inifile: TIniFile;
begin
Try
inifile := TIniFile.Create(Trim(ExtractFilePath(Application.ExeName)+'autorun.ini'));
inifile.WriteString('autorun','OPEN','AUTORUN.EXE');
inifile.WriteString('autorun','ICON','run.ICO');
Finally
inifile.Free;
End;
end;
end.
4.运行程序，将可执行文件命名为autorun.exe，该文件就是光盘自动播放时打开的文件。
5.选择一个图标，命名为run.ico，该图标在光驱读盘时显示。
6.在刻盘时，将run.ico、autorun.inf和autorun.exe这3个文件刻盘到光盘中。