mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 17:07:54 +02:00
10 lines
124 B
ObjectPascal
10 lines
124 B
ObjectPascal
{ %target=win32 }
|
|
|
|
uses Windows,ub1873;
|
|
var
|
|
s : SC_handle;
|
|
d : dword;
|
|
begin
|
|
GetServiceDisplayNameA(s,nil,nil,d);
|
|
end.
|