Retornar versão do Windows

Delphi

07/04/2011

Bom dia,

estou precisando de uma função que retorne para mim a versão do windows que está rodando...


a função precisa retonar o seguinte:

Windows 98
Windows XP
Windows 2003 Server
Windows Seven


Obrigado,

Fábio C. Hansen

Fábio Hansen

Fábio Hansen

Curtidas 0

Respostas

Dirceu Morais

Dirceu Morais

07/04/2011

Bom dia Fábio,

dê uma olhada neste artigo http://www.planetadelphi.com.br/artigo/50/verificando-a-versao-do-windows talvez de ajude.

Atenciosamente,

Dirceu Morais
GOSTEI 0
Fábio Hansen

Fábio Hansen

07/04/2011

ola, Dirceu

obrigado, resolveu meu problema, muito obrigado

agora estou com outra duvida:

preciso retornar o(s) grupos que um usuario pertence, tem alguma função para isto??


Obrigado

Fábio C. Hansen
GOSTEI 0
Dirceu Morais

Dirceu Morais

07/04/2011

Fábio, tem este tópico
 http://www.activedelphi.com.br/forum/viewtopic.php?t=28557&sid=df5232c32484627ee66f6ca5618b8585 que pega o usuário logado. 


//Para Capturar o usuário Logado no Windows


Function GetNetUserName: string;


Var


  NetUserNameLength: DWord;


Begin


  NetUserNameLength:=50;


  SetLength(Result, NetUserNameLength);


  GetUserName(pChar(Result),NetUserNameLength);


  SetLength(Result, StrLen(pChar(Result)));


End;


Vê se é isso que vc precisa.


GOSTEI 0
Fábio Hansen

Fábio Hansen

07/04/2011


Olá, obrigado pela resposta


O nome do usuario já consigo pegar, mas preciso também retornar a qual grupo esse usuario pertence.


Obrigado

Fábio C. Hansen
GOSTEI 0
Dirceu Morais

Dirceu Morais

07/04/2011

Fábio, Não sei qual é a sua intenção em saber em qual grupo o usuário pertença por isso estou te passando este outro tópico, http://www.activedelphi.com.br/forum/viewtopic.php?p=233081&sid=5601f1780a53387fca246c4ce77be472 talvez enquadre no que vc esta precisando.
Tem também este artigo 
(Como descobrir se um usuário do Windows pertence ao grupo especificado?)Em http://pt.w3support.net/index.php?db=so&id=282740.

Espero ter ajudado.

Dirceu Morais
GOSTEI 0
Fábio Hansen

Fábio Hansen

07/04/2011

oláaa

resolveu meu problema


Muito obrigado mais uma vez...



Fábio C. Hansen
GOSTEI 0
POSTAR