delphi 为 Service Application 添加描述文本的方法


本文整理自网络,侵删。

  procedure ServiceUpdateDescription(const ServiceName, Description: string);
var
reg: TRegistry;
begin
reg := TRegistry.Create;
try
with reg do begin
RootKey := HKEY_LOCAL_MACHINE;
if OpenKey('SYSTEM\CurrentControlSet\Services\' + ServiceName, False) then
begin
WriteString('Description', Description);
end;
CloseKey;
end;
finally
reg.Free;
end;
end;

相关阅读 >>

Delphi 如何快速读取非常大的文本文件

Delphi提取网页中的图片

Delphi 中调用 javascript

Delphi 获取标题栏高

Delphi sender 的用法举例

Delphi stringgrid常用属性和常用操作

Delphi tstringdynarray 使用,分割字符串

Delphi 常用控件属性

Delphi 计算一个字符串在另一个字符串中出现的次数

Delphi 利用idhttp进行多线程下载

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...