TDirectory.GetDirectoryRoot获取指定目录的根目录

使用函数：

　　System.IOUtils.TDirectory.GetDirectoryRoot

函数定义：　

class function GetDirectoryRoot(const Path: string): string; static;

说明： 传入一个指定目录，返回根目录，两者都是字符串类型

异常处理：目录无效或目录不存在

注：传入任意合法文件名，返回当前程序运行目录的根目录

示例：

begin
    // 取给定路径根目录..
    try
        ShowMessage(TDirectory.GetDirectoryRoot(Edit1.Text));
    except
        //所有可能发生的不正常情况交给异常处理
        on e1: Exception do
        begin
            MessageDlg(e1.ClassName + ' : ' + e1.Message, mtError, [mbok], );
            Exit;
        end;
    end;
end;