Помогите разобраться

← →
Александр © (2002-07-10 17:52) [0]

Вот кусок программы. Не работает, ругается на ImageList_AddIcon.
.... with Form1.ListView1.Items.Add, lppe do begin hIcon:= ExtractIcon(hInstance, lppe.szExeFile, 0); if hIcon = 0 then hIcon:= LoadImage(0, IDI_WINLOGO, IMAGE_ICON, LR_DEFAULTSIZE, LR_DEFAULTSIZE, LR_DEFAULTSIZE or LR_DEFAULTCOLOR or LR_SHARED); ImageIndex:= ImageList_AddIcon(Form1.ImageList1.Handle, hIcon); .... end;

← →
Александр © (2002-07-10 21:25) [1]

Народ, срочно ндо, горю. Помогите плиз.

← →
Eugene Lachinov © (2002-07-10 21:36) [2]

А как ругается и когда, вроде этот код работает, правда lppe убрал и lppe.szExeFile заменил на PChar(ParamStr(0)), не знаю что это такое

← →
Александр © (2002-07-10 23:02) [3]

А у меня не выходит. Если Вас н езатруднит, нпиште пожалуйста имененный код. А ругается так: неизвесное ImageList_AddIcon.

← →
Юрий Зотов © (2002-07-11 00:55) [4]

CommCtrl в uses указано? Похоже, что нет.

А это разве из стандартной библиотеки... мне этот пример хнаком.... нам чуть выше .... на предыдыщей странице она описана или смотри СиДи к этой занимательной книжке...

Спасибо огромное! Забыл добавить uses CommCtrl! Заработало:))

Помогите разобраться Найти похожие ветки