sim comigo funcionou ..... adriano ----- 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 > > a.. Para visitar o site do seu grupo na web, acesse: > http://br.groups.yahoo.com/group/delphi-br/ > > b.. Para sair deste grupo, envie um e-mail para: > [EMAIL PROTECTED] > > c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do > Serviço do Yahoo!. > > > > [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] > <mailto:[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>. > > _______________________________________________________ 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 a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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: http://br.yahoo.com/info/utos.html
