Valeu cara, era o que eu precisava mesmo.
- Original Message -
From: Leo
To: delphi-br@yahoogrupos.com.br
Sent: Friday, December 01, 2006 4:00 PM
Subject: Re: [delphi-br] Re: versão do windows
essa tá funcionando redondinho ...
unit GetWindowsVersion;
interface
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:
Sent: Friday, December 01, 2006 1:59 PM
Subject: [delphi-br] Re: versão do windows
Tá dando PAU ess
n
Result := 'WinME'
else
Result := 'Desconhecido';
end;
end;
end;
end;
end.
- Original Message -
From: hernandes_sp
To: delphi-br@yahoogrupos.com.br
Sent: Friday, December 01, 2006 2:59 PM
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
> {Retor
Retire a mensagem anterior!!! Fumegou sim...
Grande abraç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);
>
5 matches
Mail list logo