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: delphi-br@yahoogrupos.com.br 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: <delphi-br@yahoogrupos.com.br> > 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: delphi-br@yahoogrupos.com.br > 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: <delphi-br@yahoogrupos.com.br> > 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: delphi-br@yahoogrupos.com.br > > 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: delphi-br@yahoogrupos.com.br > > > 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] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
