Mein Programm soll in den Eigenen Dateien arbeiten. Dafür muss es wissen, wo die sind, ei mir sind die z.B. auf D:\, ein anderer hat sie auf C:\.
Dann gibts den Unterschied zwischen ME(und tiefer) und XP d.h. in den Eigenen Dateien Unterordner für die angemeldeten Personen(gibts ja bei ME auch, allerdings werden das ja die meisten privat-Benutzer sicher lassen.).

Wie kann ich jetzt rfPersonal in den String bekommen.

Bsp:
 Copy(PChar("rfPersonal"+'help.txt'), PChar('C:\Temp\help.txt'), False); Wobei dann "rfPersonal" der Root von den Eigenen Dateien wäre.

Danke schonmal im voraus!

Hallo F.W.,
um den Pfad der "Eigene Dateien" herauszubekommen, habe ich hier mal zwei Funktionen.
1. Generelle Funktion um spezielle Pfade zu holen

zusammenfalten · markieren

Delphi-Quellcode:

function GetSpecialFolder(Folder: Integer): string;
var
  aPidl: PItemIDList;
  fLinkDir: string;
begin
  if SUCCEEDED(SHGetSpecialFolderLocation(Application.Handle, Folder, aPidl)) then
  begin
    SetLength(fLinkDir, MAX_PATH);
    SHGetPathFromIDList(aPidl, PChar(fLinkDir));
    SetLength(fLinkDir, StrLen(PChar(fLinkDir)));
    Result := fLinkDir;
  end;
end;

2. Die Funktion um den Pfad des Ordner ""Eigene Dateien" zu holen

markieren

Delphi-Quellcode:

function GetPersonalFolder: string;
begin
  Result := GetSpecialFolder(CSIDL_PERSONAL);
end;

noch die Unit "ShlObj" einbinden und das wars
bye

Hi Duffy,

haben wir in dem Code nich was vergessen *g*, Zitat aus der Doku zu SHGetSpecialFolderLocation():

Zitat:

The calling application is responsible for freeing this pointer with the Shell's IMalloc interface (see SHGetMalloc).

zusammenfalten · markieren

Delphi-Quellcode:

var
  ppMalloc: IMalloc;
begin
  if SHGetMalloc(ppMalloc) = NOERROR then
  try
// Hier dein Aufruf ...
// Wenn Erfolg dann Versuch ...
    try
// Hier kann noch mit der ItemID List gearbeitet werden
    finally
      ppMalloc.Free(pidl);
    end;
  finally
// Bis hier kann man ppMalloc auch statt GetMem/FreeMem gebrauchen
    ppMalloc._Release;
  end;
end;

Eigentlich gehört auch noch ein CoInitialize() davor, aber ich hatte bisher nie Probleme ohne es.

Danke, ich habe leider gerade keine Zeit, aber ich werde es mir anschauen, sobald ich wieder Zeit habe.

Danke!!!!!