Netzwerk scannen

[Schwedenbitter]

Zitat von Luckie:

Zitat von Schwedenbitter:

und zusätzliche Komponenten darf man lt. Linzenz nicht installieren.

Siehe hier: http://www.delphipraxis.net/internal...=606935#606935

Und genau deshalb habe ich mich mal rangemacht das auch ohne hinzubekommen. Ich kenne das von Lazarus. Für den Fall, dass jemand dasselbe oder ein ähnliches Problem hat, habe ich mal den Code unten rangehängt.

Jetzt habe ich "nur noch" ein Problem: Wie packe ich das in eine Function? Ich benötige ja für alle Namen im Netz die dahinter stehende IP-Adresse. Im Grunde müsste ich dann einen anpingen, warten ob und was zurück kommt und dann den nächsten usw. Nur wie komme ich von dem Ereignis in meine Function.

Gruß und Dank, Alex