[DELPHI] VERSÃO DO WINDOWS

Com o Delphi podemos acessar um conjunto de informações sobre o sistema operacional, por exemplo, qual nome da instalação, a versão do sistema entre outras.

Abra o Delphi e crie um novo projeto através do menu File -> New -> VCL Forms Application - Delphi, e altere as propriedade do Form:

Caption = VERSÃO DO WINDOWS
Name = Frm_Principal
Position = poDesktopCenter

Adicione ao formulário um TMemo disponível na paleta Standard do Delphi (Tool Palette -> Standard: TMemo) e altere suas propriedades conforme baixo:

PROPERTIES TMEMO1:
Align  = alClient

Clique na barra de título do formulário para selecioná-lo, acesse o evento onCreate do formulário (Object Inspector -> Guia Events: onCreate), e adicione o código abaixo:

procedure TFrm_Principal.FormCreate(Sender: TObject);
var
  objWMIService: OLEVariant;
  colItems: OLEVariant;
  colItem: OLEVariant;
  oEnum: IEnumvariant;
  iValue: LongWord;

  function GetWMIObject(const objectName: String): IDispatch;
  var
    chEaten: Integer;
    BindCtx: IBindCtx;
    Moniker: IMoniker;
  begin
    OleCheck(CreateBindCtx(0, BindCtx));
    OleCheck(MkParseDisplayName(BindCtx, StringToOleStr(objectName), chEaten,
      Moniker));
    OleCheck(Moniker.BindToObject(BindCtx, nil, IDispatch, Result));
  end;

begin
  objWMIService := GetWMIObject('winmgmts:\\localhost\root\cimv2');
  colItems := objWMIService.ExecQuery('SELECT * FROM Win32_OperatingSystem', 'WQL', 0);
  oEnum := IUnknown(colItems._NewEnum) as IEnumvariant;
  if oEnum.Next(1, colItem, iValue) = 0 then
  begin
    Memo1.Clear;
    Memo1.Lines.Add('Caption        ' + colItem.Caption);
    Memo1.Lines.Add('Version        ' + colItem.Version);
    Memo1.Lines.Add('BuildNumber    ' + colItem.BuildNumber);
    Memo1.Lines.Add('BuildType      ' + colItem.BuildType);
    Memo1.Lines.Add('CodeSet        ' + colItem.CodeSet);
    Memo1.Lines.Add('CountryCode    ' + colItem.CountryCode);
    Memo1.Lines.Add('BootDevice     ' + colItem.BootDevice);
    Memo1.Lines.Add('');
  end;
end;

Adicione a Uses as referências ActiveX, ComObj.

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ActiveX, ComObj;
  
Salve as alterações (File -> Save All), coloque o nome uPrincipal para Unit e Principal para o nome do projeto.

Pronto, execute a aplicação (menu Run -> Run ou Pressione F9) e veja o resultado.

Gostou? Deixe seu comentário... Convido você a seguir meu blog, sua presença é bem vinda!【ツ】

Download