如何利用SHGetFileInfo或其它函数得到某个文件的图标、大小、修改日期、类型？？？(50分)

I

ifbn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-19

• #1

如何利用SHGetFileInfo或其它函数得到某个文件的图标、大小、修改日期、类型？？？
（如果可以的话请给个实例，越简单越好,应为我是个菜鸟，真不好意思，谢谢了！！）

 

I

ifbn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-19

• #2

请大虾们告诉我吧!!!!

 

S

savenight

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-30

• #3

用extractIconEx就可以得到

 

I

ifbn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-30

• #4

可以叫我怎么用吗？？范例！thanks

 

卷

卷起千堆雪tyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-03

• #5

解决 ：（不要总是偷懒，自己想想～～～给你一个过程，够意思了；分析吧～～）
procedure getshellinfo1(a:tfilename;var name,typ:string;var icon:ticon;var attr:integer);
var
info : tshfileinfo;
begin
fillchar(info,sizeof(tshfileinfo),0);
shgetfileinfo(pchar(a),0,info,sizeof(info),shgfi_displayname or shgfi_typename or
shgfi_icon or shgfi_attributes);
with infodo
begin
name := szdisplayname;
typ := sztypename;
icon.handle := hicon;
attr := dwattributes;
end;
end;

 

I

ifbn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-05

• #6

楼上那位大哥，可以给我一个例子吗？？把相关的信息，放到listview中，我是个菜鸟，还请多多帮助！！[]

 

Y

YNTW

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-07

• #7

TO ifbn：
呵呵，难道卷老大给的不详细？由处理过程得到的变量值就可以加到ListView了，
老大也不能都给你做完了，多少还是留点东西给你消化嘛

 

W

wrench

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-26

• #8

接受答案了.