RES: [delphi-br] Tem como saber se o sistema está rodando no Windows Vista?

Fri, 05 Oct 2007 13:09:25 -0700 

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: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rubem 
Nascimento da Rocha
Enviada em: sexta-feira, 5 de outubro de 2007 16:57
Para: delphi-br@yahoogrupos.com.br
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]

Responder a