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: http://br.yahoo.com/info/utos.html
