Moin,
nicht Delphi, aber Windows bringt die gesuchte Funktion bereits mit:
Delphi-Quellcode:
const
shlwapi = 'shlwapi.dll';
function PathIsDirectoryEmpty(pszPath: PAnsiChar): BOOL; stdcall;
external shlwapi name 'PathIsDirectoryEmptyA';
procedure TDemoForm.ButtonClick(Sender: TObject);
var
isEmpty: Boolean;
begin
isEmpty := PathIsDirectoryEmpty(PChar(Edit.Text));
ShowMessage(BoolToStr(isEmpty, True));
end;
Da auch nicht existierende Verzeichnisse als "nicht leer" ausgewiesen werden, wird man wohl in der Regel zusätzlich SysUtils.DirectoryExists() einsetzen.
Grüße vom marabu