1:
2:

uses
  shlobj;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TMainForm.Speichern1Click(Sender: TObject);
var
  ini: Tinifile;
begin
  ini := Tinifile.Create(GetShellFolder(CSIDL_APPDATA)+'DrumMachine.ini');
  try
    if fileexists(GetShellFolder(CSIDL_APPDATA)+'DrumMachine.ini') then
      showmessage('jo') else
        showmessage('neee');  
  finally
    ini.Free;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

(***********************************************
***********Prozedur von Michael Puff************
***********************************************)
function GetShellFolder(CSIDL: integer): string;
var
  pidl                   : PItemIdList;
  FolderPath             : string;
  SystemFolder           : Integer;
  Malloc                 : IMalloc;
begin
  Malloc := nil;
  FolderPath := '';
  SHGetMalloc(Malloc);
  if Malloc = nil then
  begin
    Result := FolderPath;
    Exit;
  end;
  try
    SystemFolder := CSIDL;
    if SUCCEEDED(SHGetSpecialFolderLocation(0, SystemFolder, pidl)) then
    begin
      SetLength(FolderPath, max_path);
      if SHGetPathFromIDList(pidl, PChar(FolderPath)) then
      begin
        SetLength(FolderPath, length(PChar(FolderPath)));
      end;
    end;
    Result := FolderPath;
  finally
    Malloc.Free(pidl);
  end;
end;
(***********************************************
************************************************
***********************************************)					

1:

fileexists(GetShellFolder(CSIDL_APPDATA)+'DrumMachine.ini')