Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros temas > Trucos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Los mejores trucos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 17-04-2008
calogero calogero is offline
Miembro
 
Registrado: oct 2006
Ubicación: Los Mochis, Sinaloa, México
Posts: 76
Poder: 18
calogero Va por buen camino
Hacer ping con ShellExecute

Nota:
Solo tienes que introducir la IP, en la caja de texto
y presionar Enter.

..dejen sus comentarios, gracias :')



Código Delphi [-]
type
  TForm1 = class(TForm)
    eDirIP: TEdit;
    Label1: TLabel;
    btnPing: TButton;
    procedure btnPingClick(Sender: TObject);
    procedure eDirIPKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnPingClick(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, 'ping ' + eDirIP.Text);
  WriteLn(Archivo, 'pause');
  CloseFile(Archivo);

  // ejecutamos el bat
  ShellExecute(Form1.Handle, nil, 'c:\ping.bat',
  nil, nil, SW_SHOWNORMAL);
end;

procedure TForm1.eDirIPKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (key = VK_RETURN) then
    btnPing.Click;
end;

end.

Espero les sirva...
Responder Con Cita
  #2  
Antiguo 09-06-2008
pfalzate pfalzate is offline
Registrado
 
Registrado: abr 2006
Posts: 1
Poder: 0
pfalzate Va por buen camino
Debe adicionar ShellAPI en USES
Responder Con Cita
  #3  
Antiguo 14-10-2008
Avatar de jeremiselxi
jeremiselxi jeremiselxi is offline
Miembro
 
Registrado: ago 2008
Posts: 199
Poder: 16
jeremiselxi Va por buen camino
oye este codigo es jevi. sigue asi mi hermano. Dios te bendiga, me ayudo este codigo. ahora tambien podre ayudar a otro tambien.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 09:47:03.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi