Delphi 设置或者取消应用程序自动启动功能
2013-03-25 11:14
134 查看
1、// 调用此函数查找注册表中是否有指定的值,真:自动启动; 假:未自动启动 function TfrmMain.GetAutoRunValue: Boolean; var Reg: TRegistry; begin Reg := TRegistry.Create; //创建一个新键 try Reg.RootKey := HKEY_LOCAL_MACHINE; //将根键设置为HKEY_LOCAL_MACHINE Reg.OpenKey('\SOFTWARE\Microsoft\windows\CurrentVersion\Run', True); //打开一个键 if Reg.ValueExists('DetailServer') then begin if Application.ExeName = Reg.ReadString('DetailServer') then //文件名相同 Result := True else Result := False; end else Result := False; finally Reg.CloseKey; FreeAndNil(Reg); end; end; 2、写入注册表,'DetailServer' 是应用程序的名称 procedure TfrmMain.SetAutoRun(Flag: Boolean); var Reg: TRegistry; begin Reg := TRegistry.Create; //创建一个新键 try Reg.RootKey := HKEY_LOCAL_MACHINE; //将根键设置为HKEY_LOCAL_MACHINE Reg.OpenKey('\SOFTWARE\Microsoft\windows\CurrentVersion\Run', True); //打开一个键 if Reg.ValueExists('DetailServer') then Reg.DeleteValue('DetailServer'); if (Flag = True) then //加入 begin Reg.WriteString('DetailServer', Application.ExeName); //加入到注册表 end; finally FreeAndNil(Reg); end; end;
相关文章推荐
- Delphi 设置或者取消应用程序自动启动功能
- Delphi 设置或者检查应用程序自动启动功能
- WPF应用程序设置启动时自动打开的第一个窗口的几种方式
- Ubuntu 10.04LTS 设置开机/登录自动启动应用程序
- C#.NET Form设置/取消开机自动运行,判断程序是否已经设置成开机自动启动
- Mac OS X 设置取消开机自动启动
- delphi 设置开机自动启动函数
- iOS9 添加定位功能后,启动应用没有出现允许开启定位权限的通知,或者出现权限通知后,自动消失的解决办法 - 家柱
- delphi 设置开机自动启动函数
- 在AdobeReader中启动自动滚动功能及设置速度
- C#.NET Form设置/取消开机自动运行,判断程序是否已经设置成开机自动启动(转载)
- C#.NET Form设置/取消开机自动运行,判断程序是否已经设置成开机自动启动
- Windows7系统如何取消U盘自动运行功能 win7设置关闭U盘自动运行教程图解
- 怎样将应用程序设置为自动启动和怎样禁止不必要的启动程序。
- 设置Delphi程序的自启动功能
- CentOS系统里如何正确取消或者延长屏幕保护自动锁屏功能(图文详解)
- fedora设置开机自动启动应用程序
- VC 中设置程序 开机自动启动和取消自动启动
- windows启动时自动打开的应用程序窗口默认设置为全屏?
- 如何在注册表中设置某项应用程序为开机时自动启动?