Eduardo,
Tente com esta função:
-----------------------------------------------
Function VersaoOS: String;
var
s : TOSVersionInfoA;
Begin
s.dwOSVersionInfoSize:=SizeOf(s);
if GetVersionEx(s) then
case s.dwPlatformId of
VER_PLATFORM_WIN32s : Result:='WINDOWS 3.X';
VER_PLATFORM_WIN32_WINDOWS : Result:='WINDOWS 9x';
VER_PLATFORM_WIN32_NT : Result:='WINDOWS NT/XP';
else
result:='SO DESCONHECIDO!';
End;
End;
-----------------------------------------------
[ ]?s
Moacir
Gladson Reis escreveu:
> www.torry.net
> acho q la tem
> atualmente estou trabalhando com java
> mas me lembro q la tinha
> eu usei
>
> ----- Original Message -----
> From: "Eduardo Buffara" <[EMAIL PROTECTED]>
> To: <delphi-br@yahoogrupos.com.br>
> Sent: Friday, June 23, 2006 1:40 PM
> Subject: Re: [delphi-br] Versão OS
>
>
>> Isso eu sei...mais quero fazer isso via DELPHI :D
>> ----- Original Message -----
>> From: <[EMAIL PROTECTED]>
>> To: <delphi-br@yahoogrupos.com.br>
>> Sent: Thursday, June 22, 2006 1:31 PM
>> Subject: RE: [delphi-br] Versão OS
>>
>>
>> Iniciar / Executar e digita WinVer e da enter
>>
>>
>> abraços
>>> -- Mensagem Original --
>>> To: <delphi-br@yahoogrupos.com.br>
>>> From: "Eduardo Buffara" <[EMAIL PROTECTED]>
>>> Date: Thu, 22 Jun 2006 11:30:47 -0300
>>> Subject: [delphi-br] Versão OS
>>> Reply-To: delphi-br@yahoogrupos.com.br
>>>
>>>
>>> Opa...
>>>
>>> Alguem sabe como q eu faço para descobrir a versão do sistema
>>> operacional???
>>>
>>> Desde já agradeço,
>>>
>>> Att,
>>>
>>> Eduardo
>>>
>>> [As partes desta mensagem que não continham texto foram removidas]
>>>
>>
>>
>>
>>
>>
>> --
>> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>>
>>
>>
>> Links do Yahoo! Grupos
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>> --
>> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>>
>>
>>
>> Links do Yahoo! Grupos
>>
>>
>>
>>
>>
>>
>>
>>
>
>
>
>
> _______________________________________________________
> Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular.
> Registre seu aparelho agora!
> http://br.mobile.yahoo.com/mailalertas/
>
>
>
>
>
>
>
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
