掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ショートカットの情報取得するには？ (ID:18471)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
>変換してたけど、このやり方だとパスを一つ一つ分割してからの処理で >面倒なんですよね。 でもこれしかないようです．私が取得した情報では． //============================================================================= // 短いファイル名を長いファイル名に変換する関数 // 途中のディレクトリ名が短い場合を考慮して再帰処理 //============================================================================= function TForm1.ShortToLong(ShortName: String): String; var S : TSearchRec; FileDir : String; FileName : String; begin FileDir := ExtractFileDir(ShortName); FileName := ExtractFileName(ShortName); if Length(FileName)=0 then begin Result := FileDir; exit; end; FileDir :=ShortToLong(FileDir); FileDir :=IncludeTrailingBackslash(FileDir); try if FindFirst(FileDir+FileName,faAnyFile,S)<>0 then begin Result := ShortName end else begin Result :=FileDir+S.Name; end; finally FindClose(S); end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.