Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Помогите, плз, найти ошибку

ДимкаН © (2002-06-03 15:16:00)
procedure TForm1.AddNewFile(F: TSearchRec);
var Icon: hIcon;
IconIndex: word;
YIcon: TIcon;
NewIconIndex: integer;
begin
with ListView1.Items.Add, F do
begin
IconIndex:=0;
ShowMessage(Name);
Icon:=ExtractAssociatedIcon(HInstance, PChar(Name), IconIndex);

YIcon:=TIcon.Create;
YIcon.ReleaseHandle;
YIcon.Handle:=Icon;
imagelist1.AddIcon(YIcon);
NewIconIndex := imagelist1.AddIcon(YIcon);
ImageIndex := NewIconIndex;
.......

Во время выполнения ExtractAssociatedIcon выдается "Программа выполнила недопустимую операцию и будет закрыта" :(

Song (2002-06-03 17:27:00) [1]
:) А как поиск-то делаешь ? Покажи кусок с FindFirst/FindNext

ДимкаН (2002-06-03 16:01:00) [2]
Вообще-то да. Вылетать перестала, стала даже иконки рисовать, но для незарегистрированных приложений. Руками прописал зарегистрированное - помогло. Будем думать, как путь вставить :). В TSearchName он, как ни обидно, в явном виде не входит...

Song (2002-06-03 15:38:00) [3]
TSearchRec.Name - это имя файла без пути насколько мне не изменяет память, поэтому ExtractAssociatedIcon() не находит файла.

ЗЫ: ImageIndex:=0; тоже была бы ошибкой.

ДимкаН (2002-06-03 15:37:00) [4]
Спасибо, помогло! :)

ДимкаН (2002-06-03 15:32:00) [5]
Name - это имя файла в записи F: TSearchRec.

Игорь Шевченко (2002-06-03 15:31:00) [6]
Все понятно.

Надо так:

var
tmp : array[0..MAX_PATH] of char;
....
StrCopy(tmp, F.Name);
ExtractAssociatedIcon(hInstance, tmp, IconIndex);
...

Функция ExtractAssociatedIcon меняет содержимое строки, в которой указан путь до файла.

Игорь Шевченко (2002-06-03 15:28:00) [7]
Что такое Name ?

ДимкаН (2002-06-03 15:21:00) [8]
Не, не помогает :(.

Song (2002-06-03 15:18:00) [9]
IconIndex:=1

Наверх

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