ShellExecute
Nata
20 de Diciembre del 2002
Necesito ejecutar una aplicación externa llamada desde delphi he intentado hacerlo de esta manera pero no me funciona. Podrian ayudarme con eso gracias.
if OpenDialogTxt.Execute then
begin
Parametros:='c:BasesMoniConvNue'
+ 'c:BasesParcomcelpru.txt "'//****Ruta archivo de paramentros
+ OpenDialogTxt.FileName //***Seleccion de archibo a convertir
+ '"c:Auditorescarpetacarpeta.txt';
ShellExecute(Self.Handle, nil,'C:interbasebasesMoniConvNue', PChar(Parametros), nil, SW_MAXIMIZE);
end;
la variable Parametros tiene lo que necesita MoniConvNue para ejecutarse.
if OpenDialogTxt.Execute then
begin
Parametros:='c:BasesMoniConvNue'
+ 'c:BasesParcomcelpru.txt "'//****Ruta archivo de paramentros
+ OpenDialogTxt.FileName //***Seleccion de archibo a convertir
+ '"c:Auditorescarpetacarpeta.txt';
ShellExecute(Self.Handle, nil,'C:interbasebasesMoniConvNue', PChar(Parametros), nil, SW_MAXIMIZE);
end;
la variable Parametros tiene lo que necesita MoniConvNue para ejecutarse.
killerslaytanic
20 de Diciembre del 2002
Prueba poniendo PChar(\'open\') donde está el primer NIL (después de Self.Handle), también en la cadena de parametros agrega un espacio al final del primero (aunke eso no tiene ke ver conke se lance el progr o no, pero tienes los dos params unidos y tu programa podrÃa fallar).
si aún asà no sale sustituye Self.handle por 0 a ver. Yo estoy utilizando shellexecute y no tengo problemas
si aún asà no sale sustituye Self.handle por 0 a ver. Yo estoy utilizando shellexecute y no tengo problemas
killerslaytanic
20 de Diciembre del 2002
el open es una cadena normal, los backslashes salieron en el mensaje porke kisieron
ines
20 de Diciembre del 2002
No probaste hacerlo con WinExec?