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 >