Sabendo SO do Usuário

Delphi

04/07/2005

Alguém aí conhece como pegar informações do usuário como Sistema Operacional... Grato.


Paulovitor

Paulovitor

Curtidas 0

Respostas

Paulovitor

Paulovitor

04/07/2005

COMO PEGO O SITEMA OPERACIONAL USADO PELOS USUÁRIOS DO MEU SISTEMA...
SE ALGUEM JA TIVER ALGUMA FUNÇÃO PRONTA,
AGRADEÇO ABS...



[b:63570d7bd7]Editando.[/b:63570d7bd7]
Solicitamos que não escreva o texto utilizando caixa alta. Leia a [url=http://forum.clubedelphi.net/viewtopic.php?p=17019#1c]cláusula 1c[/url] das Regras de Conduta.
Sandra/Moderação


GOSTEI 0
Marcio.theis

Marcio.theis

04/07/2005

de uma verificada se isto lhe serve....


procedure TForm1.BitBtn1Click(Sender: TObject);
var
  verInfo: TOsVersionInfo;
  str: String;
begin
verInfo.dwOSVersionInfoSize:=SizeOf(TOSVersionInfo);
if GetVersionEx(verInfo) then
    begin
    case verInfo.dwPlatformId of
        VER_PLATFORM_WIN32s : str:=str + ´Windows 95´;
        VER_PLATFORM_WIN32_WINDOWS : str:=str + ´Windows 95 Osr2 / 98´;
        VER_PLATFORM_WIN32_NT : str:=str +´Windows NT´;
        end;
    end;
ShowMessage(str);
end;



GOSTEI 0
POSTAR