» Delphi » オブジェクト指向・コンポーネント開発 » uIOUtilsEx (ファイル操作をちょっと便利に)Delphi Forum | Borland / Inprise / CodeGear / Embarcadero Delphi や C++Builder に関する情報交換の場です。ハンドル名で投稿できます。

ゲスト
ようこそゲストさん。このフォーラムに投稿するには登録が必要です。ユーザ名: パスワード: ログイン情報を保存

Forum » Delphi » オブジェクト指向・コンポーネント開発 » uIOUtilsEx (ファイル操作をちょっと便利に)

ページ: [1]

	トピック: uIOUtilsEx (ファイル操作をちょっと便利に)

DEKO

管理者
投稿数: 2691

uIOUtilsEx (ファイル操作をちょっと便利に)
on: 2014/04/23 20:33 Wed

「TFile / TDirectory / TPath にもう少し機能が欲しい」という事で、SHFileOperation() を置き換えられるような機能を追加した uIOUtilsEx.pas を作りました。使い方は Delphi ユーザなら解るでしょう (詳細はコメントに書いてあります)。ヘッダだけ貼っておきます。

type
  TDriveEx = record
  public
    class function DefineLocalDevice(const DeviceName: string;
      const TargetPath: string): Boolean; static;
    class function UndefLocalDevice(const DeviceName: string;
      const TargetPath: string = ''): Boolean; static;
    class function DefineRemoteDevice(const DeviceName: string;
      const TargetPath: string; const Username: string = '';
      const Password: string = ''; const Persistent: Boolean = False): Boolean; static;
    class function UndefRemoteDevice(const DeviceName: string;
      const TargetPath: string = ''): Boolean; static;
  end;

  TDirectoryEx = record
  public
    class procedure Copy(const SourceDirName, DestDirName: string;
      Persistent: Boolean = False); static;
    class procedure Delete(const Path: string; const Recursive: Boolean = True;
      Persistent: Boolean = False); static;
    class procedure Move(const SourceDirName, DestDirName: string;
      Persistent: Boolean = False); static;
  end;

  TFileEx = record
  public
    class procedure Copy(const SourceFileName, DestFileName: string;
        const Overwrite: Boolean = True); overload; static;
    class procedure CopyFiles(const SrcDir, SearchPattern, DstDir: string;
      const Recursive: Boolean = False); static;
    class procedure Delete(const FileName: string); static;
    class procedure DeleteFiles(const Dir, SearchPattern: string;
      const Recursive: Boolean = False); static;
    class function GetSize(const iFileName: string): Int64; static;
    class procedure Move(SourceFileName, DestFileName: string); static;
    class procedure MoveFiles(const SrcDir, SearchPattern, DstDir: string;
      const Recursive: Boolean = False); static;
  end;

  TPathEx = record
  private
    const
      UNC_PREFIX          = '\\';
      EXTENDED_PREFIX     = UNC_PREFIX + '?\';
      EXTENDED_UNC_PREFIX = EXTENDED_PREFIX + 'UNC\';
  private
    class function PathDelimCount(const Path: string): Integer; static;
  public
    class function Combine(const Paths: array of string): string; static;
    class function GetExtendedPath(const Path: string): string; static;
    class function GetParentDir(const Path: string): string; static;
    class function GetParentPath(const Path: string): string; static;
    class function GetPathDepth(const Path: string): Integer; static;
    class function GetReducedPath(const Path: string): string; static;
    class function GetSubPath(const Path: string): string; static;
    class function IsBasePath(const BasePath, Path: string): Boolean; static;
    class function IsExtendedPath(const Path: string): Boolean; static;
    class function IsExtendedUNCPath(const Path: string): Boolean; static;
    class function IsRemotePath(const Path: string): Boolean; static;
    class function IsRootPath(const Path: string): Boolean; static;
    class function IsTrailingPathDelimiter(const Path: string): Boolean; static;
  end;