Определение имя компьютера и айпи адресса

[0x007f]

Как сделать так что бы при запуске моей программы с другого компьютера в сети она считывала айпи адрес и имя компьютера и отображала их например в отдельных лэйблах например?

[edgy]

var
  Size : Cardinal;
  CompName, OSUser : PChar;
  wVerReq: WORD;
  wsaData: TWSAData;
  ip_address: pchar;
  h: PHostEnt;
  ch: array[0..128] of char;
begin
  // Определяем имя компьютера
  Size := MAX_COMPUTERNAME_LENGTH + 1;
  CompName := StrAlloc( Size );
  GetComputerName( CompName, Size );
  label1.Caption := CompName;

  // Определяем пользователя операционной системы
  Size := MAX_COMPUTERNAME_LENGTH + 1;
  OSUser := StrAlloc( Size );
  GetUserName( OSUser, Size );
  label2.Caption := OSUser;

  // Получаем ip-адрес
  wVerReq := MAKEWORD(1, 1);
  WSAStartup(wVerReq, wsaData);
  GetHostName(@ch, 128);
  h := GetHostByName(@ch);
  ip_address := iNet_ntoa(PInAddr(h^.h_addr_list^)^);
  WSACleanup;
  label3.Caption := ip_address;
end;

Не забудьте прописать WinSock в Uses.

[0x007f]

спасибо всё вышло

[Ирина_28]

подскажите плиз.

Код edgy (внизу) в Delphi 6 работает, а в Delphi2009 выдает ошибку

[DCC Error] Unit1.pas(1040): E2010 Incompatible types: 'AnsiChar' and 'Char'

на строку

ip_address := iNet_ntoa(PInAddr(h^.h_addr_list^)^ );


В Uses у меня:
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, Grids, StdCtrls, ExtCtrls, Math, ComCtrls, Outline, jpeg, WinSock, StrUtils,
ConvUtils, StdConvs, DateUtils;




var
Size : Cardinal;
CompName, OSUser : PChar;
wVerReq: WORD;
wsaData: TWSAData;
ip_address: pchar;
h: PHostEnt;
ch: array[0..128] of char;
begin
// Определяем имя компьютера
Size := MAX_COMPUTERNAME_LENGTH + 1;
CompName := StrAlloc( Size );
GetComputerName( CompName, Size );
label1.Caption := CompName;

// Определяем пользователя операционной системы
Size := MAX_COMPUTERNAME_LENGTH + 1;
OSUser := StrAlloc( Size );
GetUserName( OSUser, Size );
label2.Caption := OSUser;

// Получаем ip-адрес
wVerReq := MAKEWORD(1, 1);
WSAStartup(wVerReq, wsaData);
GetHostName(@ch, 128);
h := GetHostByName(@ch);
ip_address := iNet_ntoa(PInAddr(h^.h_addr_list^)^ );
WSACleanup;
label3.Caption := ip_address;
end;

[Пепел Феникса]

var
  Size : Cardinal;
  CompName, OSUser : PAnsiChar;
  wVerReq: WORD;
  wsaData: TWSAData;
  ip_address: pAnsichar;
  h: PHostEnt;
  ch: array[0..128] of Ansichar;
begin
  // Определяем имя компьютера
  Size := MAX_COMPUTERNAME_LENGTH + 1;
  CompName := StrAlloc( Size );
  GetComputerName( CompName, Size );
  label1.Caption := CompName;

  // Определяем пользователя операционной системы
  Size := MAX_COMPUTERNAME_LENGTH + 1;
  OSUser := StrAlloc( Size );
  GetUserName( OSUser, Size );
  label2.Caption := OSUser;

  // Получаем ip-адрес
  wVerReq := MAKEWORD(1, 1);
  WSAStartup(wVerReq, wsaData);
  GetHostName(@ch, 128);
  h := GetHostByName(@ch);
  ip_address := iNet_ntoa(PInAddr(h^.h_addr_list^)^);
  WSACleanup;
  label3.Caption := ip_address;
end;

вроде так должно быть

[Ирина_28]

получилось.

Спасибо Огромное!