初始化读取INI列表到ComboBox(50)

如何读取一个指定文件夹里的所有*.ini后缀的文件到ComboBox的下拉列表？选择会自动指向那个INI文件的设置？

{或者提供相关的程序代码包下载 谢谢了}

procedure SearchFile(Path: string); var SR: TSearchRec; begin if Path[Length(Path)] <> '/' then Path := Path + '/'; if FindFirst(Path + '*.ini', faAnyFile, SR) = 0 then begin repeat if (SR.Name <> '.') and (SR.Name <> '..') then ComboBox1.Items.Add(SR.Name); until FindNext(SR) <> 0; end; FindClose(SR); end;

接受答案了.