FileCopy excluyendo archivos

[fpenaranda]

Estimados amigos, resulta que tengo un problema con filecopy(), lo que necesito es realizar la copia de archivos excluyendo archivos de tipo mp3, mpg, etc. sin embargo no encuentro como hacerlo, ya traté Xcopy, es una buena solución, pero debo rflejar los mismo que hace el Xcopy usando fileCopy.
El comando del Xcopy sería: Xcopy "Source" "Destination" EXCLUDE: archive.txt, donde archive.txt contiene una lista de los archivos que no se desea copiar.

Como sería el comando FileCopy(Pchar(Source),Pchar(Destination),false),????

Saludos

[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