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:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:

procedure TfmMinifmod.Button1Click(Sender: TObject);
function CopyDir(const fromDir, toDir: string): Boolean;
var
 fos: TSHFileOpStruct;
begin;
  ZeroMemory(@fos, SizeOf(fos));
  with fos do
  begin
      wFunc  := FO_COPY;
    fFlags := FOF_FILESONLY;
    pFrom  := PChar(fromDir + #0);
    pTo    := PChar(toDir)
  end;
   Result := (0 = ShFileOperation(fos));
end;
 begin         //button "neues Backup"
  if CopyDir('d:\dokumente und einstellungen\macozx\anwendungsdaten\mozilla',
             'd:\dokumente und einstellungen\macozx\eigene dateien\Bookmark-Saver') = True then
    ShowMessage('Backup erfolgreich nach "Eigene Dateien"');
 end;
procedure TfmMinifmod.Button2Click(Sender: TObject); //button "wiederherstellen"
function CopyDir(const fromDir, toDir: string): Boolean;
 var
fos: TSHFileOpStruct;
begin
showmessage('sicher?');   // neuen unit basteln!  ok, zurück dialog
ZeroMemory(@fos, SizeOf(fos));
  with fos do
  begin
    wFunc  := FO_COPY;
    fFlags := FOF_FILESONLY;
    pFrom  := PChar(fromDir + #0);
    pTo    := PChar(toDir)
  end;
  Result := (0 = ShFileOperation(fos));
end;
begin             //button "wiederherstellen"
  if CopyDir('d:\dokumente und einstellungen\macozx\eigene dateien\Bookmark-  Saver\firefox',
             'd:\dokumente und einstellungen\macozx\anwendungsdaten\mozilla')
 = True then
 ShowMessage('erfolgreich wiederhergestellt.');

end;

procedure TfmMinifmod.FormCreate(Sender: TObject);
begin
  module := nil;
  bkm := nil;
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:

uses
  ..., ShlObj, Windows, ActiveX;
...
...

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:
2:
3:
4:
5:
6:

var
  Pfad: String;
begin
  Pfad := GetShellFolder(CSIDL_APPDATA);
  ShowMessage(Pfad);  //Gibt z. B. aus : C:\Users\USERNAME\AppData\Roaming oder C:\Dokumente und Einstellungen\USERNAME\Anwendungsdaten
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:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:

 function GetShellFolder(CSIDL_appdata: integer): string;   //begin
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_appdata;
    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;                     //  end

procedure TfmMinifmod.Button1Click(Sender: TObject);
function CopyDir(const fromDir, toDir: string): Boolean;
var
 fos: TSHFileOpStruct;
begin;
  ZeroMemory(@fos, SizeOf(fos));

  with fos do
  begin
      wFunc  := FO_COPY;
    fFlags := FOF_FILESONLY;
    pFrom  := PChar(fromDir + #0);
    pTo    := PChar(toDir)
  end;
   Result := (0 = ShFileOperation(fos));
end;
var
  Pfad: String;
begin
  Pfad := GetShellFolder(CSIDL_APPDATA);
  ShowMessage(Pfad);
  if CopyDir('e:\users\macoxz\appdata\roaming\mozilla', //HIER!!!
            'bookmarksaver\mozilla') = True then
 ShowMessage('Backup erfolgreich nach "Bookmarksaver"');
 end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

  QuellPfad := IncludeTrailingPathDelimiter(GetShellFolder(CSIDL_APPDATA)) + 'Mozilla\';  //IncludeTrailingPathDelimiter hängt einen \ an den Pfad falls nicht vorhanden
  ZielPfad := IncludeTrailingPathDelimiter(GetShellFolder(CSIDL_APPDATA)) + 'DerNameDeinesProgramms\Backup_' + DateTimeToStr(Now) + '\';  //Now gibt das aktuelle Datum + Zeit aus, DateTimeToStr wandelt es in eine Zeichenkette um. So erhältst du für jedes BackUp einen separaten Ordner mit Zeitangabe
  if ForceDirectories(ZielPfad) then  //Ordnerstruktur erstellen, wenns funktioniert wird kopiert
  begin
    if CopyDir(QuellPfad, ZielPfad) then  //niemals direkt auf TRUE oder FALSE prüfen, bei API-Funkionen kann man hier mal gewaltig auf die Schnauze fallen
      ShowMessage('Die Daten wurden erfolgreich gesichert!');
  end
  else
    ShowMessage('Ziel-Verzeichnis konnte nicht erstellt werden!');					

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:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:

unit uApplicationsInfos;
{
********************************************************************************
TAppInfos Klasse
--------------------------------------------------------------------------------
Version       : 1.00
Autor         : HPL
Compiler      : BDS 2006 Update: 2
ltz. Änderung : 06.12.2008

TAppInfos ist ein Klasse, die Informationen zurückgibt wie der Path von be-
          stimmten System-Ordner ist.
--------------------------------------------------------------------------------
Klasse
  TAppInfos

Syntax
  TAppInfos.ApplicationsName;

Beschreibung
  Git den Applicationsname zurück. Ist Hilfreich um bestimmte Ordner für die
  Application anzulegen.

Version: 1.00 vom 06.12.2008
--------------------------------------------------------------------------------
Klasse
  TAppInfos

Syntax
  TAppInfos.Anwendungsdaten;

Beschreibung
  Git den AnwendungsdatenPath zurück. In diesem Path werden z.B. die
  INIT-Dateien der Application abgespeichert.
  z.B.: c:\Dokumente und Einstellungen\Benutzer\Anwendungsdaten\

Version: 1.00 vom 06.12.2008
--------------------------------------------------------------------------------
Klasse
  TAppInfos

Syntax
  TAppInfos.EigeneDateien;

Beschreibung
  Git den Eigene Dateien - Path zurück.
  z.B.: d:\Eigene Dateien von Benutzer

Version: 1.00 vom 06.12.2008

--------------------------------------------------------------------------------
Klasse
  TAppInfos

Syntax
  TAppInfos.AppAnwendungsOrdner;

Beschreibung
  Git den AnwendungsdatenPath mit dem Ordner der Application.
  z.B.: c:\Dokumente und Einstellungen\Benutzer\Anwendungsdaten\ApplicationsName

Version: 1.00 vom 06.12.2008
********************************************************************************
}

interface

uses SysUtils, Forms, ShlObj, Windows;

type
  TAppInfos = Class(TObject)
  private
    class function GetSpecialPath(nFolder: Integer): string; static;
    class function GetApplicationsName: String; static;
    class function GetAnwendungsPath: TFileName; static;
    class function GetEigeneDateien: TFileName; static;
    class function GetAppAnwendungsOrdner: TFileName; static;
  public
    class property ApplicationsName : String Read GetApplicationsName;
    class property AnwendungsPath : TFileName Read GetAnwendungsPath;
    class property EigeneDateien : TFileName Read GetEigeneDateien;
    class property AppAnwendungsOrdner: TFileName Read GetAppAnwendungsOrdner;
  End;

implementation

{ TAppInfos }

class function TAppInfos.GetAnwendungsPath: TFileName;
begin
  Result:= IncludeTrailingPathDelimiter(GetSpecialPath(CSIDL_APPDATA));
end;

class function TAppInfos.GetAppAnwendungsOrdner: TFileName;
begin
  Result:= AnwendungsPath+ApplicationsName;
end;

class function TAppInfos.GetApplicationsName: String;
begin
  Result:= ChangeFileExt(ExtractFileName(Application.ExeName),'');
end;

class function TAppInfos.GetEigeneDateien: TFileName;
begin
  Result:= IncludeTrailingPathDelimiter(GetSpecialPath(CSIDL_PERSONAL));
end;

class function TAppInfos.GetSpecialPath(nFolder: Integer): string;
var
  Buffer: array[0..MAX_PATH] of Char;
begin
  if SHGetSpecialFolderPath(Application.Handle, Buffer, nFolder, False) then
    Result := Buffer
  else
    RaiseLastOSError;
end;

end.