Eu uso este codigo:
var
OSVersionInfo: TOSVersionInfo;
begin
memo1.lines.add('');
memo1.lines.add('-----VERSÃO DO WINDOWS------');
OsVersionInfo.dwOSVersionInfoSize := SizeOf(TOsVersionInfo);
GetVersionEx(OsVersionInfo);
with OsVersionInfo do begin
memo1.lines.add('Versão : ' + IntToStr(dwMajorVersion));
memo1.lines.add('Revisão : ' + intToStr(dwMinorVersion));
memo1.lines.add('Build : ' + IntToStr(LoWord(dwBuildNumber)));
case dwPlatformID of
VER_PLATFORM_WIN32S: memo1.lines.add('Plataforma : Win32s');
VER_PLATFORM_WIN32_WINDOWS: memo1.lines.add('Plataforma :
Windows 95/98');
VER_PLATFORM_WIN32_NT: memo1.lines.add('Plataforma : Windows
NT/XP');
end;
end;
end;
--- Em delphi-br@yahoogrupos.com.br, "Filipe" <[EMAIL PROTECTED]> escreveu
>
> olha, se tem eu não sei, mas quando preciso de compilação para
diferentes plataformas, faço assim:
>
> {$IFDEF MSWINDOWS}
> // código pra windows
> {$ELSEIF LINUX}
> // código pra Linux
> {$ENDIF}
>
>
>
>
> []'s
>
> Filipe Geyer
>
>
> ----- Original Message -----
> From: Anderson Cichon
> To: delphi-br@yahoogrupos.com.br
> Sent: Monday, February 20, 2006 1:08 PM
> Subject: [delphi-br] Descobrir sistema operacional
>
>
> Boa Tarde
>
> Alguém conhece alguma função para retornar o sistema operacional
> Em que esta sendo rodado o aplicativo delphi?
>
> Muito obrigado
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
>
>
>
>
> Yahoo! Grupos, um serviço oferecido por:
> PUBLICIDADE
>
>
>
>
>
------------------------------------------------------------------------------
> Links do Yahoo! Grupos
>
> a.. Para visitar o site do seu grupo na web, acesse:
> http://br.groups.yahoo.com/group/delphi-br/
>
> b.. Para sair deste grupo, envie um e-mail para:
> [EMAIL PROTECTED]
>
> c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos
do Serviço do Yahoo!.
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
--
<<<<< 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
