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

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

Как просмотреть папку рабочий стол, мой компьютер... [D6, WinXP]

anod ©   (2002-06-15 00:59:00) 

Подскажите, в SHGetPathFromIDList выдает ошибку:
var pidl : PITEMIDLIST;
szPath : PCHAR;
begin
SHGetSpecialFolderLocation(Handle, CSIDL_DESKTOP, pidl);
if SHGetPathFromIDList(pidl, szPath) then begin
if ShellExecute(handle, "open" , szPath, nil, nil, SW_SHOW) < 32 then
ShowMessage("Немогу выполнить ShellExecute !");
end;

---

anod   (2002-06-16 13:45:00) [1]

Может кто-нибудь поможет всё-таки - как отобразить Панель управления или Мой Компьютер

---

GOOFFY   (2002-06-16 11:18:00) [2]

Удалено модератором

---

stikriz   (2002-06-16 11:15:00) [3]

Удалено модератором

---

anod   (2002-06-16 11:11:00) [4]

2GOOFY
Это к чему !?!

---

GOOFFY   (2002-06-16 11:09:00) [5]

Удалено модератором

---

~Rand~   (2002-06-15 23:02:00) [6]

Удалено модератором

---

anod   (2002-06-15 17:04:00) [7]

При написании такого кода запускаются те папки, которые не виртуальные, а как просмотреть виртуальные?

var pidl : PItemIDList;
szPath : Array[0..max_path-1] of WideChar;
begin
SHGetSpecialFolderLocation(Handle, nFolder, pidl);
if SHGetPathFromIDList(pidl, @szPath[0]) then begin
if ShellExecute(handle, "open" , @szPath[0], nil, nil, SW_SHOW) < 32 then
ShowMessage("Немогу выполнить ShellExecute !");
end;

---

Наверх