Eu acabei de testar. abri um novo aplicativo, colei a funcao la dentro e
executou.... uso o Delphi 7
----- Original Message -----
From: "hernandes_sp" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Friday, December 01, 2006 1:59 PM
Subject: [delphi-br] Re: versão do windows
Tá dando PAU essa função!!!
Tem alguma Unit pra add??
Reveja a função...
===============================================================
--- Em delphi-br@yahoogrupos.com.br, "Anderson RB" <[EMAIL PROTECTED]> escreveu
>
> function OSType:Boolean;
> var
> osv : TOSVersionInfo;
> begin
> {Retorna True se for XP e False para 98}
> osv.dwOSVersionInfoSize := sizeof(osv);
> GetVersionEx(osv);
> Case osv.dwPlatformId of
> VER_PLATFORM_WIN32_NT : Result := True;
> VER_PLATFORM_WIN32_WINDOWS : Result := False;
> else
> Result := False;
> end;
> end;
> ----- Original Message -----
> From: "willer" <[EMAIL PROTECTED]>
> To: <delphi-br@yahoogrupos.com.br>
> Sent: Friday, December 01, 2006 11:40 AM
> Subject: [delphi-br] versão do windows
>
>
> Alguém sabe como faço para verificar se o sistema Operacional da
máquina
> onde o meu Sistema está rodando é win98 ou winXP ?
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
>
>
--------------------------------------------------------------------------------
>
>
> No virus found in this incoming message.
> Checked by AVG Free Edition.
> Version: 7.1.409 / Virus Database: 268.15.3/561 - Release Date: 01/12/06
>
>
>
> _______________________________________________________
> O Yahoo! está de cara nova. Venha conferir!
> http://br.yahoo.com
>
--------------------------------------------------------------------------------
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.409 / Virus Database: 268.15.3/561 - Release Date: 01/12/06
_______________________________________________________
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale
o discador agora!
http://br.acesso.yahoo.com
