Acho que e isso que vc esta procurando:
Como obter informações do S.O. (Nome, Versão, Compilação)
Vamos à função :
unit sobreManager;
interface
uses Windows, SysUtils, Classes, Graphics, Forms, Controls,
StdCtrls, Buttons, ExtCtrls;
type
TfrmSobreManager = class(TForm)
btnOK: TButton;
ProductName: TLabel;
Version: TLabel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Copyright: TLabel;
Panel1: TPanel;
Image2: TImage;
GroupBox1: TGroupBox;
Bevel1: TBevel;
stOSVersao: TStaticText;
stOSBuilder: TStaticText;
stOS: TStaticText;
stOSService: TStaticText;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmSobreManager: TfrmSobreManager;
implementation
{$R *.DFM}
// VERIFICA E APRESENTA AS INFORMAÇÕES do SISTEMA OPERACIONAL
procedure TfrmSobreManager.FormCreate(Sender: TObject);
var
verInfo : TOsVersionInfo;
str : String;
I : Word;
begin
verInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
if GetVersionEx(verInfo) then begin
stOSVersao.Caption := 'Versão : '+
IntToStr(verInfo.dwMajorVersion) +
IntToStr(verInfo.dwMinorVersion);
OSBuilder.Caption := 'Compilação :
'+IntToStr(verInfo.dwBuildNumber);
str := 'Sistema Operacional : ';
case verInfo.dwPlatformId of
VER_PLATFORM_WIN32s : stOS.Caption := str +'Windows 95';
VER_PLATFORM_WIN32_WINDOWS : stOS.Caption := str +'Windows
95 Osr2 / 98';
VER_PLATFORM_WIN32_NT : stOS.Caption := str +'Windows NT';
end;
str := '';
for I := 0 to 127 do
str := str + verInfo.szCSDVersion[I];
stOSService.Caption := 'Informações Adicionais : '+ str;
end
end;
end.
Abraços,
Fernando dos Santos Sousa
José Otavio DTI escreveu:
> Alguém sabe como saber se o sistema operacional é 9x, NT ou XP?
> Achei uma função na net mas só diz se é 9x ou NT
>
> Preciso diferenciar se for NT e XP tb.
>
> Agradeço desde já a atenção de todos.
>
> zk
>
--
<<<<< 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
