реестр

[arxidevill]

сделал запись в реестр
procedure TForm1.BitBtn1Click(Sender: TObject);
var
h : TRegistry; // Переменная для занесения программы в реестр
begin
h := TRegistry.Create; // Заносим программу в автозагрузку реестра
h.RootKey:=HKEY_CURRENT_USER;
h.OpenKey('Software\Microsoft\Windo ws\CurrentVersion\Run',true);
h.WriteString('nameprog',Applicatio n.ExeName);//nameprog - название программы которую нужно добавить в автозагрузку
h.CloseKey;
h.Free;
end;
и проверку
а можно ли сделать отображение содержимого реестра Software\Microsoft\Windows\CurrentV ersion\Run ?
пробывал поместить в мемо ....но только сделал вывод названия пути , тойсть "Software\Microsoft\Windows\Current Version\Run"
а как вывести не знаю

[Виталий Желтяков]

Насколько Я понял, надо:
- Тоже самое, но вместо WriteString испоьзовать ReadString.

[arxidevill]

не....я хочу вывести все что есть в в Run

[W0LF]

uses
  Registry;

var
  Reg: TRegistry;
  Count: Integer;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKeyReadOnly('\Software\Microsoft\Windows\CurrentVersion\Run');
  Reg.GetValueNames(Memo1.Lines);
  for Count := 0 to Memo1.Lines.Count -1 do
    Memo1.Lines.Strings[Count] := Memo1.Lines.Strings[Count] + '   :   '
                                              + Reg.ReadString(Memo1.Lines.Strings[Count]);
  Reg.Free;
end;

[arxidevill]

W0LF, а можно сделать его таблицей через стринг грид или как-то по другому...