Segue abaixo a rotina.
[ ] s
Gerhard Roger Nack
[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>
const
VER_UNKNOWN = $0000;
VER_WIN32S = $0001;
VER_WIN95 = $1000;
VER_WIN98 = $1010;
VER_WIN98SE = $1030;
VER_WINME = $1070;
VER_WINNT = $2000;
VER_WINNT4 = $2010;
VER_WIN2000 = $2030;
VER_WIN32 = $3000;
function VersaoWindows: integer;
var
VersionInfo : TOsVersionInfo;
begin
Result := VER_UNKNOWN;
VersionInfo.dwOSVersionInfoSize := SizeOf(VersionInfo);
GetVersionEx(VersionInfo);
with VersionInfo do
begin
case dwPlatformId of
VER_PLATFORM_WIN32s : Result := VER_WIN32S;
VER_PLATFORM_WIN32_WINDOWS : begin
Result := VER_WIN95;
if (dwMajorVersion >= 4) then
if (dwMinorVersion >= 90) then
Result := VER_WINME
else
if (dwMinorVersion >= 10) then
Result := VER_WIN98;
end;
VER_PLATFORM_WIN32_NT : begin
if VersionInfo.dwMajorVersion >= 5 then
Result := VER_WIN2000
else
if VersionInfo.dwMajorVersion = 4 then
Result := VER_WINNT4
else
Result := VER_WINNT;
end;
end;
end;
end;
function IsWin2000: Boolean;
begin
Result := VersaoWindows and VER_WIN2000 >= VER_WIN2000;
end;
function IsWin9x: Boolean;
begin
Result := VersaoWindows and VER_WIN95 >= VER_WIN95;
end;
function IsWinNT: Boolean;
begin
Result := VersaoWindows and VER_WINNT >= VER_WINNT;
end;
function IsWinNT4: Boolean;
begin
Result := VersaoWindows and VER_WINNT4 >= VER_WINNT4;
end;
----- Original Message -----
From: alisson_delphi <mailto:[EMAIL PROTECTED]>
To: [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>
Sent: Thursday, October 21, 2004 12:15 PM
Subject: [delphi] [delphi-br] Sistema operacional
Gostaria de saber como criar uma função que pegue o sistema
operacional do micro que está sendo usado....
Exemplo eu tenho um sistema. E nele eu gostaria de criar uma função
ou procedimento para que quando a minha tela sobre iniciar ela
aparecerá o sistema operacional que está istalado na maquina do
usuário que tiver o meu sistema....
Se o micro estiver o sistema operacional do windows 98 instalado
quando ele abrir a tela sobre vai ter que aparecer o Windows 98 no
label que eu coloquei.... e assim por diante.....
Alguém poderia me ajudar?????
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<http://br.groups.yahoo.com/group/delphi-br/messages>
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
<http://br.i1.yimg.com/br.yimg.com/i/br/ads4/2309_lrec_yshopping2.gif>
<http://br.rd.yahoo.com/SIG=12afnc1uu/M=264105.3931087.6562589.1588051/D
=brclubs/S=2137111264:HM/EXP=1098458200/A=2361264/R=6/SIG=10v4acpp0/*htt
p://br.shopping.yahoo.com/>
_____
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<http://br.groups.yahoo.com/group/delphi-br/>
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]>
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo! <http://br.yahoo.com/info/utos.html> .
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
