Get Local Pc ID  via hard disc letter

function GetLocalPcID: string;
var
vol,a,b: DWORD;
begin

if GetVolumeInformation('c:\', NIL, 0, @vol, a, b, NIL, 0) then
begin
result:=Format('1E%.8x', [vol]);
end;

end;