Главная страница
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.47 MB
Время: 0.011 c
4-60923
Tkach_
2002-06-12 14:06
2002.08.19
ПОТОКИ


3-60516
X-jedy
2002-07-29 17:04
2002.08.19
MySql и все, все, все...


14-60811
Дмитрий Баранов
2002-07-23 18:24
2002.08.19
Проектирование бухгалтерских БД


4-60913
ga3
2002-06-15 01:12
2002.08.19
переменные окружения


1-60668
V.Turecky
2002-08-03 16:00
2002.08.19
TListView c графикой.