PChar y PAnsiChar en WinExec

[[gatosoft]]

Hola Compañeros,

Les tengo la siguiente inquiteud:

Tengo una instrucción en Delphi 7 de la siguiente manera:

WinExec(PChar('Ejecutable.exe '+Parametros),SW_SHOWNORMAL);

Al migrar a Delphi 2009 encontré que la función WinExec ahora recibe como primer parametro un AnsiChar en lugar de un PChar...

Tambien, al navegar en algunos foros encontré que la solución sencilla es reemplazar todos los PChar por un PAnsiChar, asi:

WinExec(PAnsiChar('Ejecutable.exe '+Parametros),SW_SHOWNORMAL);

No se si esté equivocado o haya interpretado mal, pero eso no me funcionó pues al testear el resultado con un showmessage de ambas funciones, el resultado de :

ShowMessage(PAnsiChar('Cadena de texto'));

Es solo el primer caracter de la cadena, a diferencia de PChar que si la muestra completa...

¿Quién ya ha pasado por esto?

les agradezco,

[[gatosoft]]

hola amigos,

Les cuento que ya encontré la solución, en el siguiente hilo de otro foro:

http://stackoverflow.com/questions/2...in-delphi-2009

La respuesta es primero convertir la cadena en AnsiString y luego si hacer el llamado a PAnsiChar, asi:

s := PAnsiChar(AnsiString('Ejecutable.exe '+strParametros_l);

De este modo si retorna el Path completo y no solo la primera letra...

Espero que les sirva..!!!

un saludo,

[SyncReuter]

Hola, Esta cuestion me tiene loco, tengo un problema algo similiar, intente la solución que sale en el otro foro que tu indicas que la cuestion no funciona. Explico mi problema.

Tengo una variable string (FAppFileName) dentro de un componente la cual contiene la ruta completa mas el ejecutable, especificamente asi:

D:\Proyectos\Delphi\Cap\CapMain\AppNew.exe

ahora bien, el problema que tengo es que WinEXEC NO me ejecuta el archivo (AppNew.EXE) ahora bien si el mismo archivo lo pongo en la raiz del disco (D:\AppNew.EXE') y se lo asigno en forma absoluta a la variable FAppFileName:

WinExec(PAnsiChar(FAppFileName), SW_SHOWNORMAL);

SIIII ABREEEE LA aplicación, pero con ruta completa no hay manera que funcione. ahhh y lo olvidada me pasa lo mismo con Shellexecute, ¿Alguna idea?

¿Porque m... será?

Saludos

[mamcx]

Debes entender que char, string y pstring y pchar son ALIAS al tipo string especifico de compilador. Antes de D2009 eso era ANSi y esde 2009 es UNICODE.

Entiende que el API de Windows es NATIVO EN UNICODE y tiene tambien alias y versiones en ANSI y UNICODE.

Asi, hay una version de la llamada al API de windows que empieza o termina en "A" y una que termina en "W". La que termina en W es nativo unicode y no tienes que hacer las conversiones.

[SyncReuter]

ok Mamcx, entiendo lo que quieres decir, pero en mi caso en particular cual es el problema? Utilizo D2005 Pro UPD3!!! y los parametros que paso a la función son los correctos?

function WinExec(lpCmdLine: LPCSTR; uCmdShow: UINT): UINT; stdcall; // LPCSTR = PAnsiChar;

Código Delphi [-]
procedure TPrcWaitFormProgress.ExtractWaitForm(Sender: TObject);
var
  F: string;
begin
  F:=PathLocal + 'AppWFP.EXE'; // No funciona
  //ShowMessage(F); // me devuelve D:\Proyectos\Delphi\WSam\WSamManager\AppWFP.EXE
  //F:='C:\AppWFP.EXE'; // Asi funciona OK
  WinExec(PAnsiChar(F), SW_SHOW);
end;

Iluminame por favor, dime que estoy haciendo MAL!!!!

mmm lo olvidaba...ambas rutas el archivo existe

gracias por tu tiempo, Saludos

[[gatosoft]]

Amigo SyncReuter, tu dices que ya probaste, pero intenta hacer un showmessage a las instrucciones:

ShowMessage(PAnsiChar(p));
ShowMessage(PAnsiChar(PAnsiString(p)));

Hazlo para ambos PATH:

D:\Proyectos\Delphi\WSam\WSamManager\AppWFP.EXE
D:\AppWFP.EXE

Ahora, ¿de que tipo es tu variable FAppFileName?

Un saludo,