sobre a área de transferência (Clipboard)

A função para pegar o endereço IP você já possui ?

Cara tenta isso

(...) Clipboard.AsText := IP;(...)
não se esqueça de colocar na clausula USES a unit Clipbrd.

T+****

Outra forma de se fazer é você atribuir o valor do IP para um Edit, e então:

editIP.SelectAll;editIP.CopyToClipboard;

massa, nao achei que era simples assim

Valeu moçada, funciono

Editando--> A propósito

a função pra pegar ip eu achei nas ocorrencias do google

function LocalIP : string;

//

// Retorna o IP de sua máquina no momento em que

// você está conectado

//

// Declare a Winsock na clausula uses da unit

//

type

TaPInAddr = array [0..10] of PInAddr;

PaPInAddr = ^TaPInAddr;

var

phe : PHostEnt;

pptr : PaPInAddr;

Buffer : array [0..63] of char;

I : Integer;

GInitData : TWSADATA;

begin

WSAStartup($101, GInitData);

Result := '';

GetHostName(Buffer, SizeOf(Buffer));

phe :=GetHostByName(buffer);

if phe = nil then

begin

 Exit;

 end;

pptr := PaPInAddr(Phe^.h_addr_list);

I := 0;

while pptr^ <> nil do

begin

* result:=StrPas(inet_ntoa(pptr^**^));*

Inc(I);

end;

WSACleanup;

end;

É verdade... Algumas coisas que achamos que é estremamente complicado, na verdade são procedimentos simples que precisamos fazer... :P