📄 wzjh45.htm
字号:
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft FrontPage 3.0">
<meta HTTP-EQUIV="Content-Type" content="text/html; charset=gb2312">
<meta HTTP-EQUIV="Expires" CONTENT="0">
<title>让ＤＥＬＰＨＩ程序更方便地启动</title>
<style type="text/css">
<!--
BODY {
BACKGROUND: white; FONT-FAMILY: 宋体; FONT-SIZE: 9pt
}
.font1 {
FONT-FAMILY: "宋体"; FONT-SIZE: 11pt
; line-height: 130%}
A {
COLOR: #000080; FONT-FAMILY: 宋体, "Arial"; FONT-SIZE: 9pt; TEXT-DECORATION: none; TEXT-TRANSFORM: none
}
A:hover {
COLOR: red; FONT-SIZE: 9pt
}
TD {
FONT-FAMILY: 宋体, "Arial", "Times New Roman"; line-height: 150%; FONT-SIZE: 9pt
}
-->
</style>
<body>
<table width=100% cellspacing='0' cellpadding='0' align='center' border='0'>
<tr bgcolor="#f7f7f7">
<td class='tt2' >
<table border="0" cellpadding="2" cellspacing="1" width="100%" align="center">
<tr bgcolor="#FFFFFF">
<td align="centr" valign="top" class="font1">
<div align="left"><font color="#000000"> <br>
让ＤＥＬＰＨＩ程序更方便地启动 <br>
   <br>
   一般情况下，程序在安装时，要进行建立自己的程序组和程序项、在桌面上建立快捷方式、 <br>
  让程序随ＷＩＮ９Ｘ／ＮＴ自动启动、把程序快捷方式放入快速启动工具栏等工作，其目的就 <br>
  是让用户更容易、更方便运行自己的程序，从而且增加程序的友好性。下面我们就讨论一下在 <br>
  ＤＥＬＰＨＩ程序如果实现这四项操作。 <br>
   <br>
  一、建立自己的程序组和程序项 <br>
   １、实现原理 <br>
   建立自己的程序组，就是在ＷＩＮＤＯＷＳ目录下的子目录Start Menu\Programs下， <br>
  建立一个子目录；建立程序项，就是在该子目录下建立程序的快捷方式。 <br>
   ２、建立程序的快捷方式 <br>
   由于建立自己的程序组和程序项、在桌面上建立快捷方式、把程序快捷方式放入快速 <br>
  启动工具栏三个操作中要用到建立程序快捷方式的操作，首先来讨论一下 如何在ＤＥＬＰＨＩ <br>
  程序中建立程序快捷方式。 <br>
   在手工建立程序的快捷方式时，通常要指定程序的文件名称和运行参数；在程序中建 <br>
  立程序的快捷方式时还要指定程序的工作目录。我们可以用ShlObj单元中COM对象IShellLink <br>
  来指定程序的文件名称、运行参数和程序的工作目录三个参数，然后用COM对象IPersistFile <br>
  来保存快捷方式文件。具体的实现步骤请参见下面程序函数和注释。 <br>
   我们要用到的操作是在指定目录下建立指定程序的快捷方式，因而要指定快捷文件要 <br>
  保存的目录。 <br>
   <br>
  { 建立程序的快捷方式，程序文件名称为strExeFileName，运行参数为strParameters，
<br>
  快捷方式所在目录为strPath，返回值为True表示成功建立快捷方式，请在单元包含中增加 <br>
  ComObj, ShlObj, ActiveX三个单元 } <br>
  function CreateShortcut( strExeFileName, strParameters,
strPath : string ) : boolean; <br>
  var <br>
   strLnkFileName : widestring;//程序的快捷方式文件名称 <br>
   shelllinkTemp : IShellLink; <br>
   persistfileTemp : IPersistFile; <br>
  begin <br>
   //设置快捷方式的参数 <br>
   shelllinkTemp := IShellLink( CreateComObject(CLSID_ShellLink));
<br>
   with shelllinkTemp do <br>
   begin <br>
   SetPath( PChar( strExeFileName ) ); //设置程序文件全名 <br>
   SetArguments( PChar( strParameters) );//设置程序的命令行参数 <br>
   //设置程序的工作目录 <br>
   SetWorkingDirectory( PChar( ExtractFilePath( strExeFileName
) ) ); <br>
   end; <br>
   <br>
   //构造快捷方式的文件名(.LNK)，路径采用指定目录，文件名为程序文件名，扩展名为LNK <br>
   //路径采用指定目录，文件名为程序文件名 <br>
   strLnkFileName := strPath + '\' + ExtractFileName( strExeFileName
); <br>
   //替代文件扩展名 <br>
   strLnkFileName := copy( strLnkFileName,1, length( strLnkFileName
) - <br>
   length( ExtractFileExt( strExeFileName ) ) ) <br>
   + '.LNK'; <br>
   //保存快捷方式的文件 <br>
   persistfileTemp := shelllinkTemp as IPersistFile; <br>
   if S_OK = persistfileTemp.Save( PWChar( strLnkFileName
) , false ) then <br>
   result := true //保存成功，返回True <br>
   else result := false;//保存失败，返回False <br>
  end; <br>
   <br>
   ３、建立自己的程序组和程序项 <br>
  { 创建程序组和程序项 } <br>
  procedure TForm1.Button2Click(Sender: TObject); <br>
  begin <br>
   //创建程序组MyGroup，即在C:\PWIN98\Start Menu\Programs下建立子目录MyGroup
<br>
   if not DirectoryExists( 'C:\PWIN98\Start Menu\Programs\MyGroup'
) then <br>
   ForceDirectories( 'C:\PWIN98\Start Menu\Programs\MyGroup'
); <br>
   //创建程序项，在该子目录下建立程序的快捷方式 <br>
   if CreateShortcut( 'C:\Program Files\Borland\Dbd\Dbd32.exe','%1',
<br>
   'C:\PWIN98\Start Menu\Programs\MyGroup' ) then <br>
   memo1.lines.add( '创建程序组和程序项成功' )//创建程序组和程序项成功 <br>
   else//创建程序组和程序项失败 <br>
   memo1.lines.add( '创建程序组和程序项失败' ); <br>
  end; <br>
   <br>
  二、在桌面上建立程序的快捷方式 <br>
   １、实现原理 <br>
   在桌面上建立程序的快捷方式，就是在ＷＩＮＤＯＷＳ目录下的子目录Desktop下 <br>
  建立程序的快捷方式。 <br>
   ２、在桌面上建立程序的快捷方式 <br>
  { 在桌面上建立程序的快捷方式 } <br>
  procedure TForm1.Button1Click(Sender: TObject); <br>
  begin <br>
   //在目录C:\PWIN98\Desktop下建立程序的快捷方式 <br>
   if CreateShortcut( 'C:\Program Files\Borland\Dbd\Dbd32.exe','%1',
<br>
   'C:\PWIN98\Desktop' ) then//创建桌面快捷方式成功 <br>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -