3
我需要通過Win8在WinXP中讀寫配置文件到Windows磁盤。他們最適合做什麼的地方在哪裏?似乎並不喜歡的ProgramData文件夾允許我應該在哪裏存儲配置文件?
procedure TfrmMain.FormCreate(Sender: TObject);
var
path: array[0..MAX_PATH] of char;
begin
SHGetFolderPath(0, CSIDL_COMMON_APPDATA, 0, SHGFP_TYPE_CURRENT, @path);
AppPath:= Path;
AppPath:= AppPath + '\Customer\';
if not DirectoryExists(AppPath) then
CreateDir(AppPath);
if FileExists(AppPath + 'Customers.cst') then
LoadFromFile(AppPath + 'Customers.cst');
end;
procedure TfrmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if ListModified then
begin
if MessageDlg('Save Changes?', mtWarning, [mbYes, mbNo], 0) = mrYes then
SaveToFile(AppPath + 'Customers.cst');
canClose:= True;
end
else
canClose:= False;
end;
您希望設置爲每個用戶('CSIDL_APPDATA'),而不是每個計算機('CSIDL_COMMON_APPDATA')。 – 2013-02-22 19:41:43
http://stackoverflow.com/q/6883779/62576 – 2013-02-22 19:48:55
此外,肯在這裏張貼對我有幫助:http://stackoverflow.com/questions/11222132/what-causes-this-error-unable-to-write -to-應用程序文件的ini – RobertFrank 2013-02-23 00:50:09