какие программы в автозапуске

[hacknet]

привет всем! как узнать какие программы в авто-запуске и вывести их в memo?

[FaTaL]

Проверь ветки реестра где находиться автозапуск и папку автозагрузка в меню пуск и всё. Что не получается то у Вас?

[Hacker19_90]

реестр почитать!
Не?

[FaTaL]

Сообщение от Hacker19_90

реестр почитать!
Не?

А как по другому то? Предложи.

[hacknet]

мне любой способ нужен, если не трудно можно код привести?

[FaTaL]

За Вас что всю программу писать?
Пишите что именно у Вас не получается, а мы подскажем и поможем.
Вы работали с реестром хоть раз?

[hacknet]

нет не работал, даже не имею представления с чего начать!
нашел, при нажатии кнопки выдаёт ошибку, подскажите в чем дело?

procedure TForm1.Button1Click(Sender: TObject);
var
MyList: TStringList;
MyRegistry: TRegistry;
i: Integer;
Str: string;

begin
MyRegistry:=TRegistry.Create;
MyList:=TStringList.Create;
with MyRegistry do
begin
RootKey:=HKEY_LOCAL_MACHINE;
if OpenKey('Software\Microsoft\Windows\CurrentVersion\Uninstall',
False)=True then GetKeyNames(MyList);
CloseKey; for i:=0 to MyList.Count-1 do
begin
RootKey:=HKEY_LOCAL_MACHINE;
OpenKey('Software\Microsoft\Windows\CurrentVersion\Uninstall\'+
MyList[i], False);
Str:=ReadString('DisplayName');
if Str<>'' then
Memo1.Lines.Add(ReadString('DisplayName'));
CloseKey;
MyRegistry.free;
end;
end;
end;

[Shouldercannon]

uses
Registry
...
procedure TForm1.Button1Click(Sender: TObject);
var
  MyList: TStringList;
  MyRegistry: TRegistry;
  i: Integer;
  Str: string;
begin
  Memo1.Clear;

  MyRegistry := TRegistry.Create;
  MyList := TStringList.Create;

  with MyRegistry do
  begin
    RootKey := HKEY_LOCAL_MACHINE;
    if OpenKey('Software\Microsoft\Windows\CurrentVersion\Uninstall', False) = True then GetKeyNames(MyList);
    CloseKey;

    for i := 0 to MyList.Count - 1 do
    begin
      RootKey := HKEY_LOCAL_MACHINE;
      OpenKey('Software\Microsoft\Windows\CurrentVersion\Uninstall\' + MyList[i], False);
      Str := ReadString('DisplayName');
      if Str <> '' then Memo1.Lines.Add(ReadString('DisplayName'));
      CloseKey;
    end;
  end;

  MyRegistry.Free;
  MyList.Free;
end;

Не забудь на форму TMemo1 кинуть. Вывод всех устанвленных программ на ПК в текущей ОС.
Ошибка была из-за того, что в while высвобождался MyRegistry и в этот же while снова шло обращение к MyRegistry.

Вывод автозагрузки

procedure TForm1.Button2Click(Sender: TObject);
var
  reg: TRegistry;
  i: Integer;
  Value: TStringList;
  ListItem: TListItem;
begin
  ListView1.Items.Clear;

  reg := TRegistry.Create;
  Value := TStringList.Create;

  reg.RootKey := HKEY_LOCAL_MACHINE;
  reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', False);
  reg.GetValueNames(Value);

  for i := 0 to Value.Count - 1 do
  with ListView1 do
  begin
    ListItem := Items.Add;
    ListItem.Caption := Value.Strings[i];
    ListItem.SubItems.Add(reg.ReadString(Value.Strings[i]));
  end;

  reg.Free;
  Value.Free;
end;

[FaTaL]

Удивляют меня не люди, которые Хочу написать то, не зная что!
Изучил бы сначала винду (где хранятся ссылки на программы для автозапуска) потом прочитал бы про работу с реестром в Delphi и т.д. Не уж то Вам легче взять непонятный код и не знаю что он делает вставить его в свою программу?

[hacknet]

вы так то серьёзно учите людей!спасибо, чтобы нормально изучать нужен, хороший интернет, у меня такого нет!

а можно но ли вывести пути установленных программ?

Вывод всех устанвленных программ на ПК в текущей ОС.

p.s проблема, при каждом запуске виндовс, вылазиет окно с удалением программы Quicken 2005 может кто знает, через панель удалил, почистил unistool, в итоге не фига, при помощи делфи увидел что в установленных программах есть Quicken но удалить не знаю как!

а отключение, из автозапуска можно сделать?