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

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

Как загрузить иконку файла?

Анониммм ©   (2008-06-25 20:11:00) 

Собственно, суть проблемы изложена. Никак не могу отобразить иконку файла. Раньше получалось, но все никак не могу вспомнить. Вот и решил Мастеров загрузить. Желательно, чтобы работало и с папками.

---

Anatoly Podgoretsky   (2008-06-26 09:41:00) [1]

> uno-84  (26.06.2008 9:32:08)  [8]

ShellExecute это функция!

---

uno-84   (2008-06-26 09:37:00) [2]

Не туда написал))))))

---

uno-84   (2008-06-26 09:32:00) [3]

Нашел себе:

procedure TNewMesForm.WndProc(var Message: TMessage);
var
  p: TENLink;
  strURL: String;
begin
    if (Message.Msg = WM_NOTIFY) then
    begin
         if (PNMHDR(Message.LParam).code = EN_LINK) then
         begin
              p := TENLink(Pointer(TWMNotify(Message).NMHdr)^);
              if (p.msg = WM_LBUTTONDOWN) then
              begin
                   SendMessage(MesRedit.Handle, EM_EXSETSEL, 0, Longint(@(p.chrg)));
                   strURL := MesRedit.SelText;
                   ShellExecute(Handle, 'open', PChar(strURL), 0, 0, SW_SHOWNORMAL);
              end
         end
    end;

    inherited;
end;

Но ссылки все ровно не открываются, не знаете почему?

---

{RASkov}   (2008-06-26 01:03:00) [4]

В меню Project>Options...
Далее вкладка Application и кнопуля Load Icon...
? Хотя врядли что это имелось в виду...

---

JanMihail   (2008-06-25 23:34:00) [5]

ShGetFileInfo
ExtractIcon

---

Правильный-Вася   (2008-06-25 22:58:00) [6]

>  когда смотрим на сам файл или папку

как мы на них смотрим?
с помощью чего?

---

Anatoly Podgoretsky   (2008-06-25 21:14:00) [7]

> Анониммм  (25.06.2008 20:41:02)  [2]

А теперь разогни.

---

Ляпа   (2008-06-25 21:10:00) [8]

ExtractAssociatedIcon ?

---

Анониммм   (2008-06-25 20:41:00) [9]

Нет, ты не понял. Нужно загрузить картинку (блин, как же это обьяснить), которую мы видим, когда смотрим на сам файл или папку (Во загнул)

---

Правильный-Вася   (2008-06-25 20:36:00) [10]

какого файла?
а если файл не графический?

---

Наверх