nome do sistema operacional

Question

Como fa�o para conseguir identificar o XP como sistema operacional nas esta��es ? Seguindo algumas dicas do forum, sempre mostra como se fosse windows 2000. � poss�vel ?...

R�mulo Barros · Answer

Var
Diretorio,Nome : String;
Registro : TRegistry;
Xp : Boolean;

Diretorio := ExtractFilePath(Application.ExeName); 
Nome := ExtractFileName(Application.ExeName); 
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 
Begin
  Xp := True;
  Disco := Registro.ReadString(�ProgramFilesDir�);{ NT/2000/XP} 
End
  Else 
Begin
  Xp := False;
Disco := Registro.ReadString(�SystemRoot�);{ Win9X/ME} 
End;
... 
Registro.CloseKey;

Guilherme B · Answer

OK !Mas eu preciso diferenciar as esta��es 2000 das XP das NT.� poss�vel ?sds...

R�mulo Barros · Answer

Tem uma chave no registro do windows q armazena a vers�o do sistema operacional, mas n�o me lembro no momento. Irei pesquisar, em casa, e enviarei a resposta.  :lol:...

Persist · Answer

A api GetVersionEx retorna em OsVersionInfo, dwMajorVersion e dwMinorVersion respectivamente:5 2 - 2003 Server5 1  - XP5 0  - 20004 0  - NT 4.04 90 - Me4 10 - 984 0   - 953 51 - NT 3.51...

Guilherme B · Answer

Ol�Voc� poderia me passar a sintaxe do comando ?Procurei nas documenta��es que possuo e n�o encontrei nada.Grato...

F�rum nome do sistema operacional #244432