Function SerialNumHD(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;
Utilize assim: procedure TForm1.BitBtn1Click(Sender: TObject); begin Edit1.Text := SerialNumHD('c'); end; Abraços Ricardo Berti ----- Original Message ----- From: aderson rezende To: [EMAIL PROTECTED] ; [EMAIL PROTECTED] ; delphi-br@yahoogrupos.com.br Sent: Thursday, October 20, 2005 5:35 PM Subject: [delphi-br] Serial do HD amigos preciso função para pegar serial do hd alguem pode ajudar --------------------------------- Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e concorre a mais de 500 prêmios! Participe! [As partes desta mensagem que não continham texto foram removidas] -- [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