[AlienZ]

Есть вот такой код

Код:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Registry;

...

var
  Form11: TForm11;
  Reg:Tregistry;
  a:integer;
  b:string;

...

procedure TForm11.Button2Click(Sender: TObject);
begin
REG:= TRegistry.Create;
REG.RootKey:=a;
REG.OpenKey:=(b, FALSE);
REG.GetValueNames(ListBox1.Items);
REG.CloseKey;
REG.Destroy;
end;

procedure TForm11.Button4Click(Sender: TObject);
begin
a:=HKEY_LOCAL_MACHINE;
b:='\SOFTWARE\Microsoft\Windows\CurrentVersion\Run';
end;

end.

Запускаться - запускается, а работать не хочет... в чем косяк?

меня косит на переменную b... по моему она неправильно написана, а как правильно ее написать что-то понять не могу...

Помогите кто может!

[lmikle]

Да не. Вроде на первый взгляд все правильно. только замени REG.Destroy на REG.Free; ну и вообще, зачем на 2 части разбивать? И '\' в начале пути убери.

Код:

procedure TForm11.Button2Click(Sender: TObject);
begin
  REG:= TRegistry.Create;
  REG.RootKey:=HKEY_LOCAL_MACHINE;
  If REG.OpenKey:=('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', FALSE) Then
    Begin
      REG.GetValueNames(ListBox1.Items);
      REG.CloseKey;
   End;
  REG.Free;
end;

[s0Creator]

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

Да не. Вроде на первый взгляд все правильно. только замени REG.Destroy на REG.Free; ну и вообще, зачем на 2 части разбивать? И '\' в начале пути убери.

Код:

procedure TForm11.Button2Click(Sender: TObject);
begin
  REG:= TRegistry.Create;
  REG.RootKey:=HKEY_LOCAL_MACHINE;
  If REG.OpenKey:=('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', FALSE) Then
    Begin
      REG.GetValueNames(ListBox1.Items);
      REG.CloseKey;
   End;
  REG.Free;
end;

Код:

 If REG.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',  FALSE) Then