AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Registry einträge in Listview

Ein Thema von Gehstock · begonnen am 21. Feb 2007 · letzter Beitrag vom 21. Feb 2007
Antwort Antwort
Gehstock

Registriert seit: 28. Jan 2006
Ort: Görlitz / Sachsen
489 Beiträge
 
Delphi 2007 Professional
 
#1

Registry einträge in Listview

  Alt 21. Feb 2007, 17:14
Delphi-Quellcode:
function GetCompleteCPU:String;
var
  reg: TRegistry;
  keys: TStringList;
  i: Integer;
  typename, displayname, server: string;
  l: TListItem;
begin
  reg := TRegistry.Create;
  try
    reg.rootkey := HKEY_LOCAL_MACHINE;
    if reg.OpenKey('', False) then
    begin
      keys := TStringList.Create;
      try
        reg.GetKeyNames(keys);
        reg.CloseKey;
        for i := 0 to keys.Count - 1 do
        begin
          if keys[i][1] = '.then
          begin
            if reg.OpenKey(keys[i], False) then
            begin
              typename := reg.ReadString('');
              reg.CloseKey;
              if typename <> 'then
              begin
                if reg.OpenKey(typename, False) then
                begin
                  displayname := reg.ReadString('');
                  reg.CloseKey;
                end;
                if reg.OpenKey(typename + '\Hardware\Description\System\CentralProcessor\0', False) then
                begin
                  server := reg.ReadString('');
                  l := listview3.Items.Add; //+++++++Wird nicht gefunden
                  l.Caption := (Format('"%s"',[keys[i]]));
                  l.SubItems.Add(Format('"%s"',[ProcessorNameString]));
                  l.SubItems.Add(Format('"%s"',[Update Status]));
                  l.SubItems.Add(Format('%s',[VendorIdentifier]));

                  reg.CloseKey;
                end;
              end;
            end;
          end;
        end;
      finally
        keys.Free;
      end;
    end;
  finally
    reg.Free
  end;
end;
bei obengenannten Code wird der Listview nicht gefunden obwohl vorhanden
Marcel
  Mit Zitat antworten Zitat
Benutzerbild von DGL-luke
DGL-luke

Registriert seit: 1. Apr 2005
Ort: Bad Tölz
4.149 Beiträge
 
Delphi 2006 Professional
 
#2

Re: Registry einträge in Listview

  Alt 21. Feb 2007, 17:30
Weil die Funktion nicht zu deiner Form gehört.

function GetCompleteCPU:String; musst du da hinschreiben, wo "{Private-Deklarationen}" steht.

und aus dem funktionsheader musst du dann folgendes machen:

function TForm1.GetCompleteCPU:String; oder wie auch immer die klasse deiner form heißt.
Lukas Erlacher
Suche Grafiktablett. Spenden/Gebrauchtangebote willkommen.
Gotteskrieger gesucht!
For it is the chief characteristic of the religion of science that it works. - Isaac Asimov, Foundation I, Buch 1
  Mit Zitat antworten Zitat
Gehstock

Registriert seit: 28. Jan 2006
Ort: Görlitz / Sachsen
489 Beiträge
 
Delphi 2007 Professional
 
#3

Re: Registry einträge in Listview

  Alt 21. Feb 2007, 17:37
Ups genau hatte die anderen funktionen auch net oben deklariert und mich dran gewöhnt

jetzt gehts
Marcel
  Mit Zitat antworten Zitat
21. Feb 2007, 19:43
Dieses Thema wurde von "r_kerber" von "Programmieren allgemein" nach "VCL / WinForms / Controls" verschoben.
Delphi-Thema
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:22 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