Ver Mensaje Individual
  #1  
Antiguo 21-07-2008
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Reputación: 25
Caral Va por buen camino
Hagamos entre todos un programa (No Novatos)

Hola
Pues eso, hagamos entre todos un programa (no aceptemos Novatos).
Yo aporto el primer par de códigos:
Por supuesto el Acerca de:
Código Delphi [-]
uses   ShellApi;  begin   ShellAbout(Application.MainForm.Handle,           PChar('Primer Programa NO Novatos del Club#Quien sabe'),
          PChar('Super Programa, No Novatos' + #13#10 + 
                'Derechos de autor registrados.'),
          Application.Icon.Handle);
end;


Y el primer mensaje:
Código Delphi [-]
MessageBox(Handle, 
             PChar('Ha tenido el privilegio de adquirir este primer programa NO Novatos.' + #13#10 + 
                   'Welcome o lo que es lo mismo Bien Comido.' + #13#10 + 
                   'Pronto conseguirá las mas notables actualizaciones.'), 
             PChar('Programa No Novatos'),
             MB_OKCANCEL + MB_DEFBUTTON1 + MB_APPLMODAL);

Bueno, ya empece, quien aportara mas codigo??, eso si, que sea de la calidad No Novato.
Saludos
Responder Con Cita