関連記事
- 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とかの定数,定義されてない感じなので
適時,定義してください
このスペシャルフォルダ系の定義は,こちらに一覧があります
コメント
【連休】連休なのであっちこっち回ってきた
参院選きょう投票 与野党どちらが過半数制するか 最大の焦点に(25/7/20)
【#南海トラフ地震】地震前「ゆっくり滑り」間隔半減 日向灘で初観測、予測へ成果
うむ,猛烈にダルい.完全に体調がおかしい
まぁ降るもんじゃ.強雨がずっと続いているぞー
【新燃岳】噴煙がめちゃくちゃ少なくなってる.いったん終わる方向じゃろか?(25/7/5)
【地震速報】鹿児島 悪石島で震度6弱 津波の心配なし(25/7/3)
【霧島山】新燃岳で噴火続く 噴煙2800メートルの高さに(25/7/2)