WLAN Kieker

[Garfield]

Das Programm zeigt WLAN-Netze an.

Vielmehr hat jemand Kritik oder Verbesserungsvorschläge.

Das Program ist mit XE5 unter Win8.1Pro compiliert. Dürfte dann wohl nur unter Win8 laufen.

Änderungen:

2014-05-13: Änderungen entsprechend Anmerkungen von Himitsu in #6 und #8.

[DateTimeError]

Zitat von blondervolker:

EasyBoxKeyDecrypter

Wann - zum Teufel nochmal - lernst Du es endlich einmal, daß Deine Beiträge immer in die "DP Code-Library" gehören!

SCNR

[blondervolker]

Habe lediglich auf den Button"Antwort"geklickt.Mehr habe ich leider nicht
gemacht.

[Garfield]

Zitat von blondervolker:

EasyBoxKeyDecrypter

Gibt es dazu eine Homepage?

Ich habe die Hinweise von Himitsu eingearbeitet. Wenn ein Fehler auftritt sollte eine ShowMessage mit dem Fehler kommen und fertig.

Der Fehler zu dem Fehlercode in #1:

[himitsu]

Tipp, du kannst auch ShowException benutzen, damit es mehr wie eine Exception aussieht.

Delphi-Quellcode:

except
  ShowException(ExceptObject, ExceptAddr);
end;

except
  ShowException(ExceptObject, nil);
end;

except
  on E: Exception do begin
    //E.Message := 'Xyz: ' + E.Message;
    ShowException(E, nil);
  end;
end;

except
  Application.HandleException(Self);
end;

except
  on E: Exception do begin
    //E.Message := 'Xyz: ' + E.Message;
    Application.ShowException(E);  sowas ähnliches wie SysUtils.ShowException
  end;
end;

Exceptions, welche von der VCL abgefangen wurden (z.B. wenn es in einem Event knallt), werden von Application.HandleException verarbeitet, mit Application.ShowException angezeigt und falls das mit der Exception-Klasse nicht klar kommt, dann geht es stattdessen an SysUtils.ShowException.

[Garfield]

In den Funktionen sind keine try-except-end oder try-finally-end Blöcke enthalten. Die Systemfunktionen haben bei mir immer einen DWORD-Wert zurückgegeben. Ich sehe mir das mal genauer an.