Go homepage(回首页) Upload pictures (上传图片) Write articles (发文字帖)
The author:(作者)aaapublished in(发表于) 2014/7/19 0:13:08 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);varinifile: TIniFile;beginTryinifile := TIniFile.Create(Trim(ExtractFilePath(Application.ExeName)+'autorun.ini'));inifile.WriteString('autorun','OPEN','AUTORUN.EXE');inifile.WriteString('autorun','ICON','run.ICO');Finallyinifile.Free;End;end;end.4.运行程序,将可执行文件命名为autorun.exe,该文件就是光盘自动播放时打开的文件。5.选择一个图标,命名为run.ico,该图标在光驱读盘时显示。6.在刻盘时,将run.ico、autorun.inf和autorun.exe这3个文件刻盘到光盘中。
赞