給特定後綴名的文件設置特定的圖標。。。。。。

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

>>阅读原文<<