Como Saber Qual o Wndows instalado na maquina

Delphi

31/03/2005

Galera, como posso saber qual o windows instalado na maquina

Por favor

Obrigado


Dr. Interbase

Dr. Interbase

Curtidas 0

Respostas

Cristiam

Cristiam

31/03/2005

Depende de Qual Delphi vc vai usar e da potência da máquina.
:arrow: Eu recomendo o Win Xp para todos os casos de Delphi.


GOSTEI 0
Faelcavalcanti

Faelcavalcanti

31/03/2005

Você pode tentar utilizar a biblioteca de objetos do tipo [b:c36fae3be4]TOsVersionInfo[/b:c36fae3be4], tipow :

var
  verInfo : TOsVersionInfo;
begin
verInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
if GetVersionEx(verInfo) then begin
  stOSVersao.Caption := ´Versão : ´+ IntToStr(verInfo.dwMajorVersion) + IntToStr(verInfo.dwMinorVersion);


De forma em que você poderá passá-los como parâmetros no seu sistema.

:wink:
Falow!!!


GOSTEI 0
Rjun

Rjun

31/03/2005

Da uma olhada nesse topico.

http://forum.clubedelphi.net/viewtopic.php?t=60337


GOSTEI 0
Rômulo Barros

Rômulo Barros

31/03/2005

Uses
   Registry
...
...
Var
   Registro : TRegistry
...
...
Registro := TRegistry.Create; 
Registro.RootKey := HKEY_LOCAL_MACHINE; 
Registro.OpenKey(´SOFTWARE\Microsoft\Windows\CurrentVersion´,False);{"False" pq todas as versões do Win possuem essa chave} 
If Not Registro.ValueExists(´Version´)Then 
showmessage(´NT/2000/XP´) 
Else 
showmessage(´Win9X/ME´);
Registro.CloseKey;
FreeAndNil(Registro);


_____________________________________________
[b:25aca27240][color=blue:25aca27240]Utilize a Ferramenta de Pesquisa do Fórum[/color:25aca27240][/b:25aca27240]

Pesquisar pelos termos
_____________________________________________
[b:25aca27240]Veja como[url=http://forum.clubedelphi.net/viewtopic.php?t=16976] OBTER RESPOSTAR RÁPIDAS[/url][/b:25aca27240]
[b:25aca27240]Veja as novas [url=http://forum.clubedelphi.net/viewtopic.php?t=59817]MUDANÇAS NA ESTRUTURA[/url] do site[/b:25aca27240]
[b:25aca27240]Leia sempre as [url=http://forum.clubedelphi.net/viewtopic.php?t=6689]REGRAS DE CONDUTA[/url][/b:25aca27240]


GOSTEI 0
Dr. Interbase

Dr. Interbase

31/03/2005

Obrigado, funcionou muito bem.


GOSTEI 0
POSTAR