[look]

Empezado por jars

Hola amigos.
Tengo varias aplicaciones cliente-servidor y hay veces en que algunos cambios en el cliente se hacen efectivos solo con determinada version del servidor. Todos mis programas tienen numero de version y lo que quiero es:

programa cliente v4.3.5.12 compatible con programa servidor v2.6.11.0 ó superior.

Hay algun componente o algoritmo para hacer estas comparaciones?

Gracias

Código Delphi [-]
function GetAppVersion:string;
var
Size, Size2: DWord;
Pt, Pt2: Pointer;
begin
Size := GetFileVersionInfoSize(PChar (ParamStr (0)), Size2);
if Size > 0 then
begin
GetMem (Pt, Size);
try
GetFileVersionInfo (PChar (ParamStr (0)), 0, Size, Pt);
VerQueryValue (Pt, '\', Pt2, Size2);
with TVSFixedFileInfo (Pt2^) do
begin
Result:= ' Version: '+
IntToStr (HiWord (dwFileVersionMS)) + '.' +
IntToStr (LoWord (dwFileVersionMS)) + '.' +
IntToStr (HiWord (dwFileVersionLS)) + '.' +
IntToStr (LoWord (dwFileVersionLS));
end;
finally
FreeMem (Pt);
end;
end;
end;