设置WinNT Service的Description分析和总结.docxVIP

設置 WinNT Service 的 Description 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; API 方式: BOOL QueryServiceConfig2( SC_HANDLE hService, DWORD dwInfoLevel, LPBYTE lpBuffer, DWORD cbBufSize, LPDWORD pcbBytesNeeded ); reference : http://www.bugtraq.ru/cgi-bin/forum.mcgi?type=sbb=2m=104683 下面的 Function SetServiceDescription(aSHndl: THandle; aDesc: String): Bool;就是 program SimpleServ; {$APPTYPE CONSOLE} uses Windows, WinSVC; Const ServicesCount = 1; ServiceName = SimpleServ; DisplayName = Simple Service; ServiceType = SERVICE_WIN32_OWN_PROCESS; ServiceDescription = SimpleServ from Handlex will help you to understand WinNT Services. + Mail to alex_wh@mail.ru.; )) This simple program Var ServThrHndl: THandle = 0; StopEvent: THandle = 0; aServHndl: DWord = 0; aServStatus: SERVICE_STATUS; Function IntToStr(Value: Integer): String; //Included because we dont use SysUtils Var aSign: Bool; Begin Result := ; aSign := Value = 0; If Not aSign Then Value := -Value; Repeat Result := Char(Value - (Value Div 10) * 10 + Byte(0)) + Result; Value := Value Div 10; Until Value = 0; If Not aSign Then Result := - + Result; End; // Helper function for windows error strings //Included because we dont use SysUtils function SysErrorMessage(ErrorCode: Integer): string; var Len: Integer; Buffer: array[0..255] of Char; begin Len := FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM or FORMAT_MESSAGE_ARGUMENT_ARRAY, nil, ErrorCode, 0, Buffer, SizeOf(Buffer), nil); while (Len 0) and (Buffer[Len - 1] in [#0..#32]) do Dec(Len); SetString(Result, Buffer, Len); UniqueString(Result); ANSItoOEM(PChar(Result), PChar(Result)); If Result Then Result := IntToStr(ErrorCode) + + Result; end; Procedure ShowInfo; Begin WriteLn; Writ