Nao.. eh IDE mesmo. Tipo, a funcao abaixo pega o numero de serie LOGICO, mas nao o FISICO. Ai se o cara clonar o numero LOGICO pra outro HD entao o sistema funcionarah numa boa. O lance eh pegar numero fisico, porem teve HD q eu testei (HD IDE) q nao funcionou.
[ ]'s Vinicius Ribeiro Adriano (Micro Center) escreveu: > Tambem tem uma coisa , sera possivel este hd nao esta informando o seu > numero serial por ser um hd SATA... > Pois eu acho que a tecnologia SATA é diferente dos IDE..... > ----- Original Message ----- > From: Vinicius Ribeiro > To: [email protected] > Sent: Saturday, July 02, 2005 10:32 AM > Subject: Re: RES: RES: [delphi-br] serial do hd > > > Adriano, > > Seria o numero de série FISICO do HD. Essa funcao pega o numer de serie > LOGICO, correto? > > [ ]'s > > Vinicius Ribeiro > > Adriano (Micro Center) escreveu: > > > Detectando o Numero Serial do HD > > Function 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; > > > > Adriano > > Micro Center.......... > > ----- Original Message ----- > > From: Vinicius Ribeiro > > To: [email protected] > > Sent: Saturday, July 02, 2005 9:35 AM > > Subject: Re: RES: RES: [delphi-br] serial do hd > > > > > > Wilson, > > > > Eu tenho essa funcao mas la onde trabalho. To em casa agora e soh > > trabalho na segunda. Porem, fiz testes com essa funcao em 20 > > maquinas la > > da empresa. Essa funcao funciona bem porem teve alguns HDs que > retornou > > VAZIO. Ai vi la no HD se tinha numero de serie impresso no rotulo e > > tinha. Ou seja a funcao nao retorna de todos, nao me pergunte o > porque. > > > > Se alguem aqui quiser posso disponibiliza-la pra lista, mas soh na > > segunda. Inclusive eu peguei de alguem q mandou pra lista aqui > mesmo. > > > > Stock, vc testou essa funcao em varios micros com marcas de HD > > diferente? Retornou em todas? Se sim poderia disponibiliza-la > para a > > lista? > > > > Abraco! > > > > Vinicius Ribeiro > > > > Wilson Valdevite escreveu: > > > > > Desculpe a minha curiosidade pois isso tbem me interessa, mas por > > que não > > > mandar para a lista? > > > > > > Wilson > > > ----- Original Message ----- > > > From: "Stock" <[EMAIL PROTECTED]> > > > To: <[email protected]> > > > Sent: Friday, July 01, 2005 5:15 PM > > > Subject: Res: Re: RES: RES: [delphi-br] serial do hd > > > > > > > > > Esta função pega o serial do volume, se o volume for clonado, sua > > > aplicação vai rodar em outro normalmente... > > > > > > use a que pega o serial fisico do disco... > > > > > > me contate em pvt, eu te mando a função com exemplo > > > > > > > > > [EMAIL PROTECTED] > > > 600 modelos de sites profissionais - Imperdivel > > > http://www.kitsites.com/index.php?ref=50 > > > > > > -------Mensagem original------- > > > > > > De: Leandro > > > Data: 07/01/05 16:55:18 > > > Para: [email protected] > > > Assunto: Re: RES: RES: [delphi-br] serial do hd > > > > > > uso essa danada: > > > > > > function TCritica.PegaSerieHD: String; > > > var > > > SerialNum : Dword; > > > a, b : dword; > > > Buffer : array [0..255] of char; > > > begin > > > if > > > > GetVolumeInformation('c:\',buffer,sizeof(buffer),@serialnum,a,b,nil,0) > > > then > > > Result := inttohex(serialnum,8) > > > else > > > Result := ''; > > > end; > > > > > > Att, > > > > > > Leandro > > > > > > ----- Original Message ----- > > > From: "aderson rezende" <[EMAIL PROTECTED]> > > > To: <[email protected]> > > > Sent: Friday, July 01, 2005 4:30 PM > > > Subject: Re: RES: RES: [delphi-br] serial do hd > > > > > > > > > obrigado > > > > > > continuo precisando da dica de como fazer isso como pegar tal > numero > > > > > > > > > > > > Walter Alves Chagas Junior <[EMAIL PROTECTED]> escreveu: > > > Então não pegue o serial do voluma do HD, pegue o serial da > > controladora > > > > > > > > > > > > > > > []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: aderson rezende [mailto:[EMAIL PROTECTED] > > > > Enviada em: sexta-feira, 1 de julho de 2005 15:01 > > > > Para: [email protected] > > > > Assunto: Re: RES: [delphi-br] serial do hd > > > > > > > > > > > > quase isso Walter a ideia é colocar um tempo de validade > > > > para locação da aplicação e um dos parametros pensei no > serial do HD > > > > > > > > > > > > > > > > > > > > > > > > Walter Alves Chagas Junior <[EMAIL PROTECTED]> escreveu: > > > > Desculpe intrometer no assunto amigo, mas você tá querendo > fazer > > algum > > > > mecanismo de proteção contra cópia não autorizada? > > > > > > > > > > > > > > > > []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: aderson rezende [mailto:[EMAIL PROTECTED] > > > > > Enviada em: sexta-feira, 1 de julho de 2005 10:23 > > > > > Para: [email protected] > > > > > Assunto: [delphi-br] serial do hd > > > > > > > > > > > > > > > preciso pegar o serial do HD > > > > > usei essa função e cada hora vem um valor diferente ou > > > > > melhor sempre da dois valores 1 por vez > > > > > > > > > > > > > > > Function SerialNum(FDrive:String) > > > > > :String;VarSerial:DWord;DirLen,Flags: DWord;DLabel : > > > > > Array[0..11] of Char;beginTry > > > > > GetVolumeInformation(PChar(FDrive+':\'),dLabel,12,@Serial,DirL > > > > > en,Flags,nil,0);Result := IntToHex(Serial,8); Except Result > > > > > :='';end;end; como faço para retornar o resultado dessa > > > > > função???pode ser esse o erro > > > > > > > > > > > > > > > > > > > > > > > > > _______________________________________________________ Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! http://br.acesso.yahoo.com/ -- <<<<< 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] ou [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
