News & Events
Dica: Função para descobrir se o SO é Vista
- 31 de março de 2008
- Posted by: Adriano Santos
- Category: delphi delphi2006 delphi2007 dicas
Difficulty level not set for this Post
Pessoal,
O colega Rubem Nascimento Rocha mandou uma função em uma das listas de discussão que participo e achei interessante publicar. Ela verifica se o Windows que está instalado seu sistema é Vista.
function IsVista: Boolean;
var
PFunction: Pointer; // pointer to GetProductInfo function if exists
begin
// Try to load GetProductInfo from Kernel32: present if Vista
PFunction := Windows.GetProcAddress(
Windows.GetModuleHandle('kernel32.dll'), 'GetProductInfo');
Result := Assigned(PFunction);
end;
Adriano Santos
Editor Técnico Revista ClubeDelphi
Parabéns, sua inscrição no Feed RSS foi aceita. Leia em primeira mão todas as notícias do blog.
Siga @tdevrocks no Twitter agora e fique por dentro de todas as atualizações do blog.
Siga também o autor @asrsantos
Author: Adriano Santos
Adriano Santos é especialista em linguagens de desenvolvimento, Embarcadero MVP, possui +1000 artigos e vídeo-aulas publicadas em revistas e websites especializados, ex-editor chefe das revistas ClubeDelphi e WebMobile. Atualmente Diretor de Operações na startup GET IT! Technology e Consultor Senior na Embarcadero do Brasil.
como utilizala ?