FileCopy excluyendo archivos

[Khronos]

Hola, el comando sería CopyFile(source, destination: pchar; overwrite: boolean): boolean, devuelve true si tiene éxito.
En cuando a lo de excluír archivos no te acabo de comprender bien, pero podrías hacer algo como esto:

Código Delphi [-]
function CopiarArchivo (filename: string): boolean;
var
   FormatosExcluidos: array [1..3] of pchar;
   i: integer;
begin
result:=false;
FormatosExcluidos[1]:= '.mp3';
FormatosExcluidos[2]:= '.mpg';
FormatosExcluidos[3]:= '.avi';
If FileExists(Filename)=false then exit;

result:= true;
for i:=1 to 3 do begin
    If ExtractFileExt(filename) = FormatosExcluidos[i] then
             result:= false
    end else
          CopyFile(pchar(filename), pchar('TuRuta'), true);
end;

end;

Es una función que acabo de hacer al vuelo, pero la idea sería la de comprobar la extensión de los archivos y si esa extensión se encuentra en tu lista negra.. no los copia

Salu2