Fórum CopyFile & OpenPictureDialog- não copia arquivo! #575091

function TfrmTelaPrincipal.GetSpecialFolderPath(folder: integer): string;
const
  SHGFP_TYPE_CURRENT = 0;
var   path: array [0..MAX_PATH] of char;
begin
  {Lista de variaves para uso na Função}
  { CSIDL_PERSONAL           // [Current User]\\My Documents
    CSIDL_COMMON_DOCUMENTS   // \\All Users\\Documents
    CSIDL_MYPICTURES         // [Current User]\\My Documents\\My Pictures
    CSIDL_COMMON_PICTURES    // \\All Users\\Documents\\My Pictures
  }
  if SUCCEEDED(SHGetFolderPath(0,folder,0,SHGFP_TYPE_CURRENT,@path[0])) then
    Result := path
  else
    Result := '';
end;

procedure TfrmManutencaoParametros.FormCreate(Sender: TObject);
begin
  //[Current Windows User]\\My Documents\\My Pictures
  opdParametros.InitialDir := frmTelaPrincipal.GetSpecialFolderPath(CSIDL_MYPICTURES);
end;

vDes := Trim(DataModuleGeral.tbParametrosPASTA_BD.AsString+'\\Logo-Escritorio'+vExt);

if not CopyFile(PChar(opdParametros.FileName), PChar(vDes)), False)  then
        raise Exception.Create('Atenção! Erro ao copiar o arquivo.')