Gracias, ya funciona como lo necesitaba, lo que hice fue quitar la condicion If y al Result le asigne los cuatro valores
try
GetBuildInfo(v1,v2,v3,v4);
Result := IntToStr(v1) + '.' + IntToStr(v2) + '.' + IntToStr(v3) + '.' + IntToStr(v4);
except
Result := '';
end;
Muchar Gracias
Saludos
|