fpcsrc/tests/webtbs/tw1873.pp


1
2
3
4
5
6
7
8
9

{ %target=win32 }

uses Windows,ub1873;
var
  s : SC_handle;
  d : dword;
begin
  GetServiceDisplayNameA(s,nil,nil,d);
end.