E se o camarada pegar o numero de serie deste HD, levar pra outro computador e, chegando lá, modificá-lo com o Debug do DOS ou com o Norton Disk Edit?
[]s Walter Alves Chagas Junior Projeto e desenvolvimento Telemont Engenharia de telecomunicações Belo Horizonte - MG - Brazil [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 -----Mensagem original----- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Anderson Carlos Enviada em: domingo, 29 de janeiro de 2006 22:52 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Proteção anti-cópias 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 >>>>> Links do Yahoo! Grupos [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