Grafik Chip Information Auslesen?

[CrashBack]

Hallo Leute,

Wie kann man Information aus dem Grafik Chip lesen? Um zb. einen Treiber via Software zufinden.

Ich habe eine Menge Information via Jvcl Gefunden bzw. Ausgelesen können.

Ich habe zwar im WWW gefunden wie man via registry Grafik Information Auslesen kann aber das will ich net da ja dort nichts drinsteht wenn der Treiber Fehlt.

Oder ist das mit Delphi nicht wirklich Möglich?
Oder Habe ich ein denk Fehler?
Und wenn habt ihr für mich nen Link wo ich das Nachlesen kann?

[s.h.a.r.k]

Mach dich mal schlau, wie man das über WMI lösen kann. Ich glaube, dass das eine ganz gute Anlaufstelle sein kann.

PS: Auf dieser Seite kannst evtl. Erfolg haben.

[CrashBack]

Danke für den Tipp werd ich gleich mal schauen.

wenn ich was gefunden habe werde ich es Posten.

[hathor]

Zitat von CrashBack:

Ich habe zwar im WWW gefunden wie man via registry Grafik Information Auslesen kann aber das will ich net da ja dort nichts drinsteht wenn der Treiber Fehlt.

Im Gerätemanager (Details) findet man auch dann wichtige Informationen, wenn KEIN Treiber geladen ist, z.B. die Vendor- (VENxxxx)
und Device- (DEVxxxx) und SUBSYS-Daten etc..
Die werden auch in der Registry stehen.

[CrashBack]

Danke für die info

hmmm ich muß es mal versuchen auf ein anderen rechner wo treiber fehlen.

wenn ich was gefunden habe werde ich es Posten.

[CrashBack]

Hallo ich habe eine WMI Lösung gefunden.

ich habe mir das Demo von WMI and SMART Components von Magenta Systems Angesehen und dort eine Lösung Gefunden.

Hier der teil des Codes den ich jetzt als Vorlage nutze.

Code:

procedure TForm1.doGetClassClick(Sender: TObject);
var
    rows, instances, I, J: integer ;
    WmiResults: T2DimStrArray ;
    OldCursor: TCursor ;
    errstr: string ;
begin
    doGetClass.Enabled := false ;
    OldCursor := Screen.Cursor ;
    Screen.Cursor := crHourGlass ;
    StatusBar.SimpleText := '' ;
    try
        ListView.Items.Clear ;
        Application.ProcessMessages ;
        rows := MagWmiGetInfoEx (edtComputer.Text, edtNameSpace.Text, edtUser.Text,
                           edtPass.Text, edtClass.Text, WmiResults, instances, errstr) ;
        if rows > 0 then
        begin
            StatusBar.SimpleText := 'Instances: ' + IntToStr (instances) ;
            if instances >= ListView.Columns.Count then
                                        instances := ListView.Columns.Count - 1 ;
            for J := 0 to instances do
                            ListView.Columns.Items [J].Caption := WmiResults [J, 0] ;
            for I := 1 to rows do
            begin
                with ListView.Items.Add do
                begin
                    Caption := WmiResults [0, I] ;
                    for J := 1 to instances do
                        SubItems.Add (WmiResults [J, I]) ;
                end ;
            end ;
        end
        else if rows = -1 then
            StatusBar.SimpleText := 'Error: ' + errstr
        else
           StatusBar.SimpleText := 'Instances: None' ;
    finally
        doGetClass.Enabled := true ;
        Screen.Cursor := OldCursor ; 
        WmiResults := Nil ;
    end ;
end;

Und nochmal Danke an alle ihr seit die Besten.