const
  DeviceRegPath = 'SOFTWARE\Microsoft\Windows NT\CurrentVersion\GetDevice_%d';

function GetUninstFilePath(Value: string): string;
var
  S: string;
  I: Integer;
begin
  Result := '';
  for I := 1 to 3 do
    if RegQueryStringValue(HKLM, Format(DeviceRegPath, [I]), 'Name', S) then
    begin
      Result := S;
      Exit;
    end;
end;