DirectoryExistsが全てTrueを返してしまう (ID:44223)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 DirectoryExists の LastError := GetLastError; で LastError に ERROR_ACCESS_DENIED が返って来るけど Result := (LastError <> ERROR_FILE_NOT_FOUND) and (LastError <> ERROR_PATH_NOT_FOUND) and (LastError <> ERROR_INVALID_NAME) and (LastError <> ERROR_BAD_NETPATH); にないから and (LastError <> ERROR_ACCESS_DENIED) を追加すれば OK