tntsysutils.pas

Universal Viewer Universal Viewer(ATViewer)是一款支持广泛的文件格式的文件浏览器.该软件集成于已经安装到你的计算机上的大多数现有的浏览器,并且允许你为任何

unit TntSysUtils;

interface

function WideExtractFileName(const FN: WideString): WideString;
function WideExtractFileDir(const FN: WideString): WideString;
function WideExtractFileExt(const FN: WideString): WideString;
function WideExtractFileDrive(const FN: WideString): WideString;
function WideChangeFileExt(const FN, Ext: WideString): WideString;


implementation

uses
  SysUtils;

function WideExtractFileName(const FN: WideString): WideString;
begin
  Result := ExtractFileName(FN);
end;

function WideExtractFileDir(const FN: WideString): WideString;
begin
  Result := ExtractFileDir(FN);
end;

function WideExtractFileExt(const FN: WideString): WideString;
begin
  Result := ExtractFileExt(FN);
end;

function WideExtractFileDrive(const FN: WideString): WideString;
begin
  Result := ExtractFileDrive(FN);
end;

function WideCreateDir(const FN: WideString): Boolean;
begin
  Result := CreateDir(FN);
end;

function WideChangeFileExt(const FN, Ext: WideString): WideString;
begin
  Result := ChangeFileExt(FN, Ext);
end;

function WideDirectoryExists(const FN: WideString): Boolean;
begin
  Result := DirectoryExists(FN);
end;

function Tnt_WideLowerCase(const S: WideString): WideString;
begin
  Result := WideLowerCase(S);
end;

function Tnt_WideUpperCase(const S: WideString): WideString;
begin
  Result := WideUpperCase(S);
end;

function WideIncludeTrailingBackslash(const S: WideString): WideString;
begin
  Result := IncludeTrailingBackslash(S);
end;



end.