kleiner Mediaplayer für eine Webcam

[DGL-luke]

ich repetiere noch einmal dein problem:

du hast eine Combobox und eine ListBox. wird in der Combobox ein verzeichnis ausgewählt, so willst du den inhalt desselben in der Listbox anzeigen lassen.

1. wenn in der combobox keine pfadangaben sondern nur beliebiege angaben stehen:

Delphi-Quellcode:

const 
 directories: array[0..2] of string
 ('C:\','D:\Webcam\','E:\woanders\');

so bekommst du nun im CBDirectories.OnChange mit directories[(sender as TCombobox).ItemIndex] dein Verzeichnis

2. um die Dateien aufzulisten:

Delphi-Quellcode:

function getSubDirs(path:string):TStrings;
var srec:TSearchrec;
begin
result:=TStirngList.create;

findfirst(path+'*.*',faDirectory,srec); //liefert'.';
findnext(srec); // liefert '.'

while findnext(srec) do
 if (srec.Attr and faDirectory) <> 0 then
  result.add(srec.Name);
findclose(srec);
end;

sonst noch was?
wenn du "abtauchen" willst, musst du rekursiv vorgehen, sprich für jedes gefundene verzeichnis noch einmal getSubDirs aufrufen, und die stringlist an die vorhandene anhängen.