发信人: teleme(看谁比我惨)
整理人: teleme(2003-07-04 13:43:25), 站内信件
|
让ＤＥＬＰＨＩ程序更方便地启动
一般情况下，程序在安装时，要进行建立自己的程序组和程序项、在桌面上建立快捷方式、
让程序随ＷＩＮ９Ｘ／ＮＴ自动启动、把程序快捷方式放入快速启动工具栏等工作，其目的就
是让用户更容易、更方便运行自己的程序，从而且增加程序的友好性。下面我们就讨论一下在
ＤＥＬＰＨＩ程序如果实现这四项操作。
一、建立自己的程序组和程序项
１、实现原理
建立自己的程序组，就是在ＷＩＮＤＯＷＳ目录下的子目录Start Menu\Programs下，
建立一个子目录；建立程序项，就是在该子目录下建立程序的快捷方式。
２、建立程序的快捷方式
由于建立自己的程序组和程序项、在桌面上建立快捷方式、把程序快捷方式放入快速
启动工具栏三个操作中要用到建立程序快捷方式的操作，首先来讨论一下 如何在ＤＥＬＰＨＩ
程序中建立程序快捷方式。
在手工建立程序的快捷方式时，通常要指定程序的文件名称和运行参数；在程序中建
立程序的快捷方式时还要指定程序的工作目录。我们可以用ShlObj单元中COM对象IShellLink
来指定程序的文件名称、运行参数和程序的工作目录三个参数，然后用COM对象IPersistFile
来保存快捷方式文件。具体的实现步骤请参见下面程序函数和注释。
我们要用到的操作是在指定目录下建立指定程序的快捷方式，因而要指定快捷文件要
保存的目录。
{ 建立程序的快捷方式，程序文件名称为strExeFileName，运行参数为strParameters，
快捷方式所在目录为strPath，返回值为True表示成功建立快捷方式，请在单元包含中增加
ComObj, ShlObj, ActiveX三个单元 }
function CreateShortcut( strExeFileName, strParameters, strPath : string ) : boolean;
var
strLnkFileName : widestring;//程序的快捷方式文件名称
shelllinkTemp : IShellLink;
persistfileTemp : IPersistFile;
begin
//设置快捷方式的参数
shelllinkTemp := IShellLink( CreateComObject(CLSID_ShellLink));
with shelllinkTemp do
begin
SetPath( PChar( strExeFileName ) ); //设置程序文件全名
SetArguments( PChar( strParameters) );//设置程序的命令行参数
//设置程序的工作目录
SetWorkingDirectory( PChar( ExtractFilePath( strExeFileName ) ) );
end;
//构造快捷方式的文件名(.LNK)，路径采用指定目录，文件名为程序文件名，扩展名为LNK
//路径采用指定目录，文件名为程序文件名
strLnkFileName := strPath + '\' + ExtractFileName( strExeFileName );
//替代文件扩展名
strLnkFileName := copy( strLnkFileName,1, length( strLnkFileName ) -
length( ExtractFileExt( strExeFileName ) ) )
+ '.LNK';
//保存快捷方式的文件
persistfileTemp := shelllinkTemp as IPersistFile;
if S_OK = persistfileTemp.Save( PWChar( strLnkFileName ) , false ) then
result := true //保存成功，返回True
else result := false;//保存失败，返回False
end;
３、建立自己的程序组和程序项
{ 创建程序组和程序项 }
procedure TForm1.Button2Click(Sender: TObject);
begin
//创建程序组MyGroup，即在C:\PWIN98\Start Menu\Programs下建立子目录MyGroup
if not DirectoryExists( 'C:\PWIN98\Start Menu\Programs\MyGroup' ) then
ForceDirectories( 'C:\PWIN98\Start Menu\Programs\MyGroup' );
//创建程序项，在该子目录下建立程序的快捷方式
if CreateShortcut( 'C:\Program Files\Borland\Dbd\Dbd32.exe','%1',
'C:\PWIN98\Start Menu\Programs\MyGroup' ) then
memo1.lines.add( '创建程序组和程序项成功' )//创建程序组和程序项成功
else//创建程序组和程序项失败
memo1.lines.add( '创建程序组和程序项失败' );
end;
二、在桌面上建立程序的快捷方式
１、实现原理
在桌面上建立程序的快捷方式，就是在ＷＩＮＤＯＷＳ目录下的子目录Desktop下
建立程序的快捷方式。
２、在桌面上建立程序的快捷方式
{ 在桌面上建立程序的快捷方式 }
procedure TForm1.Button1Click(Sender: TObject);
begin
//在目录C:\PWIN98\Desktop下建立程序的快捷方式
if CreateShortcut( 'C:\Program Files\Borland\Dbd\Dbd32.exe','%1',
'C:\PWIN98\Desktop' ) then//创建桌面快捷方式成功
memo1.lines.add( '创建桌面快捷方式成功' )
else//创建桌面快捷方式失败
memo1.lines.add( '创建桌面快捷方式失败' );
end;
三、让程序随ＷＩＮ９Ｘ／ＮＴ自动启动
让程序随ＷＩＮ９Ｘ／ＮＴ自动启动，可以把程序的快捷方式放到“启动”程序组中，
不过这并不是一个好办法。较好的办法是修改系统注册表，在其中加入程序文件的名称及
运行参数。
１、实现原理
让程序随ＷＩＮ９Ｘ／ＮＴ自动启动，可以在注册表的HKEY_LOCAL_MACHINE\Software
\Microsoft\Windows\CurrentVersion\Run中加入程序文件的名称及运行参数，使程序作为一般
程序随ＷＩＮ９Ｘ／ＮＴ自动启动；或在HKEY_LOCAL_MACHINE\Software\Microsoft\WindowsCurrentVersion\RunOnce中加入程序文件的名称及运行参数，使程序作为服务程序随ＷＩＮ９Ｘ
／ＮＴ自动启动，这样按Ctrl+Alt+Del时，任务列表中将不会列出该程序的有关信息。
２、让程序随ＷＩＮ９Ｘ／ＮＴ自动启动
{ 让自己的程序随WIN95/98/NT的启动而运行，请在单元包含中增加Registry单元 }
procedure TForm1.Button3Click(Sender: TObject);
var
registerTemp : TRegistry;
success : boolean;
begin
registerTemp := TRegistry.Create; //建立一个Registry实例
with registerTemp do
begin
RootKey:=HKEY_LOCAL_MACHINE;//设置根键值为HKEY_LOCAL_MACHINE
//找到Software\Microsoft\Windows\CurrentVersion\Run
if OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',True) then
//写入自己程序的快捷方式信息
begin
WriteString( 'DBD', 'C:\Program Files\Borland\Dbd\Dbd32.exe' );
success := true;//设置程序自动启动成功
end
else success := false;//设置程序自动启动失败
//善后处理
CloseKey;
Free;
end;
if success then memo1.lines.add( '设置程序自动启动成功' )
else memo1.lines.add( '设置程序自动启动失败' );
end;
四、把程序快捷方式放入快速启动工具栏
Windows95/98的任务栏是桌面上的一个特殊区域，用于显示“开始”菜单、时钟等以及
目前执行的任务。Windows98的任务栏增加了快速启动工具栏，将程序的快捷方式放在任务栏
的“快速启动”区，可以更方便地启动程序，以免在开始菜单中一级级地查找或关闭窗口在
桌面上启动程序。
Windows98 安装后缺省的快速启动工具栏包含“显示桌面”、“IE 浏览器”等。如果快
速启动工具栏已关闭，可用鼠标右键单击任务栏的空白区域，单击“工具栏”，确认已选中
“快速启动”即可打开。
１、实现原理
把程序快捷方式放入快速启动工具栏，就是在ＷＩＮＤＯＷＳ目录下的子目录
Application Data\Microsoft\Internet Explorer\Quick Launch下建立程序的快捷方式。
２、把程序快捷方式放入快速启动工具栏
{ 将程序快捷方式加入快速启动工具栏 }
procedure TForm1.Button4Click(Sender: TObject);
begin
//将程序快捷方式加入快速启动工具栏
if CreateShortcut( 'C:\Program Files\Borland\Dbd\Dbd32.exe','%1',
'C:\PWIN98\Application Data\Microsoft\Internet Explorer\Quick Launch' )
then//成功
memo1.lines.add( '将程序快捷方式加入快速启动工具栏成功' )
else//失败
memo1.lines.add( '将程序快捷方式加入快速启动工具栏失败' );
end;
以上程序在PWIN98+DELPHI3.0下调试通过。
(作者：深圳王发军 [email protected] http://wangfajun.163.net)
|
|