Criando Sistema de Serial
:: Programação :: Delphi :: Delphi Tutoriais.
Página 1 de 1
Criando Sistema de Serial
Adicione ao seu form :
Propiedades
Mude as propiedades do Timer 1 para
Abaixo de :
var
Form1: TForm1;
Adicione à variavel :
Adicione o codigo no Button1 :
Adicione o codigo no Timer1 :
[Creditos] - Au Criador
1 Timer - System
1 Edit - Samples
1 Button - Samples
Propiedades
Mude as propiedades do Timer 1 para
Interval - 1
Enabled - False
Abaixo de :
var
Form1: TForm1;
Adicione à variavel :
F: TextFile;
linha: String;
Adicione o codigo no Button1 :
If Edit1.Text = 'Serial aqui' then // Se o Text do edit for Serial aqui
Form2.Show // Abre o Form2
Timer1.Enabled:=True
Else // Se nao
Application.Terminate; // Termina a Aplicaçao
Adicione o codigo no Timer1 :
assignFile(f,'c:\TextoEdit.txt');
reset(f); //abre o arquivo para leitura;
while not eof(f) do begin
readln(f,linha); //le do arquivo e desce uma linha.
Edit1.Text := linha; //Adiciona o texto do TXT no Edit
end;
closefile(f);
AssignFile(f,'c:\TextoEdit.txt');
rewrite(f); //abre o arquivo para escrita
writeln(f,Edit1.Text); //escreve no arquivo e pula linha
closefile(f); //fecha o handle de arquivo
[Creditos] - Au Criador
Mr.Positive- Membro
- Mensagens : 40
Agradecimentos : 0
Data de inscrição : 12/01/2011
Idade : 29
Localização : Recreio
Humor : Feliz !
Tópicos semelhantes
» [Tutorial] Criando um Sistema
» ConvertXtoDVD 4.0.5.315 + Serial
» Pegar Serial do HD
» Camtasia Studio 6 + Serial Criador de VídeoAulas Completo
» Colocando Sistema de Login e Senha
» ConvertXtoDVD 4.0.5.315 + Serial
» Pegar Serial do HD
» Camtasia Studio 6 + Serial Criador de VídeoAulas Completo
» Colocando Sistema de Login e Senha
:: Programação :: Delphi :: Delphi Tutoriais.
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos