Desculpem a ignorancia..mas alguem sabe como se implementa atraves do numero do
HD uma proteção anti pirataria do software...Se alguém tiver um exemplo bem
simples...
----- Original Message -----
From: Leandro
To: delphi-br@yahoogrupos.com.br
Sent: Friday, July 01, 2005 4:41 PM
Subject: Re: RES: RES: [delphi-br] serial do hd
Melhor dizendo, essa aqui:
function 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;
----- 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!
> >
> > [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
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
