| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Подскажите почему не работает ExtractIcon [D7, WinXP]

chili ©   (2005-07-27 14:43:00) 

Добрый день..

Подскажите почему не работает ExtractIcon


procedure TMainForm.FormCreate(Sender: TObject);
var
   Icon : TIcon;
begin
   Icon.Handle := ExtractIcon(Application.Handle, PChar('c:\windows\notepad.exe'), Word(0));
   RxSpeedButton1.Glyph.Canvas.Draw(0,0,Icon);
   Icon.Free;
end;


Или это только у меня не работает?????????

---

chili   (2005-07-27 16:08:00) [1]

MBo ©   (27.07.05 16:03) [11]

>Ну так работает. может, и проще можно.

Да работает, только исключение вызывает................

Все равно большое Вам спасибо за помошь.

---

MBo   (2005-07-27 16:03:00) [2]

Ну так работает. может, и проще можно.

 b:=TBitmap.Create;
 b.Width:=Icon.Width;
 b.Height:=Icon.Height;
 DrawIcon(b.Canvas.Handle,0,0,Icon.Handle);
 SpeedButton1.Glyph.Assign(b);

---

chili   (2005-07-27 15:39:00) [3]

Юрий Зотов ©   (27.07.05 15:08) [6]

А что в Assign записывать?

---

chili   (2005-07-27 15:17:00) [4]

MBo ©   (27.07.05 15:11) [8]

А как это на SpeedButton вставить?

---

MBo   (2005-07-27 15:11:00) [5]

работает:

procedure TForm1.Button3Click(Sender: TObject);
var Icon:TIcon;
begin
 Icon := TIcon.Create;
 Icon.Handle := ExtractIcon(0, PChar('c:\windows\notepad.exe'), Word(0));
 DrawIcon(Canvas.Handle,0,0,Icon.Handle);
 Icon.Free;
end;

---

chili   (2005-07-27 15:10:00) [6]

не помогло

---

Юрий Зотов   (2005-07-27 15:08:00) [7]

> chili   (27.07.05 14:53) [4]

Думаю, что загрузка все же работает. Не работает отрисовка (что и не мудрено при таком коде). Используйте не Draw, а Assign.

---

alex-drob   (2005-07-27 15:06:00) [8]

> chili   (27.07.05 14:43)

А может ExtractIcon работает. А проблемма в чемто другом. Попробуй на Canvas формы вывести например в событии onpaint.

---

chili   (2005-07-27 14:53:00) [9]

Юрий Зотов ©   (27.07.05 14:50) [3]

Пробовал так :

Icon.Handle := ExtractIcon(HInstance, PChar('c:\windows\notepad.exe'), Word(0));

и

Icon.Handle := ExtractIcon(0, PChar('c:\windows\notepad.exe'), Word(0));

Все равно не работает :(((

---

Юрий Зотов   (2005-07-27 14:50:00) [10]

Вы указываете не тот хэндл (окна, а не приложения). Замените Application.Handle на HInstance.

---

chili   (2005-07-27 14:49:00) [11]

У всех работает или никто не знает почему не работает?

---

chili   (2005-07-27 14:45:00) [12]


procedure TMainForm.FormCreate(Sender: TObject);
var
  Icon : TIcon;
begin
  Icon := TIcon.Create;
  Icon.Handle := ExtractIcon(Application.Handle, PChar('c:\windows\notepad.exe'), Word(0));
  RxSpeedButton1.Glyph.Canvas.Draw(0,0,Icon);
  Icon.Free;
end;


---

Наверх