Fórum Detectar XP, Win2000 e Win98? #181551
11/09/2003
0
Pessoal, alguém sabe como posso detectar, de dentro do meu aplicativo qual desses 3 sistemas é a plataforma?
Earmarques
Curtir tópico
+ 0
Responder
Posts
11/09/2003
Marcelo Saviski
peguei isso nas 800 dicas, não testei para ver se funciona
veja e diga se deu certo
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;
Responder
Gostei + 0
11/09/2003
Earmarques
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
Responder
Gostei + 0
11/09/2003
Heugenio
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
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
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)