Habs doch schon selbst rausgefunden.
Poste mal meine Lösung hier falls noch wer das Problem hat.
Vielleicht weiß ja noch wer eine bessere Lösung und posted sie
Delphi-Quellcode:
var ip :
string;
phoste : PHostEnt;
WSAData : TWSADATA;
begin
ip := '
netbiosname';
if WSAStartup($0101, WSADATA) = 0
then begin
phoste := GetHostByName(pchar(
ip));
ip := StrPas(inet_ntoa(PInAddr(phoste^.h_addr_list^)^));
WSACleanup;
end;
ShowMessage(
ip);
end;
Gruß
Changer