CPUInfo via WMI

This example demonstrates how to retrieve processor information by using Windows Management Instrumentation. This example I created as my response to a subject posted in Delphi Indonesia Forum titled ngebaca s/n processor dgn delphi. For a complete source code, you can donwload it from Delphi Indonesia Forum (onDownload section).

{
  CPUInfo, An attempt on CPU information retrieval using
           Windows Management Instrumentation (WMI)
  Copyright (c) 2005 Bayu Prasetio

  This program is free software; you can redistribute it and/or
  modify it under the terms of the GNU General Public License
  as published by the Free Software Foundation; either version 2
  of the License, or (at your option) any later version.

  This program is distributed in the hope that it will be useful,
  but WITHOUT ANY WARRANTY; without even the implied warranty of
  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  GNU General Public License for more details.

  You should have received a copy of the GNU General Public License
  along with this program; if not, write to the Free Software
  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.

  The current web address of the GNU General Public License is:
  http://www.gnu.org/licenses/gpl.html

  You can contact the authors of this software at:
  bpras@bprasetio.or.id

  ------------------------------------------------------------------------------

  Portions of the code are belong to Comprehensive Open Source Benchmarking
  Initiative (COSBI) authors and its contributors, copyright COSBI Team.
  For further information about COSBI please refers to
  http://www.flickerdown.com/osmark/ or http://www.cosbi.org
}
unit uMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, ValEdit, WbemScripting_TLB, ActiveX, ComCtrls, XPMan;

type
  TfrmMain = class(TForm)
    vleCPUInfo: TValueListEditor;
    stbMain: TStatusBar;
    XPManifest1: TXPManifest;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
    FLocator : TSWBEMLocator;
    FSinkClasses : TSWbemSink;
    procedure RetrieveCPUInfo;
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

{$R *.dfm}

{ TfrmMain }

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  FLocator := TSWBEMLocator.Create(nil);
  FSinkClasses := TSWBEMSink.Create(nil);

  RetrieveCPUInfo;
end;

procedure TfrmMain.FormDestroy(Sender: TObject);
begin
  FSinkClasses.Free;
  FLocator.Free;
end;

procedure TfrmMain.RetrieveCPUInfo;
var
  lServices   : ISWbemServices;
  lObjectSet  : ISWbemObjectSet;
  lSObject    : ISWbemObject;
  lPropSet    : ISWbemPropertySet;
  lSProp      : ISWbemProperty;
  propEnum    : IEnumVariant;
  Enum        : IEnumVariant;
  tempObj     : OleVariant;
  Count       : Cardinal;
  Value       : Cardinal;
  sValue      : String;

begin
  Screen.Cursor := crHourGlass;
  try
    FSinkClasses.Cancel;

    // connect to local and use root\CIMV2 namespace
    lServices := FLocator.ConnectServer('', 'root\CIMV2', '', '', '', '', 0, nil);

    // retrieve the Win32_Processor information
    lObjectSet := lServices.ExecQuery('SELECT * FROM Win32_Processor', 'WQL',
                                      wbemFlagReturnImmediately, nil);
    Enum :=  ( lObjectSet._NewEnum ) as IEnumVariant;
    while (Enum.Next(1, tempObj, Value) = S_OK) do
    begin
      lSObject := IUnknown(tempObj) as SWBemObject;
      lpropSet := lSObject.Properties_;
      propEnum := (lpropSet._NewEnum) as IEnumVariant;
      while (propEnum.Next(1, tempObj, Value) = S_OK) do
      begin
        lSProp := IUnknown(tempObj) as SWBemProperty;
        if VarIsNull(lSProp.Get_Value) then
          sValue := '<empty>'
        else
        case lSProp.CIMType of
          wbemCimtypeSint8,
          wbemCimtypeUint8,
          wbemCimtypeSint16,
          wbemCimtypeUint16,
          wbemCimtypeSint32,
          wbemCimtypeUint32,
          wbemCimtypeSint64:
            if VarIsArray(lSProp.Get_Value) then
            begin
              if VarArrayHighBound(lSProp.Get_Value, 1) > 0 then
                for Count := 1 to VarArrayHighBound(lSProp.Get_Value, 1) do
                  sValue := sValue + ' ' + IntToStr(lSProp.Get_Value[Count]);
            end
            else
              sValue := IntToStr(lSProp.Get_Value);

          wbemCimtypeReal32,
          wbemCimtypeReal64: sValue := FloatToStr(lSProp.Get_Value);

          wbemCimtypeBoolean:
            if lSProp.Get_Value then
              sValue := 'True'
            else
              sValue := 'False';

          wbemCimtypeString, wbemCimtypeUint64:
            if VarIsArray(lSProp.Get_Value) then
            begin
              if VarArrayHighBound(lSProp.Get_Value, 1) > 0 then
                for Count := 1 to VarArrayHighBound(lSProp.Get_Value, 1) do
                  sValue := sValue + ' ' + lSProp.Get_Value[Count];
            end
            else
              sValue :=  lSProp.Get_Value;

          wbemCimtypeDatetime: sValue :=  lSProp.Get_Value;
          wbemCimtypeReference: sValue := lSProp.Get_Value;
          wbemCimtypeChar16: sValue := '&lt;16-bit character>';
          wbemCimtypeObject: sValue := '<cim Object>';
        else
          sValue := 'Unknown type';
        end; {case}

        // fill the property name & its value to ValueListEditor
        vleCPUInfo.Strings.Add(lsProp.Name + '=' + sValue);
      end; {while propEnum}
    end; {while Enum}
  finally
    FLocator.Disconnect;
    Screen.Cursor := crDefault;
  end; {try}
