Verificar Serial do HD

Question

Oi,

Preciso de uma rotina em que meu programa analise o numero serial do HD, sendo q c nao for o que eu informei ele nao executa o programa gerando uma mensagem tal para o usuario. Tipo anti pirataria

C possivel preciso com a maxima urgencia. Help !!!

Anonymous · Answer

procedure TForm1.FormShow(Sender: TObject);
var
Serial:DWord;
DirLen,Flags: DWord;
DLabel : Array[0..11] of Char;
begin
Try
GetVolumeInformation(PChar(�C:\�),dLabel,12,@Serial,DirLen,Flags,nil,0);
Edit1.Text := IntToHex(Serial,8);
Except
Edit1.Text :=��;
end;
end;