Comigo o número de série já vem funcionando a um ano ainda naum tive problemas com ela, se vc parar para pensar um pouco ninguem vai ficar formatando uma maquina a cada 30 dias nâo é mesmo? O único e exclusivo problema de pegar o número de volume e não o de série do HD . Agora vamos analizar a sua idéia, se por acaso a suposta máquina for formatada e esse diretório, do qual vc pegou a data de criação, tb for apagado como ele ´fará a consistência? Falar é muito fácil...
Walter Alves Chagas Junior <[EMAIL PROTECTED]> escreveu: Uma dica interessante, é você pegar a data de criação de um diretório qualquer no sistema. O ideal é você criar este diretório na instalação do seu sistema, pega a data e a hora da geração do supra-citado e com ela, você faz a chave (além de pegar outros dados no sistema). Mas essa dica de pegar o volume no HD, é mais furada que tabuleiro de pirulito... []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 Emerson Moreno Enviada em: segunda-feira, 30 de janeiro de 2006 14:25 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Proteção anti-cópias O que acontece é que a função GetVolumeInformation retorna o numero do volume do hd, isso significa que toda vez que o hd for formatado o numero irá mudar. Pois a cada formatação o numero de volume é alterado. vc poder fazer o teste usando essa mesma função porém indicando o drive A, ou seja, o disquete, anote o numero, formate e depois rode a função novamente e contatará que o numero muda. Mas existe uma função que realmente lê o numero físico do HD. Procure na net que irá achar. Espero ter esclarecido essa dúvida. Agora para bloquear a cópia de seus sistema, use a criatividade. cada um faz de forma diferente, tem gente que copia arquivos ocultos verificando se os arquivos estão lá. tem gente que coloca no registro do windows, entres outras coisas. Mas ai fica por conta de sua criatividade e de sua real necessidade. Em 30/01/06, Marcio Cruz <[EMAIL PROTECTED]> escreveu: > > Quando se copia um CD, com um copiador melhor, tipo CloneCD, o programa > copiador não copia inclusive o número de série? > > Elazar escreveu: > > Anderson Carlos > > > > Boa Tarde; > > > > Aproveitando a deixa para tirar uma duvida. > > > > um tempo atraz (inclusive ja postei a duvida) tentei fazer algo > > utilizando exatamente esta dica ai abaixo, mas com um CD, permitindo que > > o usuario utilizase o programa em varios micros, mas somente uma copia > > por vez baseado no serial do Cd, so que a funcao abaixo retorna numeros > > diferentes para cada versao de sistema operacional... > > > > > > A questao que ficou no ar é pq com o Win XP o serial de um CD é > > XXXX-XXXX no > > Win98 e > > ZZZZ-ZZZZ > > 2000 > > WWWW-WWWW > > > > o que tem de diferente?? alguem sabe responder? > > > > Atend. > > Elazar > > > > > > ------------------- > > 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,n > > il,0); > > Result := IntToHex(Serial,8); > > Except > > Result := ''; > > end; > > end; > > > > -- > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > > > > > *Yahoo! Grupos, um serviço oferecido por:* PUBLICIDADE > <http://br.ard.yahoo.com/SIG=12fmhsgsu/M=393477.7870451.8719931.2369893/D=br clubs/S=2137111264:HM/Y=BR/EXP=1138647399/A=3254979/R=0/id=noscript/SIG=12k5 j3olb/*http://www.momentumquiz.com.br/index.php?md5ref=372BBEE98E9544bd8B2F9 E87847EEEBE_3> > ------------------------------ > *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]<[EMAIL PROTECTED] om.br?subject=Unsubscribe> > > - O uso que você faz do Yahoo! Grupos está sujeito aos Termos do > Serviço do Yahoo! <http://br.yahoo.com/info/utos.html>. > > -- []'s Emerson Moreno O grande sábio aprende por ensinar! [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 >>>>> Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE --------------------------------- 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 Termos do Serviço do Yahoo!. --------------------------------- Yahoo! doce lar. Faça do Yahoo! sua homepage. --------------------------------- 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
