[DUVIDA] Como fazer um sistema de serial avançado?

[~MigueO]

Bom, gostaria de saber como faz um sistema de serial que quando o serial

é inserido, ele não pode mais ser usado e não prescise mais ser colocado

para abrir o programa.

Abraços

[flavioavilela]

porque você não faz um modo randomico?? ai esses números já gerados, você vai guardando num lugar (banco, arquivo texto sei lá)... ai, quando gerar outro (numa próxima ocasião), você verifica se esse número gerado já foi gerado... se sim faz algo, se não faz algo....

procedure GeraNumero;
var
   numero: integer;
begin
  randomize;
  numero := Round(random(99999)); // 99999 é o limite do numero randomico
  Edit1.Text := IntToStr(num);
end;

ai um exemplo de como fazer um randomize...

espero ter ajudado

[Douglas Soares]

Dê uma olhada nesses links:

http://www.brandonstaggs.com/2007/07/26/im...stem-in-delphi/

http://www.activedelphi.com.br/modules.php...r=0&thold=0

Creio que um deles vai te ajudar!

Abraços