Unicode対応ChDir

interface

function ChDirW(sDir: WideString): Boolean;


implementation
uses
  Windows;


function ChDirW(sDir: WideString): Boolean;
//カレントディレクトリをsDirにセットし、成功ならTrueを失敗ならFalseを返す。
begin
  Result := SetCurrentDirectoryW(PWideChar(sDir));
end;