用Delphi编码实现程序自启动

• 
  exit;
  
  end;
  
  if (RadioGroup1.ItemIndex = 0) then
  
  {如果操作者选择注册表方式，程序修改系统的注册表。}
  
  begin
  
  data_Set:=‘Software\Microsoft\
  
  Windows\CurrentVersion\Run’;
  
  {设置注册表中相关的路径}
  
  ret0:=RegOpenKeyEx(HKEY_LOCAL_MACHINE, data_Set, 0, KEY_WRITE, lKey);
  
  //打开注册表中的相应项
  
  if (ret0<>ERROR_SUCCESS) then
  
  Application.MessageBox(‘错误0’,‘提示’,MB_OK);
  
  len := Length(Trim(Edit2.text))+1;
  
  filename := Trim(Edit2.text);
  
  for i:=0 to Length(filename) do
  
  if(filename[i]=‘\’)then
  
  len:=len+1;
  
  ret1:=RegSetValueEx(lKey,PChar(title),0,REG_SZ,Pchar(filename),len);
  
  //将相关的信息写入注册表。
  
  if(ret1<>ERROR_SUCCESS) then
  
  //判断系统的相关注册是否成功？
  
  Application.MessageBox(‘错误1’,‘提示’,MB_OK);
  
  RegClo
  seKey(lKey);
  
  //关闭注册表中的相应的项
  
  end
  
  else begin
  
  WritePrivateProfileString(‘windows’,‘load’, PChar(filename),‘c:\windows\win.ini’);
  
  WritePrivateProfileString(‘windows’,‘run’, PChar(filename),‘c:\windows\win.ini’);
  
  end;
  
  VerifyDlg.ShowModal;
  
  {显示对话框，提示操作者是否需要重新启动计算机，以便验证程序的功能。}
  
  end;
  
  procedure TVerifyDlg.OKBtnClick(Sender: TObject);
  
  {重新启动按钮的功能代码}
  
  var
  
  OsVerInfo:OSVERSIONINFO;
  
  //保存系统版本信息的数据结构
  
  Begin
  
  OsVerInfo.dwOSVersionInfoSize:=sizeof(OSVERSIONINFO);
  
  GetVersionEx(OsVerInfo);
  
  //取得系统的版本信息
  
  if(OsVerInfo.dwPlatformId=VER_PLATFORM
  
  _WIN32_WINDOWS) then
  
  ExitWindowsEx(EWX_REBOOT,0);
  
  //重新启动计算机
  
  end;
  
  (本程序在Win98、Delphi 5.0环境下调试通过) 

  （出处：急速软件下载学院）

• 上一页 [1] [2] 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 用Delphi编码实现程序自启动 相关文章：
• ·Vista系统实现自动关机技巧
• ·Flash制作交互动画教程 星座查询器
• ·小技巧让你轻松DIY你的网页滚动条
• ·Coreldraw结合 R.A.V.E 制作动画
• ·动态加载外部css或js文件
• ·怎么样清除能突破主动防御的新型木马
• ·Flash与Photoshop合作制作模糊渐变动画
• ·再谈用Flash引导线制作爱心图案动画
• ·Flash用鼠标控制图片移动效果动画教程
• ·Flash引导线制作爱心图案动画
• 用Delphi编码实现程序自启动 相关软件
• ·《黑名单上的人》05蘑菇行动（198303版）
• ·《黑名单上的人》01特别行动小组（198208版）
• ·《彩虹岛》1.13升级至1.14手动更新补丁
• ·《动物丛林》小游戏
• ·动脑筋爷爷8
• ·动脑筋爷爷7
• ·动脑筋爷爷6
• ·动脑筋爷爷5
• ·动脑筋爷爷4
• ·动脑筋爷爷3

上一篇:用Delphi编写CGI程序返回图象

下一篇:用DELPHI编程求证两数互为质数

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