Információ kérés a hardverről az Office segítségével

A megvalósítás első lépéseként kapcsolatot hozunk létre a Word alkalmazással, melynek Visible property-jét hamisra állítjuk annak érdekében, hogy a Word ne jelenjen meg, hanem csak a háttérben fusson.

procedure TForm1.Button1Click(Sender: TObject);
begin
  WordApp:=CreateOleObject('Word.Application');
  WordApp.Visible:=false;
  ...

A különféle adatokat a Word alkalmazásának System osztálya szolgáltatja. Ezek felhasználása igen egyszerű: csupán ki kell olvasnunk azon property-k értékét, amely adatokra kíváncsiak vagyunk. A property-knél szövegesen értelmezhető adatokat kapunk, kivétel ez alól a Country property, mely az adott ország kódszámát adja meg (a 36 a magyar).

  ListBox2.Items.Add(WordApp.System.OperatingSystem);
  ListBox2.Items.Add(WordApp.System.Country);
  ListBox2.Items.Add(WordApp.System.FreeDiskSpace);
  ListBox2.Items.Add(WordApp.System.HorizontalResolution);
  ListBox2.Items.Add(WordApp.System.VerticalResolution);
  ListBox2.Items.Add(WordApp.System.LanguageDesignation);
  ListBox2.Items.Add(WordApp.System.ProcessorType);
  ListBox2.Items.Add(WordApp.System.Version);
  WordApp.Quit;
end;

A MSInfo segédalkalmazást elindíthatjuk a Word-ön keresztül is. Ehhez szintén a Word alkalmazás System property-jén keresztül vezet az út az MSInfo függvény meghívásával.

procedure TForm1.Button2Click(Sender: TObject);
begin
  WordApp:=CreateOleObject('Word.Application');
  WordApp.Visible:=false;
  WordApp.System.MSInfo;
  WordApp.Quit;
end;