服务程序（Service Application）的描述如何在程序中实现？

摘自：http://topic.csdn.net/t/20040610/17/3081286.html

如WIN2000中服务SERVER,描述是：提供   RPC   支持、文件、打印以及命名管道共享。
我在CSDN上搜索了一下，但没有一个解决了，
我查了一下注册表，其实服务的描述都放到注册表了，
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services
我想我可以用写注册表的方法，
-------------------------------------------------------------------------------------------
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;