Показать сообщение отдельно
  #1  
Старый 23.10.2011, 13:18
Аватар для Newmo
Newmo Newmo вне форума
Прохожий
 
Регистрация: 21.06.2010
Сообщения: 6
Репутация: 10
По умолчанию Лаунчер программ (извлечь иконку и вставить в TImage)

Здравствуйте, не могли бы вы подсказать как можно вставить иконку из приложения выбранного Opendialog'ом - в Timage.
Код:
Пробую сделать так: 
if openDialog1.Execute

then

IconIndex:= 0;
h:= ExtractIcon(hInstance,'путь к файлу + имя', IconINdex);
DrawIcon(Form1.Canvas.Handle, 10, 10, h);
Но появляется ошибка в модуле KERNELBASE.DLL
Ответить с цитированием