Stabilire il sistema operativo
A volte puņ essere utile stabilire il sistema operativo, per poter rendere le nostre applicazioni multi piattaforma, cambiando dei parametri. Per fare questo basta usare la seguente funzione:
function GetOsVer: string;
begin
{$IFDEF WIN32}
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;
Utilizzando il seguente codice nella sezione uses della unit che contiene la funzione GetOSVer:
{$IFDEF WIN32}
,Win32Proc //serve per stabilire i vari sistemi operativi
{$ENDIF}
A questo indirizzo puoi scaricare un esempio www.lazaruspascal.it/esempi/Get_OS.zip