Thx, waren ein paar gute Tipps dabei, und sorry für die Mühe mit dem Typo bei C-Doppelpunkt-Backslash bzw. C-Backslash-Doppelpunkt. Hab mich echt vertan
Aber trotzdem:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var dat: tsearchrec;
begin
SetCurrentDir('c:\');
FindFirst('*.*', faanyfile, dat);
Caption := dat.name;
end;
Lifert im Gegensatz zu jedem andern Verzweichnis nicht '.' zurück. Obwohl doch auch im Hauptverzeichnis das aktuelle Verzeichnis mit '.' bezeichnet sein müsste...