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

最新推荐文章于 2022-05-20 16:40:49 发布

weixin_33804990

最新推荐文章于 2022-05-20 16:40:49 发布

阅读量397

点赞数

原文链接：http://www.cnblogs.com/doutian/archive/2012/10/25/2738063.html

版权

function geticon(path:string):Integer;
var
i:Integer;
extion:string;
strlist:TStrings;
begin
    i:=path.LastIndexOf('.');
    extion:=path.Substring(i);
    extion:=extion.ToLower;
    strlist:=TStringList.Create;
    strlist.Add('.txt');
    strlist.Add('.zip');
    strlist.Add('.rar');
    strlist.Add('.exe');
    strlist.Add('.jpg'); //4
    strlist.Add('.gif');
    strlist.Add('.jpeg');
    strlist.Add('.png');
    strlist.Add('.ico');
    strlist.Add('.mp4');
    strlist.Add('.rmvb');
    strlist.Add('.f4v');
    strlist.Add('.flv');
    strlist.Add('.mpg');
    case strlist.IndexOf(extion) of
       0:Result:=7;
       1,2:Result:=0;
       3:Result:=4;
       4,5,6,7,8:Result:=5;
       9,10,11,12:Result:=6;
    end;
    strlist.Free;
end;