Коль, используя GetKeyNames чтение реестра для ListBox

////////////////////////delphi Code begin////////////////////////
Procedure Explorer;
Var
 reg               : TRegistry;
Begin
 reg := TRegistry.Create;
 With reg Do
 Begin
   Rootkey := HKEY_LOCAL_MACHINE;
   If OpenKey('\SOFTWARE\Clients', false) Then
   Begin
     GetKeyNames(Form1.ListBox1.Items);
   End;
   CloseKey;
   Destroy;
 End;
End;
////////////////////////delphi Code end////////////////////////

然后下边�KOL代码。。。
////////////////////////////KOL Code begin//////////////////////////
Procedure Explorer;
Var
 reg               : PExRegistry;
 s:Integer;
Begin
 reg := NewExRegistry;
 //s:=
 Begin
   reg.Rootkey := HKEY_LOCAL_MACHINE;
   If reg.OpenKey('\SOFTWARE\Clients', false) Then
   Begin
   reg.GetKeyNames(form1.listbox1); //пјџпјџпјџпјџпјџпјџпјџпјџпјџпјџпјџпјџпјџпјџпјџ
   End;
   reg.CloseKey;
   reg.Destroy;
 End;
End;
////////////////////////////KOL Code End//////////////////////////