Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Systeminformationen: Hersteller und Modell auslesen (https://www.delphipraxis.net/14868-systeminformationen-hersteller-und-modell-auslesen.html)

bug0815 17. Jan 2004 08:26


Systeminformationen: Hersteller und Modell auslesen
 
Hallo,

zu statistischen Zwecken würde ich gern den Systemhersteller (z.B. Toshiba) und das Systemmodell (z.B. T8200) eines Rechners auslesen.
Andere Anwendungen (z.B. Aida32) oder die Windows Systeminformation lesen diese Informationen auch aus und zeigen diese an.

Evtl. gibt es ja eine ähnliche Win32-API wie GetSystemInfo.

Kann mir an dieser Stelle jemand weiterhelfen?

scp 17. Jan 2004 08:31

Re: Systeminformationen: Hersteller und Modell auslesen
 
Willst du die Infos aus dem BIOS oder die von den Arbeitsplatz-Eigenschaften haben?

Die Infos von den Arbeitsplatz-Eigenschaften findest du gegebenenfalls immer in der OEMINFO.INI im Windows-Systemordner.

bug0815 17. Jan 2004 09:27

Re: Systeminformationen: Hersteller und Modell auslesen
 
Danke, ich habe mir die Datei oeminfo.ini gerade mal etwas näher betrachtet und die Einträge manipuliert. Die Informationen der Windows Systeminformation stammen aber leider aus einer Quelle. Anscheinend helfen mir an dieser Stelle doch nur die Daten aus dem BIOS weiter.

Die Frage ist nur, wie kommt man an diese Informationen ran?

scp 17. Jan 2004 12:39

Re: Systeminformationen: Hersteller und Modell auslesen
 
Schau dir mal den Code von nico an.

PS: Ich musste für mein MSI-Board ein Extra-Byte in den record TSmBiosEntryPoint hinzufügen:
Delphi-Quellcode:
  TSmBiosEntryPoint = packed record
    AnchorString : array [0..3] of AnsiChar;
    //...
      Revision   : Byte;
    end;
    Reserved : Byte; // Diese Zeile
  end;

bug0815 17. Jan 2004 14:20

Re: Systeminformationen: Hersteller und Modell auslesen
 
Danke, genau danach habe ich gesucht. :-D

mfg
Andi


Alle Zeitangaben in WEZ +1. Es ist jetzt 17:54 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz