Eu também quero uma função dessas, pois com certeza essa sim seria a chave ideal.
Elazar <[EMAIL PROTECTED]> escreveu: Marcio Cruz, e Emerson Moreno Testei com o Nero, Easy Cd Creator.... e nao consegui obter o mesmo numero de serie tirando uma copia do cd. Levo em consideração que o numero de serie do Cd seria apenas uma parte da chave anti copia (usar a criatividade sabe...) mas facilita quando o cara quer mais uma licenca ele me paga por mais um cd chave...rs..(me custa R$ 1,00 se comparado com uns R$ 300,00 ou mais da proteck ou similares sem falar que quando eu quiser modificar alguma coisa vai por minha conta (vai sabe o que se colocam nos nossos executaveis...rs..)) O que eu consegui observar em relacao a usar as chaves com cds 1) o numero de serie muda de uma versao do sistema operacional 2) o numero de serie muda no win 98 a cada vez que reabro e adiciono inf ao cd (mesmo que formatar um disquete) 3) esta e mais uma pergunta do que uma obervacao. Esta funcao que pega o numero fisico do HD (ja vi em algum site) funciona com algum CD? (acho que nao...e ainda nao fiz teste..rs..) -> a pergunta permanece. alguem conhece mais alguma inf. de como pegar o serial de um CD, HD de forma mais confiante e absoluta? -> nao fiz testes instalando mais de uma versao de SO no mesmo HD(alguem da lista tem??? consegue nos dizer se tem o mesmo numero nos dois?); Atenc. Elazar ------------------------------- 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. __________________________ 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 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. http://br.yahoo.com/homepageset.html -- <<<<< 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
