Basta che fai tu una funzione con delle differenziazioni tra sistema operativo, guarda qui
http://www.lazaruspascal.it/index.php?page=12
Ciao,
vado un po' OT: il codice scritto in quell'esempio, è impreciso: infatti un Windows a 64 bit non verrebbe riconosciuto.
Io lo farei così:
function GetOsVer: string;
begin
{$IFDEF MSWINDOWS}
if WindowsVersion = wv95 then Result:='Windows 95'
else if WindowsVersion = wvNT4 then Result:='Windows NT v.4'
else if WindowsVersion = wv98 then Result:='Windows 98'
else if WindowsVersion = wvMe then Result:='Windows ME'
else if WindowsVersion = wv2000 then Result:='Windows 2000'
else if WindowsVersion = wvXP then Result:='Windows XP'
else if WindowsVersion = wvServer2003 then Result:='Windows Server 2003'
else if WindowsVersion = wvVista then Result:='Windows Vista'
else if WindowsVersion = wv7 then Result:='Windows 7'
else Result:='Unknown';
{$ENDIF}
{$IFDEF UNIX}
Result:='Linux';
{$ENDIF}
end;
Inoltre, io preferisco usare {$IFDEF LINUX} invece di {$IFDEF UNIX}, anche se forse il risultato è lo stesso.
Ciao, Mario