uses Windows; function ToShortFilename(const Filename: String): String; var Size: Integer; begin { Calculate buffer size } Size := GetShortPathName(PChar(Filename),nil,0); if Size = 0 then begin Result := Filename; Exit; end; { Convert to short name } SetLength(Result,Size); Size := GetShortPathName(PChar(Filename),PChar(Result),Size); SetLength(Result,Size); end;
ただし対象となるファイルが存在しないと最初のGetShortPathName呼び出しで0が返ってきて変換不能になってしまうため、注意が必要です(この例では渡されたパス名をそのまま返すようにしています)。
0 件のコメント:
コメントを投稿