1:
2:

   ProgrammOrdner := GetSpecialFolder(Handle, CSIDL_PERSONAL) + '\FarmiRechner 5.0\Produkte.ini';
   Ini := TIniFile.Create(ProgrammOrdner);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

function GetSpecialFolder(hWindow: HWND; Folder: Integer): String;
var
  pMalloc: IMalloc; 
  pidl: PItemIDList; 
  Path: PChar; 
begin 
  // get IMalloc interface pointer 
  if (SHGetMalloc(pMalloc) <> S_OK) then 
  begin 
    MessageBox(hWindow, 'Couldn''t get pointer to IMalloc interface.', 
               'SHGetMalloc(pMalloc)', 16); 
    Exit; 
  end; 

  // retrieve path 
  SHGetSpecialFolderLocation(hWindow, Folder, pidl); 
  GetMem(Path, MAX_PATH); 
  SHGetPathFromIDList(pidl, Path); 
  Result := Path; 
  FreeMem(Path); 

  // free memory allocated by SHGetSpecialFolderLocation 
  pMalloc.Free(pidl); 
end;