Lanzador de aplicacion(es)

[JXJ]

Empezado por Alfonso Ramírez

Gracias por la respuesta afortunadamente pude crear el lanzador pero creo que mi idea es erronea puesto que no queria que lanzara la aplicacion.

explico. el programa en cuestion es SpeedTouch.exe y lo queria llamar desde delphi para hacerlo en modo grafico mi error fue pensar que al llamarlo lo ejecutaria en modo grafico T.T error faltal. bien ahora ando en busca del codigo fuente del programa hecho en consola para poder transcribirlo y ponerlo en modo grafico (proyecto y reto personal). adjunto el codigo que me he creado .
PD como mencione antes soy nuevo en delphi espero no molestar mucho con estas preguntas o dudas.
PD2 No se casi mucho de ingles disculpen si eh escrito algo mal en los comentarios.
Como bien mencione antes estoy buscando el codigo fuente ya trate de ponerme en contacto con el admin de seguridadwireless ya que de hay radica la actualizacion o mejora del programa modo consola pero al parecer no me tomaron enserio T.T

gracias por leer y por ayudarme.


Código Delphi [-]unit Unit1;

interface

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

type
TForm1 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Button1: TButton;
Label1: TLabel;
Edit1: TEdit;
Button2: TButton;
Button3: TButton;
Label2: TLabel;
Press_help_button: TMemo;
OpenDialog1: TOpenDialog;
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
Operac, Nombre, Param, Path: string;
begin
Operac:= 'open';
Nombre:= 'SpeedTouch.exe';
Param := 'C:\WINDOWS\WIN.INI';
Path := 'C:\Users\Ghost\Desktop';
ShellExecute(Handle, PChar(Operac), PChar(Nombre),PChar(Param), PChar(Path), SW_SHOWMAXIMIZED);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ShowMessage('How to use SpeedTouch Launcher'
+ sLineBreak + '-i ssid -v (infinitumxxxx or infinitumxxxxxx Example SpeedTouch.exe -o 1234 -v)');
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
ShowMessage('Created by Ghost with Delphi');
end;

end.

¿cual es ese programa que no lo conozco?
¿para que sirve?
¿donde puedo descargarlo?

[Alfonso Ramírez]

El programa se llama SpeedTouch.exe
sirve para obtener claves de redes wifi
El programa en cuestion tiene como credito seguridadwireless pero se puede descargar de cualquier lugar supongo yo.

y el funcionamiento seria así:

1)lo descargas
2) lo ejecutas desde la consola de Windows
ejemplo yo lo tengo en el escritorio y lo ejecutaria así

c:\Users\Ghost> cd Desktop
c:\Users\Ghost\Desktop>SpeedTouch.exe

al escribir el nombre asi como lo pongo les dara las opciones 3 unicamente

bien para utilizarlo no hay problema ya que las 3 opciones estan en español pero bueno lo unico que tenemos que hacer es poner los ultimos digitos del nombre de cualquier red de internet con este paresido

INFINITUMxxxx o INFINITUMxxxxxx

Las x pueden ser cualquier cosa bien una vez que tengan esos ultimos cuatro digitos lo unico que tenemos que poner de codigo o de comando seria

c:\Users\Ghost\Desktop>SpeedTouch.exe -i xxxx -v

si es que la red solo tiene 4 digitos despues del nombre y si tiene 6 seria así

c:\Users\Ghost\Desktop>SpeedTouch.exe -i xxxxxx -v

y hay mismo les dara la clave

nota: de 4 digitos arrojara entre 80 y 150 posibles claves y con los 6 digitos arrogara solo 1.

saludos.