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! > > > > [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] ou [EMAIL PROTECTED] > > > > 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] 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 > Termos do Serviço do Yahoo!. > > > > --------------------------------- > Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o > discador agora! > > [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] ou [EMAIL PROTECTED] > > 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] 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 Termos do Serviço do Yahoo!. --------------------------------- Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora! [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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- <<<<< 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 [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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.323 / Virus Database: 267.8.8/37 - Release Date: 01/07/2005 _______________________________________________________ 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
