Visualizar la IP y el nombre del PC

[hook]

Si, reconozco que la programacion no es mi fuerte pero me lo han pedido en en trabajo.....asi que me tengo que buscar la vida....Bueno, me da varios errores en la compilacion como si no reconociera las funciones o lo precedimientos, lo mas seguro es que no haya implementado bien el codigo o agradeceria mucho que me explicarais (paso a paso) como poner el codigo y que componentes necesito en el formulario. Muchisimas gracias.

[[Ohcan]]

Bueno... ayudaría mucho que pusieras el texto del error... y en qué línea te falla.

Pero por lo que dices creo que te falta incluir algo en los uses...
Ahora no tengo Delphi aquí, así que no te puedo decir qué te falta.
Prueba a poner el cursor encima de, por ejemplo, GetComputerName y pulsar F1...
En la ayuda de Delphi tienes la solución...

Si no lo consigues quizás mañana pueda mirártelo.

[raco]

no se que error te pueda aparecer, yo copie el codigo de arriba tal cual y me funciono , trata de borrar todo lo q esta en el unit de un proyecto nuevo y pegar todo esto:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
function GetComputerName:String;
var
pcComputer:PChar;
dwCSizeWORD;
begin
dwCSize := MAX_COMPUTERNAME_LENGTH+1;
GetMem(pcComputer,dwCSize);
try
if Windows.GetComputerName(pcComputer,dwCSize) then Result := pcComputer;
finally
FreeMem(pcComputer);
end;
end;

end.

Inserta un boton y un edit en la forma y dale doble click al boton, en esa parte pon este codigo:

Edit1.text:=GetComputerName();

para que te quede de esta forma:

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.text:=GetComputerName();
end;

Y asi obtienes el nombre de la pc.

[raco]

Tambien puedes hacerlo de otra forma, esta bastante sencillo. visita este hilo:

http://www.clubdelphi.com/foros/show...ener+direccion

[raco]

respecto al otro codigo, creo que estas poniendo la funcion en donde no debes o algo asi o tal vez la estas llamando mal, es dificil saber si no pones el error.