Forum: Programmieren allgemein
by S4SH1981,
6. Mai 2009
Schonmal Danke für deine Hilfe scrat.
Aber mein Problem ist mit deinen beiden Tipps nicht wie erwünscht gelöst.
Diese beiden Artikel habe ich auch schon gefunden.
Ich möchte nur die Namen der Unterordner auflisten, die Dateien die da drin sind, sind mir relativ egal.
Forum: Programmieren allgemein
by S4SH1981,
6. Mai 2009
Hallo zusammen,
ich lese mit folgendem Code das Arbeitsverzeichnis meines Programmes aus.
function GetApplicationDirectory: string;
begin
Result := ExtractFilePath(ParamStr(0));
end;
procedure TForm2.FormShow(Sender: TObject);