HKEY_CURRENT_USER 의 서브 키를 리스트 박스에 나타내려 하는데..
procedure TForm1.FormCreate(Sender: TObject);
begin
Reg := TRegistry.Create; // Reg:TRegistry 로 전역선언.
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Str:TStringList;
begin
Str := TStringList.Create;
Reg.RootKey := HKEY_CURRENT_USER;
Reg.GetKeyNames(Str);
for i:=0 to str.count-1 do
listbox1.items.add(Str.Strings[I]);
end;
> Reg.GetKeyNames(Str); 전에 넣어보세요.
Help 로 자세한 설명을 보시구요...
[초보예요] wrote:
> HKEY_CURRENT_USER 의 서브 키를 리스트 박스에 나타내려 하는데..
>
> procedure TForm1.FormCreate(Sender: TObject);
> begin
> Reg := TRegistry.Create; // Reg:TRegistry 로 전역선언.
> end;
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> Str:TStringList;
> begin
> Str := TStringList.Create;
> Reg.RootKey := HKEY_CURRENT_USER;
> Reg.GetKeyNames(Str);
> for i:=0 to str.count-1 do
> listbox1.items.add(Str.Strings[I]);
> end;
>