Ich brauch noch mal Hilfe ...
Hab das jetzt geschaft ... aber ich schaff es nur in ein Memo auszugeben. Ich möchte aber gern das ausgelesene in ein TListView darstellen ...
Aber ich weiss nicht genau wie ich das realisieren soll :|
hier der Code mit vielen fehlern...
Delphi-Quellcode:
.......
var
Form3: TForm3;
reg: TRegistry;
ValueList: array[1..100] of String;
ListItem: TListItem;
i: Integer;
implementation
{$R *.dfm}
procedure TForm3.Button1Click(Sender: TObject);
begin
reg:=TRegistry.Create;
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', False);
reg.GetValueNames(ValueList);
ListView1.Items.BeginUpdate;
for i := 0 to 100 do begin
ListItem := ListView1.Items.add;
ListItem.Caption := ValueList[i]
end;
ListView1.Items.EndUpdate;
reg.CloseKey;
reg.free;
Button1.Caption:='Gelesen';
Button1.Enabled:=false;
end;
end.
Hoffe mir kann jemand helfen :(