Siempre quize hacer la tipica broma donde te mandan un programa donde aparece la foto de una mina en tetas y cuando queres cerrar la ventana en vez de cerrarse se multiplica.
Si la victima no quiere cerrar la ventana puse un timer cada 1 segundo para que se multiplique de todas formas.
Hice algo asi en delphi , pondria una captura del programa en accion pero me borrarian la imagen xDD.
El codigo.
Si lo quieren bajar lo pueden hacer de aca.
Si la victima no quiere cerrar la ventana puse un timer cada 1 segundo para que se multiplique de todas formas.
Hice algo asi en delphi , pondria una captura del programa en accion pero me borrarian la imagen xDD.
El codigo.
Código:
// Joke : Big Tits
// (C) Doddy Hackman 2013
unit big;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, acPNG, ExtCtrls, Math;
type
TForm1 = class(TForm)
Image1: TImage;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure nomepiensoir();
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.nomepiensoir;
// Based on : http://delphi.about.com/od/adptips2006/qt/formclone.htm
// Thanks to Zarko Gajic
var
parte1: TMemoryStream;
acatoy: TForm;
const
dimensiones: array [1 .. 5] of string = ('100', '200', '300', '400', '500');
begin
parte1 := TMemoryStream.Create;
parte1.WriteComponent(Form1);
parte1.Position := 0;
acatoy := TFormClass(Form1.ClassType).CreateNew(Application);
parte1.ReadComponent(acatoy);
acatoy.Left := Form1.Left + StrToInt(dimensiones[RandomRange(1, 5)]);
acatoy.Top := Form1.Top + StrToInt(dimensiones[RandomRange(1, 5)]);
acatoy.Show;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
nomepiensoir();
Abort;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
nomepiensoir();
end;
end.
// The End ?