| ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
[新規作成] [最新の情報に更新]
|
|
|
|
|
|
Delphi Tips
0068 D1 D2 D3 D4 D5 D6 D7 3.1 95 98 作成： 1999/02/08 osamu rev 1.2 B1 B3 B4 B5 B6 B7 NT3 NT4 2K XP 更新： 1999/09/22 osamu 編集
長いファイル名を短いファイル名に変換したい
GetShortPathName APIを使いましょう。
function LongToShortFileName(Const LongName: String):String;
var
Len: integer;
begin
Len := GetShortPathName(PChar(LongName), PChar(result), 0);
SetLength(result, len);
if GetShortPathName(PChar(LongName), PChar(result), Len) = 0 then
Raise EConvertError.Create('ファイルが見つかりません。');
end;
ファイルが実在しないと例外が発生します。
逆に、短いファイル名を長いファイル名にするには [Tips:233] を見てください。
参照： [builder:5092] [Tips:233] <Windows> <ファイル>
[新規作成] [最新の情報に更新]
How To
Lounge
KeyWords
Osamu Takeuchi osamu@big.or.jp
Tips
Delphi
Home