Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2008.07.27;
Скачать: [xml.tar.bz2];

Вниз

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

 
Анониммм   (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]

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


 
Anatoly Podgoretsky ©   (2008-06-26 09:41) [10]

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

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



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

Форум: "Начинающим";
Текущий архив: 2008.07.27;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.47 MB
Время: 0.007 c
15-1213097628
aston2204
2008-06-10 15:33
2008.07.27
Компоненты DevExpress


2-1214309144
Alex_C
2008-06-24 16:05
2008.07.27
Вопрос по TMenuItem


2-1214382141
Jimmy
2008-06-25 12:22
2008.07.27
RunTimeError 216


2-1214466122
programmer90
2008-06-26 11:42
2008.07.27
импорт из Excel


15-1212927512
Правильный_Вася
2008-06-08 16:18
2008.07.27
кто-нибудь играет в тайм-зеро?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский