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

← →
Анониммм (2008-06-25 20:11) [0]

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

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

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

← →
Анониммм (2008-06-25 20:41) [2]

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

← →
Ляпа (2008-06-25 21:10) [3]

ExtractAssociatedIcon ?

← →
Anatoly Podgoretsky © (2008-06-25 21:14) [4]

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

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

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

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

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

← →
JanMihail (2008-06-25 23:34) [6]

ShGetFileInfo
ExtractIcon

← →
{RASkov} © (2008-06-26 01:03) [7]

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

← →
uno-84 (2008-06-26 09:32) [8]

Нашел себе:

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;

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

← →
uno-84 (2008-06-26 09:37) [9]

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

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

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

Как загрузить иконку файла? Найти похожие ветки