Eu uso essa função, que pega o nº de série do HD, eu gravo em uma tabela o
resultado e quando eu abro o sistema a 1º coisa que testo é o número de série
do HD se este for diferente do que eu gravei eu travo o sistema.
Espero que possa te ajudar.
Function TFrmPrincipal.SerialNum(FDrive:String) :String;
var
Serial: DWord;
DirLen, Flags: DWord;
DLabel : Array[0..11] of Char;
begin
Try
GetVolumeInformation(PChar(FDrive+':\'),dLabel,12,@Serial,DirLen,Flags,nil,0);
Result := IntToHex(Serial,8);
Except
Result := '';
end;
end;
Anderson Carlos
Programador Cobol - NetExpress 3.1 / Delphi 7.0
Softdados Informática Ltda
leonardo302021 <[EMAIL PROTECTED]> escreveu:
Olá galera!
Alguém poderia me indicar um método de proteção para evitar que seu
sistema seja copiado indevidamente por terceiros?
Não precisa ser muito complexo, mas é bom que seja eficaz :)
Só mais uma coisa: como eu pretendo vender meu sistema pela internet
seria interessante evitar soluções em que seja necessário minha
presença física ao instalar o sistema para o cliente, mas de qulquer
forma, qualquer idéia é bem vinda!
Grato pela atenção
Leonardo Leite
--
---------------------------------
Yahoo! doce lar. Faça do Yahoo! sua homepage.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
