Hallo zusammen,
ich lese mit folgendem Code das Arbeitsverzeichnis meines Programmes aus.
Delphi-Quellcode:
function GetApplicationDirectory: string;
begin
Result := ExtractFilePath(ParamStr(0));
end;
procedure TForm2.FormShow(Sender: TObject);
begin
getapplicationdirectory;
shelltreeview1.Root := getapplicationdirectory;
end;
In diesem Ordner befinden sich dazu noch Unterordner.
Ich möchte jetzt nun in einer Combobox die Unterordner auslesen, weiß aber nicht wie ich das simpel anstelle.
Bitte daher um eure Hilfe.
Gruß S4SH