// Deklaration
Pndu_WLAN_PROFILE_INFO_LIST = ^Tndu_WLAN_PROFILE_INFO_LIST;
PPndu_WLAN_PROFILE_INFO_LIST = ^Pndu_WLAN_PROFILE_INFO_LIST;
Tndu_WLAN_PROFILE_INFO_LIST =
record
dwNumberOfItems: DWORD;
dwIndex: DWORD;
ProfileInfo:
array[0..0]
of Tndu_WLAN_PROFILE_INFO;
end;
function WlanGetAvailableNetworkList(hClientHandle:
Handle;
const pInterfaceGuid: PGUID; dwFlags: DWORD; pReserved: PVOID;
var pAvailableNetworkList: Pndu_WLAN_AVAILABLE_NETWORK_LIST): DWORD;
stdcall;
...
// Aufruf
var
netzworklist: Pndu_WLAN_AVAILABLE_NETWORK_LIST;
....
begin
back := WlanGetAvailableNetworkList(hClient,
@pInterface.InterfaceInfo[0].InterfaceGuid,
NDU_WLAN_AVAILABLE_NETWORK_INCLUDE_ALL_ADHOC_PROFILES,
nil, netzworklist);
end;