Yes, thanks.
If you wanna check by yourself:
//-- Get the files of the directory without disable the redirection
aFiles := Directory("C:\Windows\System32\Drivers")
ApresentaMatriz(aFiles)
//-- Get the files of the directory after disable the redirection
Redirecionamento64(.F.)
aFiles := Directory("C:\Windows\System32\Drivers")
ApresentaMatriz(aFiles)
//-- Restore the redirection
Redirecionamento64(.T.)
****************************************************************************
Procedure ApresentaMatriz(aMatriz)
****************************************************************************
local cMsg := "", nLen := 0, nDimensao := 0, m := 0, d := 0
//-- Obter o tamanho da matriz passada por parâmetro
nLen := Len(aMatriz)
//-- Verificar se foi passado uma matriz por parâmetro
If ValType(aMatriz) == "A"
//-- Verifica se a matriz está preenchida
If Len(aMatriz) > 0
//-- Verifica se existe uma submatriz
if ValType(aMatriz[1]) == "A"
//-- Obtem o tamanho da submatriz
nDimensao := Len(aMatriz[1])
else
//-- Identifica que não tem uma submatriz
nDimensao := 0
end
else
MsgInfo("Matriz vazia")
Return
end
else
MsgInfo("Parâmetro informado não é uma matriz")
Return
end
//-- Roda a matriz principal
For m := 1 to nLen
//-- Verifica se vai ignorar os zeros
cMsg += StrZero(m,nZero)+" - {"
//-- Verifica se existe uma submatriz na linha especificada
if ValType(aMatriz[m]) == "A"
//-- obtêm o tamanho da submatriz da linha
nDimensao := Len(aMatriz[m])
else
//-- Identifica que não existe uma submatriz na linha
nDimensao := 0
end
//-- Se existir uma submatriz
if nDimensao != 0
//-- Roda a submatriz
For d := 1 to nDimensao
//-- Concatena o resultado para a exibição / Texto
cMsg += DadosVar(aMatriz[m,d])
//-- Verifica se não é a ultima dimensão
if d != nDimensao
cMsg += ", "
end
end
else
//-- Concatena o resultado para a exibição / Texto
cMsg += DadosVar(aMatriz[m])
end
If m != nLen
//-- Se for para ignorar zeros adiciona quebra de linha
cMsg += "}"+CRLF
else
//-- Adiciona a formatação
cMsg += "}"
end
end
MsgInfo(cMsg)
Return nil
/*------------------------------------------------------------------------*/
****************************************************************************
static function DadosVar(xVar)
****************************************************************************
Local CValor := ""
if cTipo == "C"
cValor := xVar
elseif cTipo == "N"
//cValor := Str(xVar,,,.T.)
cValor := StrTrim(xVar)
elseif cTipo == "D"
cValor := DtoC(xVar)
elseif cTipo == "A"
ApresentaMatriz(xVar,,,,cTitulo)
Return "Matriz"
elseif cTipo == "O"
cValor := "Objeto:" + xVar:ClassName()
elseif cTipo == "U"
cValor := "Nulo"
elseif cTipo == "L"
cValor := if(xVar,"True","False")
else
cValor := xVar
end
Return cValor
/*------------------------------------------------------------------------*/
****************************************************************************
Function Redirecionamento64(lHabilita)
****************************************************************************
*
* Desabilitar o redirecionamento do windows 64 bits
* Parametros:
* Retorno: Nenhum
*
* Autor: Samir
* 12/06/2014 - 11:19:31
*
****************************************************************************
Local Result := -999, nOldValue := Nil
Public hHandleKernel := LoadLibrary("Kernel32.dll")
Default lHabilita := .T.
If hHandleKernel != 0
If lHabilita
Result := WOW64_Revert( @nOldValue )
Else
Result := WOW64_Disable( nOldValue )
End
FreeLibrary(hHandleKernel)
End
Release hHandleKernel
Return Result
/*------------------------------------------------------------------------*/
DLL32 STATIC FUNCTION WOW64_Disable( @OldValue as PTR) ;
AS BOOL PASCAL FROM "Wow64DisableWow64FsRedirection";
LIB hHandleKernel
DLL32 STATIC FUNCTION WOW64_Revert( OldValue as PTR) ;
AS BOOL PASCAL FROM "Wow64RevertWow64FsRedirection";
LIB hHandleKernel
