WLAN Kieker

[Garfield]

Das sit die Funktion:

Delphi-Quellcode:

function TNativeWifi.GetAvailableNetworkList(I: DWORD): Boolean;
{*******************************************************************************
*  -2- Die für das Interface verfügbaren Netzwerke ermitteln.
* ------------------------------------------------------------------------------
*  http://msdn.microsoft.com/en-us/library/windows/desktop/ms706749.aspx
}
var
  dwResult : DWord;
begin
  {
  *  Ggfs. Netzwerkliste freigeben.
  }
  if pAnList <> nil
  then begin
    WlanFreeMemory(pAnList);
    pAnList := nil;
  end;
  {
  *  Liste der verfügbaren Netzwwerke holen.
  }
  dwResult := WlanGetAvailableNetworkList(hClient, @pIfList^.InterfaceInfo[pIfList^.dwIndex].InterfaceGuid, 0, nil, @pAnList);
  Result   := dwResult = ERROR_SUCCESS;
  if not(Result)
  then raise EWLANError.CreateFmt('WlanGetAvailableNetworkList fehlgeschlagen mit Fehler %d', [dwResult])
end;

Ich hab Win8.1Pro64bit

Habe die EXE ausgetauscht. Wenn bei der Abfrage ein Fehler auftaucht sollte der Timer abgestellt werden.