When in the need of storing some content related to your Delphi application on the user's hard disk, you should take care of the support for state separation of user data, user settings, and computer settings.
For example, The "Application Data" folder in Windows should be used to store application specific documents such as INI files, application state, temp files or similar.
You should never use hard-coded paths to specific locations, such as "c:\Program Files", as this may not work on other versions of Windows because the location of folders and directories can change with different versions of Windows.
The SHGetFolderPath Windows API functionThe SHGetFolderPath is available in the SHFolder unit. SHGetFolderPath retrieves the full path of a known folder identified.
Here's a custom wrapper function around the SHGetFolderPath API to help you get any of the standard folders for all or the currently logged Windows user.
uses SHFolder;Here's an example of using the SHGetFolderPath function:
function GetSpecialFolderPath(folder : integer) : string;
___SHGFP_TYPE_CURRENT = 0;
___ path: array [0..MAX_PATH] of char;
___if SUCCEEDED(SHGetFolderPath(0,folder,0,SHGFP_TYPE_CURRENT,@path)) then
______ Result := path
______Result := '';
- Drop a TRadioButtonGroup (name: "RadioGroup1") on a form
- Drop a TLabel (name: "Label1") on a form
- Add 5 items to the radio group:
- "[Currenty User]\My Documents"
- "All Users\Application Data"
- "[User Specific]\Application Data"
- "Program Files"
- "All Users\Documents"
- Handle the RadioGroup's OnClick event as:
Note: "[Current User]" is the name of the currently logged in Windows user.
//RadioGroup1 OnClickNote: The SHGetFolderPath is a superset of SHGetSpecialFolderPath.
procedure TForm1.RadioGroup1Click(Sender: TObject) ;
___index : integer;
___specialFolder : integer;
___if RadioGroup1.ItemIndex = -1 then Exit;
___index := RadioGroup1.ItemIndex;
___case index of
______//[Current User]\My Documents
______0: specialFolder := CSIDL_PERSONAL;
______//All Users\Application Data
______1: specialFolder := CSIDL_COMMON_APPDATA;
______//[User Specific]\Application Data
______2: specialFolder := CSIDL_LOCAL_APPDATA;
______3: specialFolder := CSIDL_PROGRAM_FILES;
______4: specialFolder := CSIDL_COMMON_DOCUMENTS;
___Label1.Caption := GetSpecialFolderPath(specialFolder) ;
You should not store application-specific data (such as temporary files, user preferences, application configuration files, and so on) in the My Documents folder. Instead, use an application-specific file that is located in a valid Application Data folder.
Always append a subfolder to the path that SHGetFolderPath returns. Use the following convention: "\Application Data\Company Name\Product Name\Product Version".