ファイル名を 8.3形式に変換する

ファイル名を 8.3形式にするには ExtractShortPathName 関数を使います。この関数は渡されたファイル名が存在しない場合は空白を返します。

■ ファイル名を 8.3 形式に変換する例

procedure TForm1.Button2Click(Sender: TObject); begin if OpenDialog1.Execute then begin Label1.Caption := ExtractShortPathName(OpenDialog1.FileName); end; end;