掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ファイルのコピーについて。 (ID:13621)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
uses ShlObj,SHFolder//←この二つを追加しました type TForm1 = class(TForm) Button1: TButton; Label1: TLabel; procedure Button1Click(Sender: TObject); private function GetDirectory(const DirID: Integer): String; { Private 宣言 } public { Public 宣言 } end; var Form1: TForm1; implementation {$R *.dfm} function TForm1.GetDirectory(const DirID: Integer): String; var IDs : PItemIDList; buf : array [0..MAX_PATH] of Char; begin SHGetSpecialFolderLocation(0,DirID,IDs); SHGetPathFromIDList(IDs,buf); Result:=IncludeTrailingBackslash(String(buf)); end; procedure TForm1.Button1Click(Sender: TObject); begin label1.Caption:=GetDirectory(CSIDL_PROGRAM_FILES); end; end. これでどうでしょうか？わたしも、先日フォルダー取得に困ったのですが。Mr.XRAYさんが他のサイトで答えていたのがあったはずです。 実際に私は初心者なので、このコードが正しいのかわかりません。 (先輩方に採点をお願いします。) 尚使用OSはXP-sp2−HomeEdition Delphi6Personalでチェックしました。 使用コンポーネント Buttonと、labelをひとつずつ貼り付け 実際にはProgramFilesのパスが表示されるだけです・・・。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.