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

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;