Список автозагрузки в delphi

[asp1k]

Как можно получить список авто загружаемых программ
HKEY_CURRENT_USER\Software\Microsof t\Windows\CurrentVersion\Run
Пробовал...получалось только получать список под папок...
Кто может подсказать как получить именно значения и записать их в листбокс..

procedure TForm1.Button1Click(Sender: TObject);
 var
  MyKey	: HKey;	{ Handle для работы с разделом }
  Buffer	: array[0..1000] of char; { Буфер }
  Err, { Код ошибки }
 index	: longint; { Индекс подраздела }
 begin
  Err:=RegOpenKey(HKEY_CURRENT_USER,'Software\Microsoft\Windows\CurrentVersion\',MyKey); { Открыли раздел }
  if Err<> ERROR_SUCCESS then 
   begin
     MessageDlg('Нет такого раздела !!',mtError,[mbOk],0);
     exit;
   end;
  index:=0;
  {Определили имя первого подраздела }
  Err:=RegEnumKey(MyKey,index,Buffer,Sizeof(Buffer)); 
  while err=ERROR_SUCCESS do { Цикл, пока есть подразделы }
   begin
     memo1.lines.add(StrPas(Buffer)); { Добавим имя подраздела в список }
     inc(index); { Увеличим номер подраздела }
     Err:=RegEnumKey(MyKey,index,Buffer,Sizeof(Buffer)); { Запрос }
   end;
  RegCloseKey(MyKey); { Закрыли подраздел }
 end;

[Человек_Борща]

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  reg: TRegistry;
  ts: TStringList;
begin
  //Обьекты реестра и списка
  Reg := TRegistry.Create;
  ts := TStringList.Create;
  //ветвь которую смотрим
  reg.RootKey := HKEY_CURRENT_USER;
  try
    //читаем ключ
    if Reg.OpenKeyReadOnly('Software\Microsoft\Windows\CurrentVersion\Run\') then
    begin
      //получаем список переменных содержщихся в ветви
      reg.GetValueNames(ts);
      for i := 0 to ts.Count - 1 do
      begin
        //если переменная существует
        if Reg.ValueExists(ts.Strings[i]) then
        begin
          //грузим её значение
          ListBox1.Items.Add(reg.ReadString(ts.Strings[i]));
        end;
      end;
    end;
  finally
    //отваливаем
    reg.Free;
    ts.Free;
  end;
end;

в обычном делфи это так=)

А на WinAPI'ях как-то по другому. Думаю Открыть класс TRegistry не помошает. Там сразу всё получишь.

P.S. ты получаешь список под-папок потому что:

  Err:=RegOpenKey(HKEY_CURRENT_USER,'Software\Microsoft\Windows\CurrentVersion\Run\',MyKey); { Открыли раздел }

Что-то забыл=)

и в твоём случае Values для CurrentVersion каталога, являются подкаталоги.


Чуть чуть подправил..

[asp1k]

Спасибо) Работает!