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

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

Пуск-Программы . [D7, Win95/98, WinXP]

tytus ©   (2004-01-10 19:01:00) 

добрый вечер. У меня есть такой код:
procedure TForm1.Button3Click(Sender: TObject);
var
 FindData:_WIN32_FIND_DATA;
 Fetched:LongWord;
begin
SHGetSpecialFolderLocation(Application.Handle,CSIDL_PROGRAMS,IDList);
SHGetDataFromIDList(SHellFolder,IDList,SHGDFIL_FINDDATA,
           @FindData,SizeOf(FindData));
SHellFolder.EnumObjects(Application.Handle,96,EnumList);????
while EnumList.Next(1,IDList,Fetched)=S_OK do
 begin
   s:=GetOutText(SHellFolder,IDList,false);\Взято из Demos\VirtualViewer\
   Memo1.Lines.Add(s);
 end;
end;
Вот на этих ??? выдает AccessViolation, хотя таким же макаром, только без SHGetDataFromIDList, я получаю список всех ярлыков и папок на рабочем столе. SHGetDeskTopFolder.

---

YuRock   (2004-01-11 17:32:00) [1]

> YuRock ©   (11.01.04 17:13) [12]
Извиняюсь - я наврал.

А легче всего получить нужный путь так:

function GetProgramsDir: String;
var
 pBuffer: Array[0..MAX_PATH] of Char;
 IDList: PItemIDList;
begin
 SHGetSpecialFolderLocation(Application.Handle, CSIDL_PROGRAMS, IDList);
 ShGetPathFromIDList(IDList, @pBuffer);

 Result := String(pBuffer);
end;


---

YuRock   (2004-01-11 17:13:00) [2]

Надо с собакой передавать

---

tytus   (2004-01-10 21:21:00) [3]

TITEMIDLIST не воспринимается EnumList.Next и  SHGetDataFromIDLisist.

---

YuRock   (2004-01-10 20:43:00) [4]

Под него надо память обязательно выделить. Луче объявит как

IDList: TITEMIDLIST;

---

YuRock   (2004-01-10 20:29:00) [5]

А где и как инициализирован IDList ?

---

tytus   (2004-01-10 20:23:00) [6]

Все равно не помогает....

---

YuRock   (2004-01-10 20:13:00) [7]

Вызывайте не EnumList.Release, а EnumList._Release

!!!!!!!!!!!

---

tytus   (2004-01-10 20:07:00) [8]

>YuRock.
Не помогает. EnumList.Reset (Release нету).
Но дело и не в этом. Если нажать первой Button3 то все равно глючит, и виснет так, что приходится перезагружать комп. На ХР тоже глючит, но нормально снимает задачу, или даже через Ctrl+F2.
Может что-то с SHGetDataFromIDList? Или прописать все переменные в TForm1.Button3Click?

---

YuRock   (2004-01-10 19:43:00) [9]

По-моему, я знаю, в чем проблема. Нужно в Button2Click удалить  EnumList (EnumList.Release), тогда все должно заработать.

---

tytus   (2004-01-10 19:28:00) [10]

>YuRock
procedure TForm1.Button2Click(Sender: TObject);
var
 s:string;
 Fetched:LongWord;
begin
SHGetDeskTopFolder(ShellFolder);
SHellFolder.EnumObjects(Application.Handle,96,EnumList);
while EnumList.Next(1,IDList,Fetched)=S_OK do
 begin
   s:=GetOutText(SHellFolder,IDList,false);
   Memo1.Lines.Add(s);
 end;
Memo1.Lines.Add('__________________');
end;

---

YuRock   (2004-01-10 19:21:00) [11]

А где они инициализируются? Может, неверно или вообще нигде?

---

tytus   (2004-01-10 19:19:00) [12]

>YuRock;
в Private. Но в GetDeskTopFolder работает.

---

YuRock   (2004-01-10 19:10:00) [13]

Где описана SHellFolder?
Где описана EnumList?
Где описана IDList?
...

---

Наверх