summaryrefslogtreecommitdiff
path: root/fpcsrc/tests/webtbs/ub1873.pp
blob: 180a031a65c9f2c70e98b8014fd8112c9d239a89 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
{$mode delphi}
unit ub1873;

interface

uses Windows;

const
  advapi32 = 'advapi32.dll';


function GetServiceDisplayNameA(hSCManager: SC_HANDLE; lpServiceName: LPCSTR;
  lpDisplayName: LPSTR; var lpcchBuffer: DWORD): BOOL; stdcall;

implementation

function GetServiceDisplayNameA; external advapi32 name 'GetServiceDisplayNameA';

end.