El clasico de los clasicos xDD.
Una imagen :
El codigo :
Código
// Magic Click 0.2 // Coded By Doddy H // Credits : Thanks to Victory Fernandes for their excellent manual on how to reveal asterisks unit magic; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, sSkinManager, jpeg, ExtCtrls, StdCtrls, sEdit, sGroupBox, sButton; type TForm1 = class(TForm) sSkinManager1: TsSkinManager; Image1: TImage; sGroupBox1: TsGroupBox; sEdit1: TsEdit; sGroupBox2: TsGroupBox; sButton1: TsButton; sButton2: TsButton; sButton3: TsButton; Timer1: TTimer; procedure sButton2Click(Sender: TObject); procedure sButton3Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure FormCreate(Sender: TObject); procedure sButton1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin sSkinManager1.SkinDirectory := ExtractFilePath(Application.ExeName) + 'Data'; sSkinManager1.SkinName := 'neonnight'; sSkinManager1.Active := True; Timer1.Enabled := True; end; procedure TForm1.sButton2Click(Sender: TObject); begin ShowMessage('Contact to lepuke[at]hotmail[com]'); end; procedure TForm1.sButton1Click(Sender: TObject); begin sEdit1.SelectAll; sEdit1.CopyToClipboard; end; procedure TForm1.sButton3Click(Sender: TObject); begin Form1.Close(); end; procedure TForm1.Timer1Timer(Sender: TObject); var posicion: TPoint; password: array [0 .. 63] of Char; need: HWND; begin GetCursorPos(posicion); need := WindowFromPoint(posicion); if SendMessage(need, EM_GETPASSWORDCHAR, 0, 0) <> 0 then begin SendMessage(need, WM_GETTEXT, 64, Longint(@password)); sEdit1.Text := password; end; end; end. // The End ?
Si quieren bajarlo pueden hacerlo de aca.