Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.26;
Скачать: CL | DM;

Вниз

Как перебирая файлы и папки директории узнать...   Найти похожие ветки 

 
Pump   (2003-06-10 16:09) [0]

какому файлу или папке, какая картинка соответствует в Windows и как ее получить? Например, рисунок папки для папки, а для файла, то с чем он ассоциирован?


 
Юрий Федоров ©   (2003-06-10 16:17) [1]

SHGetFileInfo


 
Pump   (2003-06-10 16:40) [2]

Спасибо! Я так понимаю что они уже в памяти, можно-ли получить их индех (handle)?


 
Юрий Федоров ©   (2003-06-10 16:52) [3]

function GetShellFileIcon(const FileName : string) : HICON;
var SYSIL : THandle;
SFI : TSHFileInfo;
begin
Result:=0;
FillChar(SFI, SizeOf(SFI), 0);
SysIL := SHGetFileInfo(PChar(FileName), 0, SFI, SizeOf(SFI), SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
if SysIL <> 0
then Result:=ImageList_GetIcon(SysIL, SFI.iIcon, 0)
else RaiseLastOSError;

end;


 
Pump   (2003-06-10 17:00) [4]

Вот спасибо! То что нужно!!!!



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

Текущий архив: 2003.06.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.049 c
14-84738
killer
2003-06-06 00:54
2003.06.26
TBLODStream


1-84388
k-man
2003-06-09 13:14
2003.06.26
Разрешение экрана


1-84091
Vint45
2003-06-10 14:07
2003.06.26
FillChar и String


3-84045
Andrey V.
2003-05-29 09:50
2003.06.26
Замена TQuery (без БДЕ)


3-84015
anton_cor
2003-05-30 22:28
2003.06.26
Сделать из массива DataSource