Delphi - Leer n° de disco riguido

Hola que, gracias a este foro termine un programa cree un instalador y todo de 10 ahora mi cliente me pide que el instalador no se distribulla sin su permiso (la empresa se dedica a crear enlatados) , me pide que el instalador lea el n° de disco riguido de la maquina y que luego no se instale en otra maq. con distinto disco riguido.

Prueba con esta rutina a ver si te vale
Tienes que declarar Serialnum del tipo PdWord.
La funcion GetVolumeInformation esta declarada en Windows.pas.

Function TFormPresentacion.VolumenID:Integer;
var
MiPuntero:SerialNum;
a, b : dword;
Buffer : array [0..255] of char;
Directorio:String;
begin
Result:=0;
Directorio:=copy(extractfilepath(Application.Exename),1,2)+'\';
new(Mipuntero);
if GetVolumeInformation(Pchar(Directorio),Buffer, SizeOf(Buffer),MiPuntero, a, b, nil, 0) then
begin
Result:=MiPuntero^;
dispose(MiPuntero);
end
end;

Suerte