var
Win95, Win98, WinME, WinNT, Win2K, WinXP, WinVista : Boolean;
begin
Win95 := (Win32MajorVersion = 4) and (Win32MinorVersion = 0)
and (Win32Platform = VER_PLATFORM_WIN32_WINDOWS);
Win98 := (Win32MajorVersion = 4) and (Win32MinorVersion = 10)
and (Win32Platform = VER_PLATFORM_WIN32_WINDOWS);
WinME := (Win32MajorVersion = 4) and (Win32MinorVersion = 90)
and (Win32Platform = VER_PLATFORM_WIN32_WINDOWS);
WinNT := (Win32MajorVersion = 4) and (Win32MinorVersion = 0)
and (Win32Platform = VER_PLATFORM_WIN32_NT);
WinXP := (Win32MajorVersion = 5) and (Win32MinorVersion = 1)
and (Win32Platform = VER_PLATFORM_WIN32_NT);
Win2K := (Win32MajorVersion = 5) and (Win32MinorVersion = 0)
and (Win32Platform = VER_PLATFORM_WIN32_NT);
WinVista := (Win32MajorVersion = 6)
and (Win32Platform = VER_PLATFORM_WIN32_NT);
end;
OBS: O Google podia ter resolvido isso facinho.
http://groups.google.com.br/groups/search?hl=pt-BR&ie=UTF-8&oe=UTF-8&q=Win32MajorVersion+vista
[ ] s
De: [email protected] [mailto:[EMAIL PROTECTED] Em nome de Rubem
Nascimento da Rocha
Enviada em: sexta-feira, 5 de outubro de 2007 16:57
Para: [email protected]
Assunto: RE: [delphi-br] Tem como saber se o sistema está rodando no Windows
Vista?
Prioridade: Alta
Com diretiva de compilação vc não consegue resolver. Vc tem é que testar a
versão do Windows no seu código mesmo. Se a versão encontrada do Windows for do
Vista, executa tal coisa, senão executa outra tal coisa.
Outra coisa, vc precisa verificar além da versão se é Windows Vista, qual o
tipo de licença (Home, Premium, Media Edition, etc.).
Boa sorte.
Sds.
[As partes desta mensagem que não continham texto foram removidas]
