Testei aqui no trabalho o artigo e em uma máquina com Windows XP, trouxe o valor em branco as outras com Windows XP trouxe o valor correto.
Nas máquinas com Windows 98 retorna que não consegue criar o arquivo. No servidor que tem Windows 2000 tbm funcionou corretamente. t+ ----- Original Message ----- From: Walter Alves Chagas Junior To: 'delphi-br@yahoogrupos.com.br' Sent: Friday, July 01, 2005 9:19 PM Subject: RES: RES: [delphi-br] serial do hd Veja este artigo meu no Delphi3000 http://www.delphi3000.com/articles/article_4207.asp []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: Alosi yarru [mailto:[EMAIL PROTECTED] > Enviada em: sexta-feira, 1 de julho de 2005 16:34 > Para: delphi-br@yahoogrupos.com.br > Assunto: Re: RES: [delphi-br] serial do hd > > > e como faz isso via programação???? > ----- Original Message ----- > From: Walter Alves Chagas Junior > To: 'delphi-br@yahoogrupos.com.br' > Sent: Friday, July 01, 2005 4:05 PM > Subject: RES: RES: [delphi-br] serial do hd > > > 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! > > > > > > [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 > > 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 > > > > > > > [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 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
