Formatando Resultado do CMD

[Fazzioni]

Boa Tarde

Estou utilizando o cmd para realizar alguns processos, porém ao retornar o o texto ele contem alguns caracteres ilegíveis como "Æ", para gerar o resultado do cmd

estou ultilizando:

winexec('MEUCOMANDO > arquivoresult.txt',0);

Para formatar:

function FormatTexto(value: String): String;ConstAlfabeto_01 = 'µÖàé‚¡¢£¶Ò×âꃈŒ“‡€õÆäÇå';Alfabeto_02 = 'ÁÍÓÚéíóúÂÊÎÔÛâêîôçǧãõÃÕ';vari : Cardinal;begin  For i := 1 to length(value) do IF Pos(Value[i],Alfabeto_01) <> 0 then  value[i] := alfabeto_02[pos(value[i],Alfabeto_01)];  Result := value; end;

Porém não tenho muito tempo para ficar testando carácter por carácter, se alguém saber de algum comando para transformar agradeço.

 

 

 

 

 

 

 

[LNW]

@Fazzioni

 

Dê uma olhada na função: OemToChar()

 

 

 

 

LNW

[Fazzioni]

@LNW, muito obrigado, pesquisando.... cheguei nessa função:

 

Function OEMToString(Value : String):String;begin   SetLength(Result, Length(value));   OEMToChar(@Value[1], @result[1]);end;