Ejecutar comando y capturar su salida

[dandyuno]

Saludos, he probado este codigo del truco en un memo, el resultado no es el esperado ya que el comando que envio es 'dir' y el resultado es 䔠潶畬敭敤氠⁡湵摩摡䌠渠楴湥⁥瑥煩敵慴മ
䔠ꍮ敭潲搠⁥敳楲⁥敤潶畬敭獥›䍁㔱㈭䑂റഊ
䐠物捥潴楲敤䌠尺獕牥屳慤摮畹潮䑜捯浵湥獴停潲敪瑣牐敵慢൳ഊ
㜰ㄯ⼱〲㜱†㠰㈺‶†㰠䥄㹒†††††മ
㜰ㄯ⼱〲㜱†㠰㈺‶†㰠䥄㹒†††††⸮਍㜰ㄯ⼱〲㜱†〱㌺″†††††ㄠ⸲〴‰牐湩楣慰⹬捤൵《⼷ㄱ㈯㄰‷〠㨸㘲††††††㈠㜮㌲倠楲据灩污搮浦਍㜰ㄯ⼱〲㜱†㠰㈺‶††††††⸲㌶‴牐湩楣慰⹬ 慰൳
ㄱㄯ⼰〲㜱†㈱㌺‷†††††††㌲‷牐敵慢⹳灤൲
ㄱㄯ⼰〲㜱†㈱㔺′††††††⸵㤶‱牐敵慢⹳灤潲൪

¿que es lo que ocurre? ¿que he hecho mal? Gracias

[Casimiro Notevi]

Empezado por dandyuno

Ella 䔠  Hei Ke Yang Shen ⁡ Usted  fricción Xi 䌠 canal de  Titu ⁥ Wenfandishe മ 䔠 ꍮ pigwash Yang Ke apuñaló ⁥ Aiwei ⁥  Hei Ella Yang Jiao > 䍁 㔱 ㈭ 䑂 റഊ 䐠 retención fue Wan Wei Ke  䌠 Chicuifangxian Queqiaowanchao 䑜 Daotongtumeng Tingshaoduosuo  Zha enemigo lenta ൳ഊ 㜰 ㄯ ⼱ 〲 㜱 † 㠰 ㈺ "† 㰠 䥄 㹒 ††††† മ 㜰 ㄯ ⼱ 〲 㜱† 㠰 ㈺ "† 㰠 䥄 㹒 ††††† ⸮਍ 㜰 ㄯ ⼱ 〲 㜱 † 〱㌺" ††††† ㄠ ⸲〴 ‰ Zhadongmeiwei ⹬ Wei ൵ "⼷ ㄱ ㈯ ㄰ ‷ 〠 㨸 㘲 † ††††† i 㜮 ㌲ Suiwei Se Yanwulipu ਍ 㜰 ㄯ ⼱ 〲 㜱 † 㠰 ㈺ "†††††† ⸲㌶ '' 'Zhatongmeiwei ⹬ comodidad ൳ ㄱ ㄯ ⼰ 〲 㜱 † ㈱㌺ ‷ ‷ Zha ††††††† ㌲ enemigo lenta ⹳ Luan ൲ ㄱ ㄯ ⼰ 〲 㜱 † ㈱ 㔺 '‱ Zha †††††† ⸵ 㤶 enemigo lenta ⹳ Luan pigwash 4

A saber qué webs visitas

[dandyuno]

Muy buenas Casimiro, la web de donde saque el codigo es esta, y fue un copy paste para ver su funcionamiento. Utilizo Embarcadero 2010

[Casimiro Notevi]

Seguramente tengas que modificar el código y cambiar los char por ansichar, los string por ansistring, etc. por el tema del unicode.

[dandyuno]

OK Casimiro, ahora si que funciona, tan solo tiene un pequeño detalle, cuando mando por ej ShowMessage('dir'); la primera vez sale en blanco, pero la segunda sale perfecto por lo demas lo que buscaba, muchas gracias por tu ayuda