掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
特種フォルダの取得 (ID：31421)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
下記にソースをいれてみます。 ぞうぞよろしくお願いします。 unit me; interface uses //追加 ShlObj,ActiveX Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,ShlObj,ActiveX; type TMee = class(TForm) procedure FormCreate(Sender: TObject); private { Private 宣言 } function GetFolderPath(nFolder : integer):string;//+ public { Public 宣言 } end; var Mee: TMee; implementation {$R *.dfm} procedure TMee.FormCreate(Sender: TObject); Var //+ //+ Ret :string; //+ Root : PItemIDList; //+ Buffer : PChar; //+ Memory : IMalloc; //+ begin //フォーム部分 ShowMessage('HI'); ShowMessage(GetFolderPath(CSIDL_STARTMENU)); //+ SHGetMalloc(Memory); Buffer := Memory.Alloc(MAX_PATH); //特殊フォルダの位置を取得する SHGetSpecialFolderLocation(TMee.Handle,nFolder, Root); ←nFolderがエラー //ItemIDList構造体からパス名を取り出す SHGetPathFromIDList(Root,Buffer); Result:= Buffer;←Resultがエラ //メモリの解放 Memory.Free(Root); Memory.Free(Buffer); end; end.
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.