Главная страница
    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.46 MB
Время: 0.007 c
2-1214220645
ciborg
2008-06-23 15:30
2008.07.27
Сбор информации о системе


2-1214551258
lewka-serdceed
2008-06-27 11:20
2008.07.27
Проблема с получением HTML кода


15-1212834620
Kostafey
2008-06-07 14:30
2008.07.27
С днем рождения ! 7 июня


2-1214041286
zep
2008-06-21 13:41
2008.07.27
Hint в тексте


11-1186297255
MTsv DN
2007-08-05 11:00
2008.07.27
MultiSelect in TreeView





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский