elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Usando Git para manipular el directorio de trabajo, el índice y commits (segunda parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  [Delphi] Una inocente broma xD
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [Delphi] Una inocente broma xD  (Leído 888 veces)
BigBear


Desconectado Desconectado

Mensajes: 545



Ver Perfil
[Delphi] Una inocente broma xD
« en: 6 Diciembre 2013, 14:14 pm »

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.

Código
  1. // Joke : Big Tits
  2. // (C) Doddy Hackman 2013
  3.  
  4. unit big;
  5.  
  6. interface
  7.  
  8. uses
  9.  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  10.  Dialogs, acPNG, ExtCtrls, Math;
  11.  
  12. type
  13.  TForm1 = class(TForm)
  14.    Image1: TImage;
  15.    Timer1: TTimer;
  16.    procedure Timer1Timer(Sender: TObject);
  17.    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  18.    procedure nomepiensoir();
  19.  private
  20.    { Private declarations }
  21.  public
  22.    { Public declarations }
  23.  end;
  24.  
  25. var
  26.  Form1: TForm1;
  27.  
  28. implementation
  29.  
  30. {$R *.dfm}
  31.  
  32. procedure TForm1.nomepiensoir;
  33.  
  34. // Based on : http://delphi.about.com/od/adptips2006/qt/formclone.htm
  35. // Thanks to Zarko Gajic
  36.  
  37. var
  38.  
  39.  parte1: TMemoryStream;
  40.  acatoy: TForm;
  41.  
  42. const
  43.  dimensiones: array [1 .. 5] of string = ('100', '200', '300', '400', '500');
  44.  
  45. begin
  46.  
  47.  parte1 := TMemoryStream.Create;
  48.  parte1.WriteComponent(Form1);
  49.  
  50.  parte1.Position := 0;
  51.  
  52.  acatoy := TFormClass(Form1.ClassType).CreateNew(Application);
  53.  parte1.ReadComponent(acatoy);
  54.  
  55.  acatoy.Left := Form1.Left + StrToInt(dimensiones[RandomRange(1, 5)]);
  56.  acatoy.Top := Form1.Top + StrToInt(dimensiones[RandomRange(1, 5)]);
  57.  
  58.  acatoy.Show;
  59.  
  60. end;
  61.  
  62. procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
  63. begin
  64.  nomepiensoir();
  65.  Abort;
  66. end;
  67.  
  68. procedure TForm1.Timer1Timer(Sender: TObject);
  69. begin
  70.  nomepiensoir();
  71. end;
  72.  
  73. end.
  74.  
  75. // The End ?
  76.  

Si lo quieren bajar lo pueden hacer de aca.


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
¿Culpable o inocente? « 1 2 »
Foro Libre
Gabriela 16 4,590 Último mensaje 12 Octubre 2010, 00:46 am
por Constance
Valencia declara a CAMPS 'Inocente'
Foro Libre
dimitrix 7 1,798 Último mensaje 28 Enero 2012, 15:50 pm
por peib0l
¿Nadie cree que Ruiz Mateos es inocente? « 1 2 3 4 5 »
Foro Libre
dimitrix 45 10,630 Último mensaje 5 Agosto 2012, 20:26 pm
por Carloswaldo
El soldado Manning se declara inocente de ayudar al enemigo
Noticias
wolfbcn 0 668 Último mensaje 1 Marzo 2013, 02:35 am
por wolfbcn
Google, declarada inocente por enlazar a una noticia falsa
Noticias
wolfbcn 0 744 Último mensaje 22 Mayo 2013, 14:09 pm
por wolfbcn
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines