Скачать: CL | DM;

Как просмотреть папку рабочий стол, мой компьютер...   Найти похожие ветки 

← →
anod ©   (2002-06-15 00:59) [0]

Подскажите, в 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-15 17:04) [1]

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

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;

---

← →
~Rand~ ©   (2002-06-15 23:02) [2]

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

---

← →
GOOFFY   (2002-06-16 11:09) [3]

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

---

← →
anod ©   (2002-06-16 11:11) [4]

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

---

← →
stikriz   (2002-06-16 11:15) [5]

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

---

← →
GOOFFY   (2002-06-16 11:18) [6]

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

---

← →
anod ©   (2002-06-16 13:45) [7]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c