Delphi中给Windows服务程序添加描述信息
来源:互联网 发布:淘宝人气女装店铺 编辑:程序博客网 时间:2024/06/06 03:06
procedure TMyService.ServiceAfterInstall(Sender: TService);
var
reg: TRegistry;
begin
reg := TRegistry.Create;
try
with reg do begin
RootKey := HKEY_LOCAL_MACHINE;
if OpenKey('SYSTEM\CurrentControlSet\Services\'+Name,false) then
begin
WriteString('Description','This is the service description');
end;
CloseKey;
end;
finally
reg.Free;
end;
end;
var
reg: TRegistry;
begin
reg := TRegistry.Create;
try
with reg do begin
RootKey := HKEY_LOCAL_MACHINE;
if OpenKey('SYSTEM\CurrentControlSet\Services\'+Name,false) then
begin
WriteString('Description','This is the service description');
end;
CloseKey;
end;
finally
reg.Free;
end;
end;
0 0
- Delphi中给Windows服务程序添加描述信息
- 给windows服务添加描述
- delphi XE Datasnap SERVER 在windows 7 下为服务添加描述信息
- 给Delphi程序添加版本信息
- 给Delphi程序添加版本信息
- Delphi写的Win32服务,怎么添加描述信息?
- BCB和Delphi添加Windows服务的描述性文字
- 给Delphi程序(exe,dll)添加版本信息
- 给Delphi程序(exe,dll)添加版本信息
- 给WINDOWS服务加上描述
- 给WINDOWS服务加上描述
- windows服务的描述添加
- 让DELPHI写的服务程序在服务管理器中显示“描述”
- 运用Delphi编写Windows NT中服务程序
- 为Windows Service添加服务描述
- 为DataSnap系统服务程序添加描述
- Delphi2010中DataSnap高级技术(1)—为DataSnap系统服务程序添加描述
- Delphi2010中DataSnap高级技术(1)—为DataSnap系统服务程序添加描述
- zoj Majic Number(3622)
- MySql学习笔记3:where语句
- O(n)算法得到数组中任意第k大的数字
- Struts2上传文件报错Unable to parse request org.apache.commons.fileupload.FileUploadBase$IOFileUploadExcept
- mailfeet and webfeet
- Delphi中给Windows服务程序添加描述信息
- 通信算法之四:九种调试方式理论误码率与实际误码率
- 手工安装配置Cloudera组件-Impala
- POJ 1006 孙子定理
- 浅谈内存分类等等
- 在cmd的命令下 用Mysql中建立一个表
- delphi基本类的操作
- CAmkES
- Python 设置系统默认编码