[Delphi] Czy wie ktos...

czy wie ktoś jak w ComboBox1 wyświetlić zawartość jakigoś folderu. Czy to się w ogóle da?

Za odpowedzi z gory dziekuje!!

var
sr: TSearchRec;
begin
if FindFirst('c:\.', faAnyFile, sr) = 0 then
begin
repeat
if (sr.Attr and faAnyFile) = sr.Attr then
ComboBox1.Items.Add(sr.Name);
until FindNext(sr) <> 0;
FindClose(sr);
end;
end;

var
sr: TSearchRec;
begin
if FindFirst('c:*.*', faAnyFile, sr) = 0 then
begin
repeat
if (sr.Attr and faAnyFile) = sr.Attr then
ComboBox1.Items.Add(sr.Name);
until FindNext(sr) 0;
FindClose(sr);
end;
end;

A jak zrobić żeby nie było wyświetlane rozszeżenie pliku?

ComboBox1.Items.Add(copy(extractfilename(sr.Name), 1, length(extractfilename(sr.Name))-length(extractfileext(sr.Name))))

Powinno to być coś takiego :)