end;

end.

New Theme

We’ve just created a new theme called Borland Delphi 2005. It still under development cycle, but you can see how it works on this site.

If the codes are mature, I will release it.

Regards.

Delfai, Delfi or Delpi..???

Menurut Anda, bagaimanakah pengucapan Delphi yang benar..?? Pernahkah terlintas dalam benak Anda mencari tahu pengucapan Delphi yang tepat..? Atau menurut Anda bahwa kata Delphi yang Anda ucapkan sudah tepat..? Mmm, cukup sulit untuk menjawabnya karena fakta yang saya temukan ternyata berbeda – beda, bahkan dari para master dan dedengkot Delphi sekalipun.

Fakta ini saya dapat ketika saya menyimak tutorial yang disampaikan oleh para master, terutama pada BDNradio maupun BDNtv. Mereka mengucapkan Delphi dengan lafal yang berbeda. Beberapa arsitek Delphi di US melafalkannya dengan “Delfai”, sedangkan anggota Borland yang ada di Eropa, bahkan Marco Cantu pun menyebutnya dengan “Delfi”. Sementara itu kebanyakan orang Indonesia menyebutnya dengan “Delpi”.

Nah lalu bagaimana dengan Anda..??

My Dates With Delphi

Suatu ketika teman saya bertanya mulai kapan saya menggunakan Delphi. Lalu saya jawab sejak Delphi mulai ada, alias Delphi 1. Kaget juga mendengar jawaban saya seakan tidak percaya bahwa saya yang sedang asik coding pada Delphi 2005 ternyata pengguna Delphi sejak awal.

Sebenarnya perkenalan saya dengan Delphi melalui Turbo Pascal. Waktu itu kalau tidak salah belajar TP3, kemudian TP5 dan TP7. Nah pada TP7 ini Borland memperkenalkan konsep baru Object Oriented Programming melalui TurboVision. Setelah TV, saya coba Borland Pascal for Windows, gak banyak yang berubah bila dibanding TP7, cuma GUI nya saja yang menyesuaikan.

Nah baru setelah itu Borland merilis Borland Delphi 1, Rapid Application Development (RAD) yang bener – bener killer (pada jamannya). Utak – utik, ternyata asik juga. Kemudian saya langsung ke Delphi 3, dulu saya masih ingat code name-nya Ivory. Kemudian berturut – turut saya mencoba Delphi 4 dan 5. Versi 6 saya lompati dan langsung ke Delphi 7 dan Delphi 9.

Adapun beberapa versi Dlephi yang saya lewati, yaitu versi 2 dan 6 karena waktu itu saya kurang waktu untuk pemrograman, waktu itu karena sibuk kuliah (v2) dan bekerja di bagian keuangan (v6). Untuk versi 8 saya lewati karena ‘kekecewaan’ (setelah mencoba beberapa kali) saya yang hanya mengakomodir platform .NET saja, disamping tampilan IDE yang tidak seperti biasanya, yaitu mirip Visual Basic.

Versi 9 alias 2005 membawa banyak perubahan, antara lain ECO, Unit Testing, Refactoring, Code Folding, .NET, multiple language dalam satu IDE (C#, .NET, Win32), Dokumentasi yang lebih baik, optimalisasi complier dan native code, integrasi dengan aplikasi dari Borland lain seperti Caliber, StarTeam dan masih banyak fitur yang apabila saya sebutkan satu persatu akan menghabiskan puluhan halaman. Intinya adalah, Delphi2005 kembali menjadi Killer Application setelah 3 tahun vakum (setelah Delphi7) dan pasarnya diambil alih oleh Microsoft dengan VisualStudio nya.

Yah begitulah sekelimut ‘kencan’ saya dengan Delphi.

New Looks and Feels

Ah, setelah menggunakan theme standar, kini saatnya melakukan enhancement, pengubahan theme dan instalasi beberapa plugin untuk meningkatkan kapabilitas wordpress.

< ?php

$hello =& new HelloWorld();

while(!$hello->hasSaidHello())
{
    $hello->sayHello();
    $hello->sayHowAreYa();
}

$hello->sayBye();

unset($hello);

?>

happy surf and enjoy your day..