/jcl/source/prototypes/win32api/Lmwksta.imp
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}