Unicode対応CreateDir

interface

function CreateDirW(sDir: WideString): Boolean;


implementation
uses
  Windows;


function CreateDirW(sDir: WideString): Boolean;
//ディレクトリ作成
var
  li_ErrMode: UINT;
begin
  //書込み禁止ディスクのときのエラー回避
  li_ErrMode := SetErrorMode(SEM_FAILCRITICALERRORS);
  Result := CreateDirectoryW(PWideChar(sDir), nil);
  SetErrorMode(li_ErrMode);
end;