[Agat330]

Будете смеяться, я наконец-то допёр насчет pMemory

Код:

procedure WlanFreeMemory(pMemory: Pointer);
                         stdcall;
                         external 'wlanapi.dll' name 'WlanFreeMemory';

Вот я дубина!!!! =))

Freeman, после добавления {$MINENUMSIZE 4} Warning'и не исчезли. А вариант Integer($ffffffff) сработал. То есть сейчас перечисления у меня выглядят так:

Код:

Type
  ...
  DOT11_AUTH_ALGORITHM = (
      DOT11_AUTH_ALGO_80211_OPEN        = $1,
      ...
      DOT11_AUTH_ALGO_RSNA_PSK          = $7,
      DOT11_AUTH_ALGO_IHV_START         = Integer($80000000),
      DOT11_AUTH_ALGO_IHV_END           = Integer($ffffffff));

  DOT11_CIPHER_ALGORITHM = (
      DOT11_CIPHER_ALGO_NONE           = $00,
      ...
      DOT11_CIPHER_ALGO_WEP            = $101,
      DOT11_CIPHER_ALGO_IHV_START      = Integer($80000000),
      DOT11_CIPHER_ALGO_IHV_END        = Integer($ffffffff));

  DOT11_PHY_TYPE= (
      dot11_phy_type_unknown     = $0,
      ...
      dot11_phy_type_vht         = $8,
      dot11_phy_type_IHV_start   = Integer($80000000),
      dot11_phy_type_IHV_end     = Integer($ffffffff));