Find the Path of desktop for the current user

Var
  Allocator: IMalloc;
  SpecialDir: PItemIdList;
  FBuf: array[0..MAX_PATH] of Char;




begin
      if SHGetMalloc(Allocator) = NOERROR then 
      begin
        SHGetSpecialFolderLocation(application.Handle, CSIDL_Desktop, SpecialDir);
        SHGetPathFromIDList(SpecialDir, @FBuf[0]);
        Allocator.Free(SpecialDir);
      end;
end;