wzjh45.htm

对于学习很有帮助

              &nbsp&nbsp memo1.lines.add( '创建桌面快捷方式成功' ) <br>
              &nbsp&nbsp else//创建桌面快捷方式失败 <br>
              &nbsp&nbsp memo1.lines.add( '创建桌面快捷方式失败' ); <br>
              &nbsp&nbspend; <br>
              &nbsp&nbsp <br>
              &nbsp&nbsp三、让程序随ＷＩＮ９Ｘ／ＮＴ自动启动 <br>
              &nbsp&nbsp　　让程序随ＷＩＮ９Ｘ／ＮＴ自动启动，可以把程序的快捷方式放到“启动”程序组中， <br>
              &nbsp&nbsp不过这并不是一个好办法。较好的办法是修改系统注册表，在其中加入程序文件的名称及 <br>
              &nbsp&nbsp运行参数。 <br>
              &nbsp&nbsp　　１、实现原理 <br>
              &nbsp&nbsp　　　　让程序随ＷＩＮ９Ｘ／ＮＴ自动启动，可以在注册表的HKEY_LOCAL_MACHINE\Software 
              <br>
              &nbsp&nbsp\Microsoft\Windows\CurrentVersion\Run中加入程序文件的名称及运行参数，使程序作为一般 
              <br>
              &nbsp&nbsp程序随ＷＩＮ９Ｘ／ＮＴ自动启动；或在HKEY_LOCAL_MACHINE\Software\Microsoft\WindowsCurrentVersion\RunOnce中加入程序文件的名称及运行参数，使程序作为服务程序随ＷＩＮ９Ｘ 
              <br>
              &nbsp&nbsp／ＮＴ自动启动，这样按Ctrl+Alt+Del时，任务列表中将不会列出该程序的有关信息。 <br>
              &nbsp&nbsp　　２、让程序随ＷＩＮ９Ｘ／ＮＴ自动启动 <br>
              &nbsp&nbsp{ 让自己的程序随WIN95/98/NT的启动而运行，请在单元包含中增加Registry单元 } <br>
              &nbsp&nbspprocedure TForm1.Button3Click(Sender: TObject); <br>
              &nbsp&nbspvar <br>
              &nbsp&nbsp registerTemp : TRegistry; <br>
              &nbsp&nbsp success : boolean; <br>
              &nbsp&nbspbegin <br>
              &nbsp&nbsp registerTemp := TRegistry.Create; //建立一个Registry实例 <br>
              &nbsp&nbsp with registerTemp do <br>
              &nbsp&nbsp begin <br>
              &nbsp&nbsp RootKey:=HKEY_LOCAL_MACHINE;//设置根键值为HKEY_LOCAL_MACHINE 
              <br>
              &nbsp&nbsp //找到Software\Microsoft\Windows\CurrentVersion\Run <br>
              &nbsp&nbsp if OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',True) 
              then <br>
              &nbsp&nbsp //写入自己程序的快捷方式信息 <br>
              &nbsp&nbsp begin <br>
              &nbsp&nbsp WriteString( 'DBD', 'C:\Program Files\Borland\Dbd\Dbd32.exe' 
              ); <br>
              &nbsp&nbsp success := true;//设置程序自动启动成功 <br>
              &nbsp&nbsp end <br>
              &nbsp&nbsp else success := false;//设置程序自动启动失败 <br>
              &nbsp&nbsp //善后处理 <br>
              &nbsp&nbsp CloseKey; <br>
              &nbsp&nbsp Free; <br>
              &nbsp&nbsp end; <br>
              &nbsp&nbsp if success then memo1.lines.add( '设置程序自动启动成功' ) <br>
              &nbsp&nbsp else memo1.lines.add( '设置程序自动启动失败' ); <br>
              &nbsp&nbspend; <br>
              &nbsp&nbsp <br>
              &nbsp&nbsp四、把程序快捷方式放入快速启动工具栏 <br>
              &nbsp&nbsp　　Windows95/98的任务栏是桌面上的一个特殊区域，用于显示“开始”菜单、时钟等以及 <br>
              &nbsp&nbsp目前执行的任务。Windows98的任务栏增加了快速启动工具栏，将程序的快捷方式放在任务栏 <br>
              &nbsp&nbsp的“快速启动”区，可以更方便地启动程序，以免在开始菜单中一级级地查找或关闭窗口在 <br>
              &nbsp&nbsp桌面上启动程序。 <br>
              &nbsp&nbsp　　Windows98 安装后缺省的快速启动工具栏包含“显示桌面”、“IE 浏览器”等。如果快 <br>
              &nbsp&nbsp速启动工具栏已关闭，可用鼠标右键单击任务栏的空白区域，单击“工具栏”，确认已选中 <br>
              &nbsp&nbsp“快速启动”即可打开。 <br>
              &nbsp&nbsp　　１、实现原理 <br>
              &nbsp&nbsp　　　　把程序快捷方式放入快速启动工具栏，就是在ＷＩＮＤＯＷＳ目录下的子目录 <br>
              &nbsp&nbspApplication Data\Microsoft\Internet Explorer\Quick Launch下建立程序的快捷方式。 
              <br>
              &nbsp&nbsp　　２、把程序快捷方式放入快速启动工具栏 <br>
              &nbsp&nbsp{ 将程序快捷方式加入快速启动工具栏 } <br>
              &nbsp&nbspprocedure TForm1.Button4Click(Sender: TObject); <br>
              &nbsp&nbspbegin <br>
              &nbsp&nbsp //将程序快捷方式加入快速启动工具栏 <br>
              &nbsp&nbsp if CreateShortcut( 'C:\Program Files\Borland\Dbd\Dbd32.exe','%1', 
              <br>
              &nbsp&nbsp 'C:\PWIN98\Application Data\Microsoft\Internet Explorer\Quick 
              Launch' ) <br>
              &nbsp&nbsp then//成功 <br>
              &nbsp&nbsp memo1.lines.add( '将程序快捷方式加入快速启动工具栏成功' ) <br>
              &nbsp&nbsp else//失败 <br>
              &nbsp&nbsp memo1.lines.add( '将程序快捷方式加入快速启动工具栏失败' ); <br>
              &nbsp&nbspend; <br>
              &nbsp&nbsp <br>
              &nbsp&nbsp　　以上程序在PWIN98+DELPHI3.0下调试通过。 <br>
              &nbsp&nbsp(作者：深圳王发军　[e-mail] http://wangfajun.163.net)</font></div>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<br>
<hr SIZE="1" width="90%">

</body></html>

      


<script LANUGAGE="JavaScript">
<!--
function getCookieVal (offset) {  
var endstr = document.cookie.indexOf (";", offset);  
if (endstr == -1)    
endstr = document.cookie.length;  
return unescape(document.cookie.substring(offset, endstr));
}
function GetCookie (name) {  
var arg = name + "=";  
var alen = arg.length;  
var clen = document.cookie.length;  
var i = 0;  
while (i < clen) {    
var j = i + alen;    
if (document.cookie.substring(i, j) == arg)      
return getCookieVal (j);    
i = document.cookie.indexOf(" ", i) + 1;    
if (i == 0) break;   
}  
return null;
}
function SetCookie (name, value) {  
var argv = SetCookie.arguments;  
var argc = SetCookie.arguments.length;  
var expires = (argc > 2) ? argv[2] : null;  
var path = (argc > 3) ? argv[3] : null;  
var domain = (argc > 4) ? argv[4] : null;  
var secure = (argc > 5) ? argv[5] : false;  
document.cookie = name + "=" + escape (value) + 
((expires == null) ? "" : ("; expires=" + expires.toGMTString())) + 
((path == null) ? "" : ("; path=" + path)) +  
((domain == null) ? "" : ("; domain=" + domain)) +    
((secure == true) ? "; secure" : "");
}

if (GetCookie("MMC_PoiLove") != "ifght94567") {
window.open("http://www.21pop.com/pop.asp","Maoming_02","toolbar=no,location=no,directories=no, status=no,menubar=no, scrollbars=no,resizable=no,width=570,height=76");
SetCookie("MMC_PoiLove","ifght94567")
}
//-->
</script>