☆ファイルの所属するフォルダ名を取得

ファイルが所属するフォルダ名を取得する処理です。
例えば、『C:\Program Files\CodeGear\RAD Studio\5.0\bin\bds.exe』の場合、『bin』を取得します。 当初、ExtractFilePathでパスを取得して文字列を分解していましたが、次のような処理で簡単にできました。
procedure TForm1.Button1Click(Sender: TObject);
var
  S: String;
begin
  if OpenDialog1.Execute then
  begin
    S := OpenDialog1.FileName;
    ShowMessage(ExtractFileName(ExtractFileDir(S)));
  end;
end;

※ExtractFilePathではなくExtractFileDirを使うのがポイントです。

|

☆パスの一部を省略してファイル名を表示する。

MinimizeName関数を使います。

uses FileCtrl;

procedure TForm1.Button1Click(Sender: TObject);
const
  FileName = 'C:\Documents and Settings\hiderin\デスクトップ\delphi-fan.txt';
begin
  Edit1.Text := MinimizeName(FileName, Canvas, 200);
end;

こんな風に加工されます。
C:\Documents and Settings\hiderin\デスクトップ\delphi-fan.txt
  ↓
C:\...\hiderin\デスクトップ\delphi-fan.txt

メニューで「最近使ったファイルを表示する」等の用途に使えそうですね。

|

その他のカテゴリー

ADO | ADT | API | ArrayList | ASP.NET | BDE | BDP.NET | BdpConnection | Borland Developer Studio 2006 | CAPICOM | class | ClipBoard | CodeEditor | Convert.ToString | Custom component | DBExpress | Delphi 2005 | Delphi 2006 | Delphi 2007 | Delphi XE2 | Delphi7 | Delphi8 | Device Driver | Dialog | Docking | DocuWorks | Docuworks SDK | Drag&Drop | Evernote | EXCEL | Firebird | FireMonkey | Game | General | Generics | Google Earth COM API | Google Maps | Google SketchUp | Graphic | IDE | Imm | Indy | InstallAware Express6 | InterBase Admin | JWW | Microsoft SQL Server | MyBase | OnMouseDown | Oracle XE | Paradox | PreviewHandler | PrintDialog | PrintPreviewDialog | PropertyGrid | PSDファイル | Ribbon Controls | RichTextBox | Servers | SubClass | TAction | TActionList | TAnimate | TButton | TCategoryButtons | TClientDataSet | TComboBox | TComboBoxEx | TCustomEdit | TDBGrid | TDockTabSet | TDrawGrid | TEdit | TExcelApplication | TFont | TForm | third party | TImage | TLabel | TList | TListBox | TListView | TMemo | TOpenDialog | TOutlookApplication | TPageControl | TPanel | TRichEdit | TShellResources | TStringGrid | TTabControl | TToolBar | TToolButton | TTreeView | TWebBrowser | Update | VCL Styles | WinInet | XE2 | XPman | オープン配列パラメータ | グループ化 | トランスレーションマネージャー | ファイル処理 | ファイル名処理 | 動的配列 | 投票 | 文字列処理 | 日本語入力 | 暗号 | | 音声合成利用