PageRenderTime 12ms CodeModel.GetById 11ms app.highlight 0ms RepoModel.GetById 1ms app.codeStats 0ms

/jcl/source/prototypes/win32api/Lmwksta.imp

https://github.com/the-Arioch/jcl
Unknown | 15 lines | 11 code | 4 blank | 0 comment | 0 complexity | f764db60ce09d12ceafd9aeee6cfc3cf MD5 | raw file
Possible License(s): BSD-3-Clause
 1{$IFDEF MSWINDOWS}
 2
 3type
 4  TNetWkstaGetInfo = function (servername: PWideChar; level: DWORD; out bufptr: PByte): NET_API_STATUS; stdcall;
 5
 6var
 7  _NetWkstaGetInfo: TNetWkstaGetInfo = nil;
 8
 9function NetWkstaGetInfo(servername: PWideChar; level: DWORD; out bufptr: PByte): NET_API_STATUS; stdcall;
10begin
11  GetProcedureAddress(Pointer(@_NetWkstaGetInfo), netapi32, 'NetWkstaGetInfo');
12  Result := _NetWkstaGetInfo(servername, level, bufptr);
13end;
14
15{$ENDIF MSWINDOWS}