Ver Mensaje Individual
  #4  
Antiguo 14-10-2008
Avatar de jeremiselxi
jeremiselxi jeremiselxi is offline
Miembro
 
Registrado: ago 2008
Posts: 199
Reputación: 18
jeremiselxi Va por buen camino
Smile Respuesta

Cita:
Empezado por advancexz Ver Mensaje
Como obtengo la IP publica de la pc que estoy usando?? se puede??

[EDITADO] ups perdon, me referia a la IP publica desde un programa hecho en delphi... osea en codigo pues...
hola...
Código Delphi [-]
uses shellapi;
procedure TForm1.Button1Click(Sender: TObject);
var
  Archivo: TextFile;
begin
  // creamos el archivo .bat
  AssignFile(Archivo, 'c:\ping.bat');
  {$i-} Rewrite(Archivo); {$i+} // lo sobreescribimos
  if LongBool(IOResult) then
  begin
   ShowMessage('Error al guardar.');
   Exit;
  end;

  // instrucciones para el archivo bat
  WriteLn(Archivo, '@echo off');
  WriteLn(Archivo, 'ipconfig ');// nuestro comando ipconfig
  WriteLn(Archivo, 'pause');
  CloseFile(Archivo);

  // ejecutamos el bat
  ShellExecute(Form1.Handle, nil, 'c:\ping.bat',
  nil, nil, SW_SHOWNORMAL);
end;
end.
__________________
Cristo te ama, ven a d él, ya k te espera con los brazos abiertos. Dios te bendiga mucho
Responder Con Cita