给特定后缀名的文件设置特定的图标。。。。。。

function geticon(path:string):Integer; var  i:Integer;  extion:string;  strlist:TStrings; begin     i:=path.LastIndexOf('.');     extion:=path.Substring(i);     extion:=extion.ToLower;     strlist:=TS

>>阅读原文<<