function GetDesktopFolder: string;
var
buffr: array[0..MAX_PATH] of char;
idList: PItemIDList;
begin
Result := 'No Desktop Folder found.';
SHGetSpecialFolderLocation(Application.Handle, CSIDL_DESKTOP, idList);
if (idList <> nil) then
if (SHGetPathFromIDList(idList, buffr)) then
Result := buffr;
end;
var
buffr: array[0..MAX_PATH] of char;
idList: PItemIDList;
begin
Result := 'No Desktop Folder found.';
SHGetSpecialFolderLocation(Application.Handle, CSIDL_DESKTOP, idList);
if (idList <> nil) then
if (SHGetPathFromIDList(idList, buffr)) then
Result := buffr;
end;