Hola a todos
Pues buscando como ejecutar un comando con el CMD y obtener la salida para almacenarla en una variable, me encontré con
este truco de seoane, pero parece que como es algo antiguo y para delphi 7 o anterior, en delphi XE7 no funciona como debe ser.
En la salida en lugar de mostrar el resultado como debe ser, muestra letras chinas
Por ejemplo:
Esta salida
Cita:
dir /a:-d /s /b "o:\" | find /c ":\"
|
me debe dar 67 y me da 㜶
un dir C: me devuelve esto:
Cita:
䔠潶畬敭敤氠湵摩摡䌠攠楓瑳浥ൡ
䔠ꍮ敭潲搠敳楲敤潶畬敭獥›㉄䌸䘭㘶ല
䐠物捥潴楲敤挠尺㔱〯⼸〲〲†〱㐺‴洠*†㰠䥄㹒†††††䵁D㤱〯⼷〲〲†ㄱ㈺‹洠*†㰠䥄㹒†††††湉整l㘰〯⼹〲〲†〱㐺‷洠*†㰠䥄㹒†††††䵋汐祡牥㜰ㄯ⼲〲㤱†㔰ㄺ‴洠*† 㰠䥄㹒†††††敐晲潌獧㐰〯⼹〲〲†㠰㐺′洠*†㰠䥄㹒†††††牐杯慲楆敬൳
㔰〯⼹〲〲†㤰㌺′洠*†㰠䥄㹒†††††牐杯慲楆敬砨㘸ഩ
〳〯⼵〲〲†㔰ㄺ‸洠*†㰠䥄㹒†††††整灭㜱〯⼵〲〲†㔰㈺‵洠*†㰠䥄㹒†††††獕牥൳
㠲〯⼸〲〲†㌰㈺‶洠*†㰠䥄㹒†††††楗摮睯൳
㠲〯⼸〲〲†㔰㐺‷洠*†㰠䥄㹒†††††慸灭൰
†††††††〠愠捲楨潶††††††〠戠瑹獥†††††††〱搠物㈠ⰳ㐲ⰰ㠶ⰳ㈵‰祢整楬牢獥
|
Que cambios se deben hacer para que muestre los resultados de forma correcta?