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

Вниз

Системные иконки   Найти похожие ветки 

 
Slaviq   (2001-11-06 17:55) [0]

Как узнать системную иконку файла, (например если файл текстовый то иконка соответственно как на текстовик...)
Пытаюсь TSHGetFileInfo но чегото не получается, только из экзешников :(. Помогите пожалуйста умной мыслью, буду рад любым предложениям.
Ответы желательно слать на мыло (не успеваю на форуме посмотреть)
Всем отозвавшимя ОГРОМНОЕ СПАСИБО!


 
Olgerd   (2001-11-06 19:46) [1]

Попробуй ExtractAssociatedIcon


 
SlaViQ   (2001-11-07 16:23) [2]

Я не понимаю что делать дальше, функция возвращает значение ВОРД, а чего с ним дальше делать, мне нужна готовая картинка БМП или ИКО.
Я просто не дружен с ВинАПИ, больше по БД, помоги пожалуйста разобраться.
Зарание благодарен. Славик.


 
Gluka   (2001-11-08 02:22) [3]

ExtractIcon;

....
....
var
Ico: HICON;
begin
Ico:=ExtractIcon(HInstance,Filename,0 or 1);
//Возвращает HICON (Хендл иконки), FileName-имя файла

Image1.Picture.Icon.Handle:=Ico;
//Image1-твой Image(component)
....
....
end;



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

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

Наверх




Память: 0.44 MB
Время: 0.007 c
1-22053
greenrul
2001-12-18 19:29
2002.01.08
АНТИАЛЬЯСИНГ для TTF шрифтов.


14-22399
McSimm
2001-11-11 12:01
2002.01.08
Форматирование в ответах


1-22188
Art
2001-12-14 13:09
2002.01.08
Как считать большой файл???


1-22169
Kreo
2001-12-20 21:16
2002.01.08
Файлы и доступ к ним


14-22326
McSimm
2001-11-04 11:35
2002.01.08
Кто-то хотел размять (себе) мозги? Какие будут варианты алгоритма?





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