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=brclubs/S=2137111264:HM/Y=BR/EXP=1138647399/A=3254979/R=0/id=noscript/SIG=12k5j3olb/*http://www.momentumquiz.com.br/index.php?md5ref=372BBEE98E9544bd8B2F9E87847EEEBE_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]> > > - 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 >>>>> <*> 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
