Не сохраняется иконка программы в файл

← →
Tapok (2005-12-16 14:34) [0]

Ни одна функция не возвращает ошибки, но сохраняемый файл не содержит иконки.
Длина файла всегда равна 20-ти байтам. Что здесь неправильно?
procedure TForm1.Button1Click(Sender: TObject); var hResInfo,hResData,hF: THandle; pData: Pointer; begin hResInfo := FindResource(hInstance,"MAINICON",RT_GROUP_ICON); hResData := LoadResource(hInstance,hResInfo); if hResData <> 0 then begin pData := LockResource(hResData); if pData <> NIL then begin hF := FileCreate("c:\MainIcon.ico",fmOpenWrite); FileWrite(hF,pData^,SizeOfResource(hInstance,hResInfo)); FileClose(hF); end; end; end;
Спасибо за помощь!

← →
Reindeer Moss Eater © (2005-12-16 14:36) [1]

Ни одна функция не возвращает ошибки

Откуда это видно?

← →
Tapok (2005-12-16 14:52) [2]

Reindeer Moss Eater © (16.12.05 14:36) [1]

Ни одна функция не возвращает ошибки

Откуда это видно?

После вызова каждой функции я вставлял проверку
ShowMessage(SysErrorMessage(GetLastError)); из этого кода я ее убрал.

← →
Reindeer Moss Eater © (2005-12-16 14:54) [3]

Возможно используешь не те функции для работы с конкретным типом ресурсов. Если нужна икона приложения, то почему просто через Application.Icon не попробовать?

← →
clickmaker © (2005-12-16 14:59) [4]

может RT_ICON?

← →
Tapok (2005-12-16 15:01) [5]

Reindeer Moss Eater © (16.12.05 14:54) [3]

Если нужна икона приложения, то почему просто через Application.Icon не попробовать?

Нашел пример на С с ипользованием API и решил перевести все это на Delphi ради интереса...

← →
Tapok (2005-12-16 15:02) [6]

clickmaker © (16.12.05 14:59) [4]

может RT_ICON?

Сейчас попробую, но вроде RT_GROUP_ICON...

← →
Tapok (2005-12-16 15:04) [7]

hResInfo := FindResource(hInstance,"MAINICON",RT_ICON);
ShowMessage(SysErrorMessage(GetLastError));

Указанное имя ресурса не найдено в файле образа

может это прольет свет?
http://almar.net.ru/a/kpk?id=1127795003&n=7

← →
Tapok (2005-12-16 15:54) [9]

Не сохраняется иконка программы в файл Найти похожие ветки