Detectar XP, Win2000 e Win98?

Delphi

11/09/2003

Pessoal, alguém sabe como posso detectar, de dentro do meu aplicativo qual desses 3 sistemas é a plataforma?


Earmarques

Earmarques

Curtidas 0

Respostas

Marcelo Saviski

Marcelo Saviski

11/09/2003

peguei isso nas 800 dicas, não testei para ver se funciona
veja e diga se deu certo


function SysVersionStr: string;
var
  Ver: _OSVERSIONINFOA;
begin
  if SysVersion(Ver) then
  Result := IntToStr(Ver.dwMajorVersion) + ´.´ +
  IntToStr(Ver.dwMinorVersion)
  else
  Result := ´´;
end;



GOSTEI 0
Earmarques

Earmarques

11/09/2003

Tipo, ela não funcionou, pq não reconheceu, na hora de compilar, a função SysVersion. Você sabe qual unit tenho que usar?


Acho que [b:274511f06e]SysUtils[/b:274511f06e], mas não tenho certeza


GOSTEI 0
Heugenio

Heugenio

11/09/2003

Com esta funcao vc tera se o sistema e nt ou nao

Uses
SysUtils,Windows;

function VerificaOSistemaNT: boolean;
var
osi: TOSVersionInfo;
begin
osi.dwOSVersionInfoSize := sizeof(osi);
if GetVersionEx(osi) then begin
Result := (osi.dwPlatformId = VER_PLATFORM_WIN32_NT);
end;
end; :idea:

ate mais Heugenio@hotmail.com


GOSTEI 0
POSTAR