Zitat von
Luckie:
Was ist das für ein Pfad: GetDesktopPath?
Es gibt auch noch andere Ordner, wo die Dateien auf dem Desktop liegen, AllUsers zum Beispiel.
hallo,
Danke der Tipp könnte schon meine Problemlösung sein
.
Werds gleich mal testen.
Zu deiner Frage:
Delphi-Quellcode:
function GetDesktopPath :
string;
var
shellMalloc: IMalloc;
ppidl: PItemIdList;
PerDir:
string;
begin
ppidl :=
nil;
try
if SHGetMalloc(shellMalloc) = NOERROR
then
begin
SHGetSpecialFolderLocation(Form1.Handle, CSIDL_DESKTOP, ppidl);
SetLength(Result, MAX_PATH);
if not SHGetPathFromIDList(ppidl, PChar(Result))
then
raise exception.create('
SHGetPathFromIDList failed : invalid pidl');
SetLength(Result, lStrLen(PChar(Result)));
end;
finally
if ppidl <>
nil then
shellMalloc.free(ppidl);
end;
end;