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