Скачать: CL | DM;

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

← →
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));

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

---

← →
clickmaker ©   (2005-12-16 15:33) [8]

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

---

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

clickmaker ©   (16.12.05 15:33) [8]

Спасибо. Буду разбираться.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c