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个文件刻盘到光盘中。