Criando Gerador de cash no Delphi

**G.Expindola** Qui Abr 28, 2011 10:46 am

Nossa, ai Galera, eu sou Foda em delphi, Agora vou ensinar aos Iniciantes, tudo bem Explicado, a Como fazer um Gerador de cash (Pegar pergaminhos no gc, armas foda no ca.etc.)
Vamos, lá
Va no DELPHI 7
Adcione 2 Buttons, 2 Edits e 1 Label.
Arrume eles ne um Lugar Organizado, assim:
Criando Gerador de cash no Delphi Part3u

Criando Gerador de cash no Delphi Part3u

Va em Caption da 1 Edit, mude o Nome para ('Clique para Gerar')
Va em caption da 2 edit, fassa o mesm.
Clique 2 vez no 1 button, apague Begin e End; E Adcione o seguinte código

var
i:integer;
const
str='1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ';
max=16;
begin
Edit1.Text:='';
for i:=1 to max do
begin
Edit1.Text:=Edit1.Text+str[random(length(str))+1];
end;
end;

Clique 2 vez no Button 2,apague Begin e end; e adcione este código

var
i:integer;
const
str='1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ';
max=10;
begin
Edit2.Text:='';
for i:=1 to max do
begin
Edit2.Text:=Edit2.Text+str[random(length(str))+1];
end;
end;

Va na aba "Win32" e adicione um "XpManifest", para sua aplicação ficar com um melhor design.

Para finalizar, va em "Project" em seguida "Options"

Va na aba "Application", la você pode editar o Título das mensagens a serem exibidas no gerador e o ícone do gerador.

Pronto!
Agora va em File, "Save Project As...", escolha um local e salve. Depois
abre ele e antao o projeto sera aberto pelo delphi , aperte CTRL+F9, e o
seu gerador aparecera no mesmo local em que o projeto foi salvo.

Créditos:
Flare_™
G.Expindola
[E]Neymar~