Tutorial Simples Iniciante

[~~Surfistinha~~ 13]

Nesse tutorial irei ensinar as coisas simples, e quase obrigatórias se quer entrar no mundo da programação em delphi.

 

1- mostrando mensagem, tocando sons, e outros.

 

aqui é a parte mais iniciante de todas, todo mundo que quer ser alguma coisa em programação tem que saber isso.

 

Deletando arquivo

 

deletefile('c:\SrMaster.exe');

 

Mostrar uma mensagem com uma coisa escrita no edit1.

 

showmessage(edit1.text);

 

mostrando uma mensagem escrita no edit1 e no 2, ou alguma coisa que eu escrever.

showmessage('Oi tudo bem?'+edit1.text+edit2.text+'Não te interessa');

 

tudo se consiste nisso, caso seja algum componente que teja string, você remove as ' ' antes, e coloca só o edit1.text por exemplo, label1.caption e etc...

 

copiando um arquivo

 

copyfile(pchar('C:\SrMaster.exe,pchar(edit1.text),false);

 

bom, ai nesse caso ele iria copiar o arquivo SrMaster, para o loca lescrito no edit, caso queria que mova pra outro local, leia acima o que acabei de dizer sobre os ' '. caso esteja errado esse código, fale no tópico, porque to escrevendo tudo normal, sem olhar nada

 

executando um arquivo

 

declare em uses, shellapi.

 

use isso para abrir um arquivo ou site.

shellexecute(handle,'open','C:\SrMaster.exe',nil,nil,sw_shownormal);

 

ou site, adicione o site, com o http:// antes.

 

shellexecute(Handle,'Open','http://www.google.com.br',nil,nil,sw_shownormal);

 

sabendo se um arquivo existe.

 

if fileexists('C:\SrMaster.exe') then begin

showmessage('O Arquivo existe');

end else

showmessage('O Arquivo não existe');

end;

 

quem não entendeu, esse if, then, e else tem abaixo.

 

tocando som

 

MessageBeep(MB_IConerror);

MessageBeep(MB_OK);

 

só sei esses dois, o iconerror toca som de erro, e o OK, toca som de OK. ;P

 

muito fácil, as coisas mais simples.

 

2- If, then, else.

 

Vou montar um código utilizando essas três palavras citadas acima.

 

if CheckBox1.Checked = true then begin

showmessage('O CheckBox está checado!');

end else

showmessage('O CheckBox não está checado!');

end;

 

bom, nesse código ele é interpretado assim:

 

se o checkbox1 estiver checado, aparece uma mensagem dizendo que sim, se não estiver checado, aparece que não.

 

o else faz tudo ao contrário, exemplo:

if timer1.enabled = true then begin

timer1.enabled:=false;

end else

timer1.enabled:=true;

end;

 

 

acho que já deu para intender isso.

 

utilizando dois códigos agora.

 

if checkbox1.checked = true then begin

deletefile('C:\SrMaster.exe');

showmessage('o arquivo foi deletado');

end else

showmessage('o arquivo não foi deletado!');

end;

 

3- Evitando erros com try and except.

 

bom, aqui nisso, irei ensinar à evitar erros, caso houver algum erro ele proteger o usuário do erro, aqui como exemplo:

 

try

deletefile('C:\SrMaster.exe');

except

showmessage('Erro ao deletar o arquivo SrMaster.exe');

end;

 

esse ai não está evitando nada, está apenas avisando, quase a mesma coisa que o else. porém esse evita erros, olhe o exemplo.

 

pra quem usa cheats em jogos, quando se usa pdword com o address errado, causa as janelinhas de erros, para evitar isso, use o try e except.

 

assim

 

var

SrMaster: pdword;

begin

try

SrMaster(pdword($0000000))^:=0;

except

showmessage('Erro ao freezar o address'+strtoint(SrMaster));

end;

end;

só não sei se esse código está certo, acho que tá errado

 

ele dará o erro falando que deu erro no address, caso não mostre o address pode utilizar assim:

 

var

address: integer;

begin

try

address:= $000000;

pdword(address)^:=0;

except

showmessage('Erro ao freezar o address'+strtoint(address));

end;

end;

 

sei lá, nem to testando isso, só to aqui pra ensinar, vocês à intenderem o motivo do código.

 

que mais eu posso ensinar?

 

não sei, deem idéias nesse mesmo tópico, que vou editando e adicionando aqui caso eu saiba fazer, espero que eu tenha ajudado alguns.

 

Créditos: SrMaster.

[Oxidum 0]

poxa ja q vcs sabem muito de Delphi

eu to inciando agora

e queria faser meu primeiro cheat pra GB

 

vc não poderia dar uma dica ai

tipo montar o trainer certinho

como eu devo colocar

ir falando os codigos

 

pode ser um Trainer Simples

Tipo um Trainer de Fenix

e usa apenas 1 CheckBox

 

abraços

faz um topico bem certinho

com explicação da DLL

e da Form

 

e como q devo Salvar

o Projeto

em q tipo q devo salvar

pra q quando eu clicar nele ele abrir tipo em um executavel

e não no arquivo Delphi

 

 

e como colocar a Dll no Injetor

 

faz um topico assim

to querendo muito criar meu proprio Trainer

Abraços.

 

OBS:Tem q ser com codigos q funcionem depois de criado