関連記事
- Delphi5をWindows7 64ビット環境に突っ込んでみた 【2011年01月15日(土)】
- NET FRAMEWORKのソケット通信 【2010年11月30日(火)】
- 不具合じゃ不具合じゃ! 【2008年05月28日(水)】
- IXMLDOMNodeの検索PGサンプル 【2008年05月22日(木)】
- IXMLDOMDocumentのインスタンス 【2008年01月30日(水)】
DELPHIの古いバージョンとかで
“C:\Documents and Settings\All Users\Application Data”とか
ディスクトップのフォルダとかをいわゆるスペシャルフォルダ系を取りたいときの方法です
const CSIDL_COMMON_APDATA = $0023; function GetApplicationDataDir : string; var Pidl: PItemIDList; pMalloc : IMalloc; tmpPath: array[0..MAX_PATH-1] of Char; begin OleCheck(CoGetMalloc(1, pMalloc)); OleCheck(SHGetSpecialFolderLocation(0, CSIDL_COMMON_APDATA, Pidl)); try Assert(SHGetPathFromIDList(Pidl, tmpPath)); finally pMalloc.Free(Pidl); end; Result := tmpPath; Result := Result + '\'; end;CSIDL_COMMON_APDATAとかの定数,定義されてない感じなので
適時,定義してください
このスペシャルフォルダ系の定義は,こちらに一覧があります
コメント
【#緊急非常事態】スマホを紛失した!amazonで買ったカナビラがぶっ壊れてスマホが消えた!
「君たちはどう生きるか」「ゴジラ-1.0」アカデミー賞を受賞
昼から雨だそうな.人が洗車すると..ブツブツ
【訃報】TARAKOさん急死 63歳 「ちびまる子ちゃん」を35年
【#訃報】漫画家 鳥山明さん死去 68歳 「DRAGON BALL」などで人気
たぬきケーキの人気再燃 レトロな魅力、再販する店も
【#株価】日経平均株価 終値で初の4万円台 史上最高値を更新(24/3/4)
睡眠「成人は6時間以上」 新ガイドは日本人の眠りを変えられるか
再起動不要でWindows 11をアップデートする機能、2024年後半に導入か
【#確定申告】さて,税務も終わった件