Como copiar dados da inteface de uma Janela do Windows

Delphi

29/08/2003

Olá galera sou new nessa área, mas gostaria que vcs me ajudassem em uma coisa, eu tenho dúvida como que eu faço para copiar os dados de uma janela do windows, por exemplo: preciso dos dados das propiedades de Rede que é o ip usuário... tem alguma maneira no Delphi para que eu consiga isso??? se poderem me ajudar... desde já obrigado.. :cry: [size=18:4352347536][/size:4352347536]


Pom@rolli

Pom@rolli

Curtidas 0

Respostas

Marcelo.c

Marcelo.c

29/08/2003

Verifique se é isso que você precisa:

Dica da DTDelphi:

169 - Verificando o seu endereço IP
A fonte do projeto principal ficará algo como:

implementation
 
uses Winsock;
 
{$R *.DFM}
 
procedure TForm1.FormCreate(Sender: TObject);
var
  wVersionRequested : WORD;
  wsaData : TWSAData;
begin
  wVersionRequested := MAKEWORD(1, 1);
  WSAStartup(wVersionRequested, wsaData);
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  WSACleanup;
end;
 
procedure TForm1.BtnIPClick(Sender: TObject);
var
  p : PHostEnt;
  s : array[0..128] of char;
  p2 : pchar;
begin
  GetHostName(@s, 128);
  p := GetHostByName(@s);
  Memo1.Lines.Add(p^.h_Name);
  p2 := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
  Memo1.Lines.Add(p2);
end;
 
end.



GOSTEI 0
POSTAR