[Tutorial] Ip Interno, Externo, Nome Da Maquina e Usuario

[josue1602 0]

Aew hj vo tah enssinando a fazer um programa para ver seu ip interno e externo o nome da sua maquina e usuario que esta logado

 

1º Adicione 1 Button Aba Satandard

2º Mude A Propriedade Caption Para Chercar Informalções

3º Adicione 1 Memo Aba Satandar

4º Apague A Propriedade Lines Do Memo Deixe Em Branco

 

Agora Declare Na Uses:

registry, IdStack, IdHTTP, Menus, Winsock

OBS: A Uses Fica No Topo Dos Codigos

 

Agora Declare Essas Duas Funções Loga Abaixo Do Implementation:

 

Function NomeMaquina : String;

// Retorna o nome do computador

var

lpBuffer : PChar;

nSize : DWord;

const Buff_Size = MAX_COMPUTERNAME_LENGTH + 1;

begin

try

nSize := Buff_Size;

lpBuffer := StrAlloc(Buff_Size);

GetComputerName(lpBuffer,nSize);

Result := String(lpBuffer);

StrDispose(lpBuffer);

except

Result := '';

end;

end;

 

Function usuario: string;

var

buffer: array[0..255] of char;

size: dword;

begin

size := 256;

if GetUserName(buffer, size) then

Result := buffer

else

Result := ''

end;

 

Agora No Evento On Click No Botão Adicione Essas Linhas De Codigo:

var

IP : TIdHTTP;

Temporario : String;

Endereco,Result : String;

Name : string;

X : Integer;

WSAData : TWSAData;

HostEnt : PHostEnt;

begin

with memo1.Lines do begin

add('Nome Da Maquina: ' + (NomeMaquina));

add('Usuario: ' + (Usuario));

WSAStartup(2, WSAData);

SetLength(Name, 255);

Gethostname(PChar(Name), 255);

SetLength(Name, StrLen(PChar(Name)));

HostEnt := gethostbyname(PChar(Name));

with HostEnt^ do

Result:=Format('%d.%d.%d.%d',[byte(h_addr^[0]),

Byte(h_addr^[1]),Byte(h_addr^[2]),Byte(h_addr^[3])]);

WSACleanup;

add('IP Interno: ' + (Result));

begin

try

IP := TIdHTTP.Create(nil);

with IP do

begin

Host := 'checkip.dyndns.org';

Temporario := Get('checkip.dyndns.org');

For X := 1 to Length(Temporario) do

if (Temporario[X] in ['0'..'9']) or (Temporario[X] = '.') then

Endereco := Endereco + Temporario[X];

end;

Result := Trim(Endereco);

IP.Free;

add('IP Externo: ' + (Result));

except

Result := 'ERRO';

end;

end;

end;

end;

 

OBS: Apague O Beguin Que Esta Escrito.

 

Deu Projeto Pronto