Fórum ShellApi - URGENTE #180743

Em relação a linha de código abaixo tenho que acrescentar o ShellApi na cláusula USES. O que acontece é no WINDOWS 2000 funciona normal.. No WINDOWS 98 aparece uma mensagem de erro do tipo violação de acesso no Shell. Isto não seria incompatibilidade do Shell ?????



var
Dados: TSHFileOpStruct;
begin

{ Faz cópia de arquivo de uma pasta para outra pasta
ArqFigura - Parâmetro que possue o caminho e arquivo selecionado
sPathFile - Parãmetro que possue o caminho para ser copiado
}

FillChar(Dados,SizeOf(Dados), 1);
with Dados do
begin
wFunc := FO_COPY;
pFrom := PChar(sArqFigura);
pTo := PChar(sPathFile);
fFlags:= FOF_ALLOWUNDO;
end;
SHFileOperation(Dados);


end;