function is_shell_support_file(fname:String):Boolean;
var track_list:TStringList; p:Integer;
begin
Result:=false;
track_list:=TStringList.Create();
track_list.LoadFromFile(form2.root+'Support\shellapp_lst.id');
for p:=0 to track_list.Count -1 do begin
   if lowercase(ExtractFileExt(fname))=track_list.Strings[p] then begin
     track_list.free;
     Result:=true;
     exit;
   end;
end;
track_list.free;
End;