Delphi JEDI 取得 Windows Service Description

需先安裝 JEDI VCL for Delphi

uses
  JclSvcCtrl;

在 Form 中放入 TMemo 顯示訊息
加入 Form1 OnCreate 事件

procedure TForm1.FormCreate(Sender: TObject);
var
  SCManager: TJclSCManager;
  I: Integer;
  Service: TJclNtService;
begin
  Memo1.Clear;
  Memo1.WordWrap := False;
  Memo1.ScrollBars := ssBoth;
  SCManager := TJclSCManager.Create;
  try
    SCManager.Refresh(True);
    for I := 0 to SCManager.ServiceCount -1 do
    begin
      Service := SCManager.Services[I];
      Memo1.Lines.Values[Service.ServiceName] := Service.Description;
    end;
  finally
    SCManager.Free;
  end;
end;

{
AFD=AFD 網路支援環境
alerter=通知選取的使用者及電腦系統管理警示。...
ALG=提供網際網路連線共用和 Windows 防火牆的第三...
...
}