| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Почему я немогу найти спецпапку?

Егор ©   (2002-08-27 15:33:00) 

Добрый день. В файле справки сказано, что с помощью функции SHGetSpecialFolderLocation можно найти следующие папки:

{
CSIDL_BITBUCKET
CSIDL_CONTROLS
CSIDL_DESKTOP
CSIDL_DESKTOPDIRECTORY
CSIDL_DRIVES
CSIDL_FONTS
CSIDL_NETHOOD
CSIDL_NETWORK
CSIDL_PERSONAL
CSIDL_PRINTERS
CSIDL_PROGRAMS
CSIDL_RECENT
CSIDL_SENDTO
CSIDL_STARTMENU
CSIDL_STARTUP
CSIDL_TEMPLATES
}

function GetSystemPath(Folder: Integer): string;
var
PIDL: PItemIDList;
Path: LPSTR;
AMalloc: IMalloc;
begin
Path := StrAlloc(MAX_PATH);
SHGetSpecialFolderLocation(Application.Handle, Folder, PIDL);
if SHGetPathFromIDList(PIDL, Path) then
Result := Path;
SHGetMalloc(AMalloc);
AMalloc.Free(PIDL);
StrDispose(Path);
end;

Label1.Caption := GetSystemPath(CSIDL_BITBUCKET);

Пытаясь найти папку Recycle bin (CSIDL_BITBUCKET) ничего не получаю и с некоторыми другими таже .... Что неправильно?

---

Ученик   (2002-08-31 21:09:00) [1]

Почему так происходит не знаю, может так задумано :-), но использовать можно ::{645FF040-5081-101B-9F08-00AA002F954E}, это стандартное значение для Recycle Bin (Корзины)

---

Егор   (2002-08-31 20:56:00) [2]

Всё правильно, но у меня пишет "Корзина".

---

Егор   (2002-08-31 20:53:00) [3]

Win98

А как ты вызываешь? Может, я неправильно делаю.

---

Ученик   (2002-08-31 20:53:00) [4]

Edit1.Text := ShellFolderName(ftRecycleBin);

---

Ученик   (2002-08-31 20:48:00) [5]

У меня выдает ::{645FF040-5081-101B-9F08-00AA002F954E}
Какая операционка ?

---

Егор   (2002-08-31 15:26:00) [6]

2Ученик and All

Мужики!!! Не работает. Вместо пути к папке Recycled выдает -
"Корзина".

---

Ученик   (2002-08-27 16:22:00) [7]

>Anatoly Podgoretsky © (27.08.02 16:13)
Спасибо, исправил :-)

---

Anatoly Podgoretsky   (2002-08-27 16:13:00) [8]

Ученик © (27.08.02 16:01)
Удобнее так писать и меньше ошибок будет в будущем

FOLDERID : array[TFolderType] of integer =

---

Егор   (2002-08-27 16:08:00) [9]

Спасибо.

---

Ученик   (2002-08-27 16:01:00) [10]

uses
ActiveX, ShellApi, ShlObj;

type
TFolderType = (ftDesktop, ftRecycleBin, ftControlPanel, ftDesktopDir,
ftDrives, ftFavoriteURLs, ftFonts, ftNetwork, ftNetHoodDir,
ftDocumentDir, ftPrinters, ftPrograms, ftRecentDir, ftSendTo,
ftStartMenu, ftStartup, ftTemplates, ftFileSystem, ftCustom);

function GetFolderID(FolderType : TFolderType) : Integer;
const
CSIDL_CUSTOM = $EAFE;
FOLDERID : array[ftDesktop..ftCustom] of integer = (
CSIDL_DESKTOP, CSIDL_BITBUCKET, CSIDL_CONTROLS, CSIDL_DESKTOPDIRECTORY,
CSIDL_DRIVES, CSIDL_FAVORITES, CSIDL_FONTS, CSIDL_NETWORK, CSIDL_NETHOOD,
CSIDL_PERSONAL, CSIDL_PRINTERS, CSIDL_PROGRAMS, CSIDL_RECENT, CSIDL_SENDTO,
CSIDL_STARTMENU, CSIDL_STARTUP, CSIDL_TEMPLATES, CSIDL_DRIVES, CSIDL_CUSTOM
);
begin
Result := FOLDERID[FolderType]
end;

function ShellFolderName(FolderType : TFolderType) : string;
var
IShellMalloc : IMalloc;
IDesktopFolder : IShellFolder;
ItemIDList: PItemIDList;
StrRet: TStrRet;
begin
Result := "";
if (ShGetMalloc(IShellMalloc) = S_OK) and (IShellMalloc <> nil) then begin
if SHGetDesktopFolder(IDesktopFolder) = NOERROR then begin
if SHGetSpecialFolderLocation(0, GetFolderID(FolderType), ItemIDList) = NOERROR then try
if IDesktopFolder.GetDisplayNameOf(ItemIDList, SHGDN_FORPARSING, StrRet) = NOERROR then begin
case StrRet.uType of
STRRET_WSTR: Result := WideCharToString(StrRet.pOleStr);
STRRET_OFFSET: Result := PChar(UINT(ItemIDList) + StrRet.uOffset);
STRRET_CSTR: Result := StrRet.cStr;
end
end
finally
IShellMalloc.Free(ItemIDList);
end
end
end
end;

---

Наверх