Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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;




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




Наверх





Память: 0.72 MB
Время: 0.031 c
1-22172           ASTARD                2001-12-19 22:12  2002.01.08  
Народ помогите плиз ???


3-21992           dlK                   2001-12-06 15:21  2002.01.08  
Как не дать программулине


4-22455           Mamed                 2001-10-31 10:13  2002.01.08  
Активизировать окно другой программы


1-22140           Serg5                 2001-12-20 10:17  2002.01.08  
Вопрос, есть ли возможность уменьшить шрифт до 4 пикселей, менятся он меняется(программа не ругается), а на экран (Canvas.Font) он всё равно выводится 8 (самым минимальным)


1-22220           Кандыль               2001-12-16 15:10  2002.01.08  
Как запретить удалять какую-либо папку, не вися в трее?