в чем проблема?

[Exploit]

Ребят подскажите что не правельно делаю? пытаюсь вывести в listbox список установленный программ из реестра!

 
unit uRegnew;
interface
uses
  SysUtils, Classes, Controls, windows, ExtCtrls, Graphics, Forms,
  StdCtrls, Registry, Dialogs;


type
  TRegCom = class(TPanel)
  private
    edKey, edValue : TEdit;
    btRead, btWrite : TButton;
    listbox1 : TListBox;
    cb : TComboBox;
    Reg:Tregistry;
    fRootKey : string;
    //function ReadStr(Aroot, ) : boolean;
  protected
    
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    Property RootKey : string read  fRootKey write fRootKey;
  end;

var reg:TRegistry;
P: TStringList;i:byte;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [TRegCom]);
end;
 
constructor TRegCom.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Parent := TWinControl(AOwner);
  Reg:=TRegistry.create;
  Width := 210;
  Height := 100;


  edKey := TEdit.Create(self);
  edKey.Left := 5;
  edKey.Top := 5;
  edKey.Parent := self;


  listbox1 := TListbox.Create(self);
  listbox1.Left := 5;
  listbox1.Top := 105;
  listbox1.Width := 150
  listbox1.Height :=80
  listbox1.Parent := self;

  edValue := TEdit.Create(self);
  edValue.Left := 5;
  edValue.Top := 35;
  edValue.Parent := self;

end;
procedure Scan;
begin

reg:=TRegistry.Create;
p:=TStringList.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;

if reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall',false) then
reg.GetKeyNames(p);
reg.Free;

if p.Count>0 then
for i := 0 to p.Count-1 do
begin
reg:=TRegistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
  if  reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\'+p[i],false) then
     if reg.ValueExists('DisplayName') then
       if reg.ValueExists('UninstallString') then
         uRegnew.ListBox1.Items.Add(reg.ReadString('DisplayName'));

reg.Free;
end;

end;

destructor TRegCom.Destroy;
begin
  Reg.Destroy;
  inherited Destroy;
end;
end.

[Stilet]

Сама процедура вывода в ЛистБокс работает нормально, только твой код я не пойму, это компонент или форма?

[Exploit]

это компанент!

[Stilet]

Ну тогда ставь его, кидай на форму и работай.
Что у тебя не правильно?

[Exploit]

он у меня ругается на ListBox1! глянь сам!

[Stilet]

Правильно ругается
В listbox1.Width := 150 ты точку-запятую провтыкал.
А Scan у тебя нигде не определен.
Поставь эту процедуру методом

Добавь в public

procedure Scan;

и пиши так:

procedure TRegCom.Scan;

и

ListBox1.Items.Add(reg.ReadString('DisplayName'));

[Exploit]

Странно! ошибок нету а список в Listbox не выводит! че может быть?

unit uRegnew;
interface
uses
  SysUtils, Classes, Controls, windows, ExtCtrls, Graphics, Forms,
  StdCtrls, Registry, Dialogs;


type
  TRegCom = class(TPanel)
  private
   // edKey, edValue : TEdit;
  //  btRead, btWrite : TButton;
    listbox1 : TListBox;
    Scan_button: TButton;
    cb : TComboBox;
    Reg:Tregistry;
    fRootKey : string;
   // procedure Scan_buttonClick(Sender: TObject);
    //function ReadStr(Aroot, ) : boolean;
  protected
    
  public
    constructor Create(AOwner: TComponent); override;
    //destructor Destroy;
     //override;
    Property RootKey : string read  fRootKey write fRootKey;
   //procedure Scan_buttonClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  //  procedure Scan;
  end;

var reg:TRegistry;
P: TStringList;i:byte;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [TRegCom]);
end;
 
constructor TRegCom.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Parent := TWinControl(AOwner);
  Reg:=TRegistry.create;
  Width := 210;
  Height := 100;

  
  Scan_button := TButton.Create(self);
  Scan_button.Left := 5;
  Scan_button.Top := 5;
  Scan_button.Parent := self;


  listbox1 := TListbox.Create(self);
  listbox1.Left := 5;
  listbox1.Top := 105;
  listbox1.Width := 650;
  listbox1.Height :=380;
  listbox1.Parent := self;

end;
procedure TRegCom.Button1Click(Sender: TObject);
begin
listbox1.Clear;
reg:=TRegistry.Create;
p:=TStringList.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;

if reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall',false) then
reg.GetKeyNames(p);
reg.Free;

if p.Count>0 then
for i := 0 to p.Count-1 do
begin
reg:=TRegistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
  if  reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\'+p[i],false) then
     if reg.ValueExists('DisplayName') then
       if reg.ValueExists('UninstallString') then
       ListBox1.Items.Add(reg.ReadString('DisplayName'));
reg.Free;
end;
end;
end.

[Stilet]

Во-первых: У тебя обработчик клика по кнопке к ней не подключен.
Во-вторых: ЛистБокс просто напросто невидим.Координата его Left выходит за пределы твоей рамки. Поставь в нее 10
В-третьих: Может лучше фрейм вместо компонента?

[Exploit]

а как к кнопке подключить? мне нужен именно компанент!

[Exploit]

апну темку!