TWSANameSpace_InfoA = packed record
  NSProviderId: TGUID;
  dwNameSpace: DWORD;
  fActive: DWORD;
  dwVersion: DWORD;
  lpszIdentifier: PChar;
  end;