Jeg er i gang med at lave et IP program, jeg bruger den kode.
procedure TForm1.FormCreate(Sender: TObject);
var
wVersionRequested : WORD;
wsaData : TWSAData;
p : PHostEnt;
s : array[0..128] of char;
p2 : pchar;
begin
{Start up WinSock}
wVersionRequested := MAKEWORD(1, 1);
WSAStartup(wVersionRequested, wsaData);
{Get the computer name}
GetHostName(@s, 128);
p := GetHostByName(@s);
edit1.Text := p^.h_Name;
{Get the IpAddress}
p2 := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
edit2.Text := p2;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
{Shut down WinSock}
WSACleanup;
end;
Men det er ikke min IP, hvis jeg laver en "ipconfig" så er det "IP-adresse for automatisk konfiguration" men jeg vil gerne have den til at vise den der bare hedder IP-adresse. Og hvordan kan jeg se min hostmask.