255文字以上のパスを再帰的に読み込み、ファイルの属性を読み取る方法は？

Question

デルファイ：255文字以上のパスを再帰してファイルの属性を読み取る方法

私はコンソールアプリケーションを作成しており、255文字を超えるパスを持つディレクトリ構造をトラバースし、その中のファイルの属性を読み取る必要があります。

歴史的に、2006年からTurbo Delphiを使用して再帰とFindFirstを使用しましたが、これは255文字を超えるパスをスキップするようです。

FindFirst（）関数を別のものに置き換えることはできますか？または私は別のアプローチをとらなければならないのですか？

Answer 1

ファイル名に接頭辞\\?\を付けると、拡張長パス解析が有効になり、260文字のパス長の制限からエスケープされます。

このプレフィックスを機能させるには、Win32 API関数のUnicodeバージョンを呼び出す必要があります。したがって、Unicode Delphiを使用していた場合、これだけで必要です。しかし、Unicode以前のDelphiを使用しているので、独自のバージョンのFindFirstをロールバックして、UnicodeバージョンのAPI関数を呼び出す必要があります。 FindFirstFileW、FindNextFileW、FindClose、Unicode版の構造体WIN32_FIND_DATAWを使用します。

これらの問題については、MSDNのNaming Files, Paths, and Namespacesを参照してください。あなたの特定のシナリオで

、FindFirstFileWのドキュメントは、このような問題を呼び出します。この関数のANSI版で

、名前がMAX_PATH文字に制限されています。この制限を32,767ワイド文字に拡張するには、関数のUnicodeバージョンを呼び出して、パスに "\？\"を追加します。

WIN32_FIND_DATAWの2つのファイル名フィールドの長さは260文字に制限されています。それは名前の相対部分だけを含んでいるので、それはうまくいきます。これは、オブジェクトを含むディレクトリに関連するオブジェクト名です。 FindFirstFileWに電話するときは、接頭辞\\?\を使用する必要があります。あなたがFindFirstFileWのlpFileNameパラメータにWideStringを使用してPWideChar(FileName)を使用してそれを渡します。このAPIのUnicodeバージョンを使用するためには

。ファイルの属性については

var 
    FileName: WideString; 
.... 
// initialise FileName, this will happen in your recursion 
FindHandle := FindFirstFileW(PWideChar(FileName), FindData); 

、彼らはそれぞれの反復にWIN32_FIND_DATAW構造体の読み出すことができます。コードのその部分は変更する必要はありません。修正する必要があるのは、最初の呼び出しで> 260文字の解析をFindFirstFileWにすることだけです。それ以外のものは全く正常に流れます。