Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.19;
Скачать: 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 вся ветка

Текущий архив: 2002.08.19;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.01 c
3-60484
roev
2002-07-29 07:35
2002.08.19
поделитесь, у кого есть, ERwin-ом


4-60887
[BAD]Angel
2002-06-12 16:49
2002.08.19
Люди, помогите ПЛЗ!!!!


7-60868
SleD
2002-06-01 19:08
2002.08.19
Сменить рисунок кнопки ПУСК


14-60824
Alx2
2002-07-24 09:49
2002.08.19
На Землю летит двухкилометровый астероид


3-60502
alexvan
2002-07-28 18:32
2002.08.19
Просто, но чего-то нигде не могу найти.