Written by xinyiman Ottobre 17, 2011, 03:04:00 pm21278 ViewsRating: 0 (0 Rates)Print
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
About the author
xinyiman registered at Italian community of Lazarus and Free Pascal on Ottobre 14, 2011, 10:56:28 pm and has posted 3285 posts in the boards since then. Last visit was Dicembre 03, 2024, 01:25:58 pm.
Questo blog non rappresenta una testata giornalistica poiché viene
aggiornato senza alcuna periodicità. Non può pertanto considerarsi un
prodotto editoriale ai sensi della legge n. 62/2001.
Questo sito utilizza cookie, anche di terze parti, per offriti servizi in linea con le tue preferenze. Chiudendo questo banner, scorrendo questa pagina, cliccando su un link o proseguendo la navigazione in altra maniera, acconsenti all’uso dei cookie.