Unicode対応FileGetAttr

interface
function FileGetAttrW(const sFile: WideString): Integer;
function gfniFileAttrGet(sFile: WideString; bFileOnly: Boolean): Integer; overload;

const
  FILE_ATTRIBUTE_ENCRYPTED     = $00000040;
  FILE_ATTRIBUTE_SPARSE_FILE   = $00000200;
  FILE_ATTRIBUTE_REPARSE_POINT = $00000400;


implementation
uses
  Windows;


function FileGetAttrW(const sFile: WideString): Integer;
//sFileのファイル属性を返す。
begin
  Result := Integer(GetFileAttributesW(PWideChar(sFile)));
end;

function gfniFileAttrGet(sFile: WideString; bFileOnly: Boolean): Integer; overload;
{
sFileのファイル属性を返す。
ドライブ名のみは無効(-1を返す)。
bFileOnlyがTrueならディレクトリは無視。
}
var
  lh_Handle: THandle;
  lr_Info:   TWin32FindDataW;
  li_Len:    Integer;
begin
  Result := -1;

  //末尾が'\'だとエラーになるので削除
  if (sFile <> '') then begin
    li_Len := Length(sFile);
    if (sFile[li_Len] = '\') then begin
      SetLength(sFile, li_Len -1);
    end;
  end;

  FillChar(lr_Info, SizeOf(TWin32FindDataW), 0);
  lh_Handle:= FindFirstFileW(PWideChar(sFile), lr_Info);
  try
    if (lh_Handle<> INVALID_HANDLE_VALUE) then begin
      repeat
        if  (WideString(lr_Info.cFileName) <> '.')
        and (WideString(lr_Info.cFileName) <> '..')
        then begin
          if (bFileOnly = False)
          or ((bFileOnly) and ((lr_Info.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = 0))
          then begin
            //bFileOnlyがFalse（ディレクトリも候補に含む）
            //または bFileOnlyがTrueでかつディレクトリではななかった
            Result := Integer(lr_Info.dwFileAttributes);
            Break;
          end;
        end;
      until not(FindNextFileW(lh_Handle, lr_Info));
    end;
  finally
    Windows.FindClose(lh_Handle);
  end;
end;

function gfniFileAttrGet(sFile: WideString): Integer; overload;
begin
  Result := gfniFileAttrGet(sFile, False);
end;