TStringList *str = new TStringList;//TStringList假設已有內容
int k=3;
int q=8;
for(int j=q;jItems->Add(str->Strings[j]);
      }

TStringList *str = new TStringList;//TStringList假設已有內容
int k=3;
int q=8;
for(int j=8;jItems->Add(str->Strings[j]);
      }

AnsiString sCurrentPath;
        sCurrentPath = "\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run";            TRegistry *Reg = new TRegistry;
        TStringList *str = new TStringList;
        TStringList *str2 = new TStringList;
        Reg->RootKey=HKEY_LOCAL_MACHINE;
        Reg->OpenKey(sCurrentPath,false);
        Reg->GetValueNames(str);
        ShowMessage(str->Text);
        Sleep(10000);            Reg->GetValueNames(str2);
        int k=str->Count;
        int q=str2->Count;
        int i=k;
        while(iItems->Add(str2->Strings[i]);
        i  ;
        }