PChar y PAnsiChar en WinExec

[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,

[SyncReuter]

Hola gatosoft, bueno puse el codigo completo que tengo en este momento dentro del procedimiento:

Código Delphi [-]
procedure TPrcWaitFormProgress.ExtractWaitForm(Sender: TObject);
var
  //F: Ansistring; // No hay diferencia
  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

  //ShowMessage(PAnsiChar(F)); // me devuelve D:\Proyectos\Delphi\WSam\WSamManager\AppWFP.EXE
  //ShowMessage(PAnsichar(PAnsiString(F))); // me devuelve D:\Proyectos\Delphi\WSam\WSamManager\AppWFP.EXE

  WinExec(PAnsiChar(F), SW_SHOW);
end;

como puedes ver la variable que contiene la ruta + el ejecutable es "string" (tambien probe son Ansi)

El problema me tiene parado desde anoche, como decimos aca...estoy metioooo la verdad con los años que llevo con delphi es la cuestion mas rara que me a pasado, estoy
seriamente pensando en que puede existir una falla en mi delphito.
Ahora bien para asegurarme PAnsiChar esta relacionada con la unit System y WinExec con la unit Windows

Saludos.... (Estoy que formateo el pc y reinstalo todo )

[SyncReuter]

En mi desesperación realice un proyecto aparte con mi drama.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Path: string;
  F: string;
begin
  Path:=ExtractFilePath(Application.ExeName);
  F:='AppWFP.EXE';

  //ShowMessage(Path); // Devuelve:--> D:\Proyectos\Delphi\Test\
  //ShowMessage(Path + F); // Devuelve:--> D:\Proyectos\Delphi\Test\AppWFP.EXE

  //WinExec(PAnsiChar(Path + F), SW_SHOW); // NO FUNCIONA

  //WinExec('D:\Proyectos\Delphi\Test\AppWFP.EXE', SW_SHOW); // NO FUNCIONA

  WinExec('C:\AppWFP.EXE', SW_SHOW); // SI FUNCIONA :-)

end;

En ambas rutas (Path) existe el archivo AppWFP.EXE, Utilizo Delphi 2005 Pro UPD3 y tengo winxp pro sp3

Saludos

[SyncReuter]

mmmmmm lo raro es en el proyecto de prueba si funciona con:

ShellExecute( 0, nil, PAnsiChar(Path + F), nil, nil, SW_SHOWNORMAL );

y lo acabo de probar dentro del proyecto principal (dentro de una clase) y no funciona , creo que debo tener un problema en la clase



Gracias, saludos desde chile

[DeG]

WinExec(PAnsiChar(AnsiString('c:\TuCarpeta\Tuprograma.exe')),SW_SHOWNORMAL);

[DeG]

Path:='C:\TuCarpeta\';
WinExec(PAnsiChar(AnsiString(Path+TuPrograma.exe')),SW_SHOWNORMAL);