11 respuestas en este tema

[razadi]

:^)  Saludos, creo que redundé en el titulo pero la idea es esa, jejeje 

Pues si comuneros, por aquí les traigo otro código espero les sea de provecho, saludos.

Lo primero es Agregar en el uses la unit ShellApi después creamos un procedure y este sería su código

delphi

procedure EjecutaApp(sAplicacion, sArgumentos: string; iVisible: integer);
var
  seInfo: TShellExecuteInfo;
  pseInfo: PShellExecuteInfo;
  wTermina: DWord;
begin
  pseInfo := @seInfo;
  With seInfo do begin
    cbSize := SizeOf(seInfo);
    fMask := SEE_MASK_NOCLOSEPROCESS;
    wnd := Handle;
    lpVerb := nil;
    lpFile := PChar(sAplicacion);
    lpParameters := Pchar(sArgumentos+#0);
    lpDirectory := nil;
    nShow := iVisible;
    hInstApp:=0;
  end;
  {Ejecutamos la aplicación solicitada}
  ShellExecuteEx(pseInfo);
  {RZD::Enero 25, 2006-> Aquí esperamos a que termine la aplicación que abrimos}
  repeat
    wTermina := WaitForSingleObject(seInfo.hProcess,500);
    Application.ProcessMessages;
  until (wTermina <> WAIT_TIMEOUT);
end;

Para llamarlo sólo basta escribir esta línea:

delphi

  EjecutaApp('c:\windows\notepad.exe','c:\archivo.txt',Sw_ShowNormal);

como siempre espero que les sea de utilidad y como lo dije, espero poder darme tiempo para subir todos los codes que tengo, saludos.
(pi)    

[enecumene]

Muchas Gracias por la aportación amigo, pues ya tenemos otra alternativa para ejecutar programas externos desde Delphi .

Saludos.

[poliburro]

Excelente¡¡¡¡¡¡¡, gracias por el aporte

[egostar]

Que bien, gracias por el aporte amigo razadi.

Salud OS

[off-topic]Por cierto, por ahí se habla de que las cocas aun no están frías [/off-topic]

[razadi]

Que bien, gracias por el aporte amigo razadi.

Salud OS

[off-topic]Por cierto, por ahí se habla de que las cocas aun no están frías [/off-topic]

Jeje, ahí se siguen enfriando, para cuando nos podamos ver ya estarán listas, saludos

[HSEGURAC]

hola, gracias por todos estos aportes,, quisiera preguntar una cosa,, como puedo enviar parametros desde una aplicaciona la otra,, es decir como un usuario ingresa con una clave y nombre autorizados,, como le envio esos mismos parametros a la otra aplicacion para saber si el usuario puede ejecutarla o no de acuerdo a sus perfiles de acceso

mil gracias

[egostar]

hola, gracias por todos estos aportes,, quisiera preguntar una cosa,, como puedo enviar parametros desde una aplicaciona la otra,, es decir como un usuario ingresa con una clave y nombre autorizados,, como le envio esos mismos parametros a la otra aplicacion para saber si el usuario puede ejecutarla o no de acuerdo a sus perfiles de acceso

mil gracias

Hola, bienvenido a DelphiAccess, sientete como en casa.

Tienes varias opciones, puedes ver estos hilos a ver si te ayudan.

http://www.delphiacc...hp?topic=2783.0

http://www.delphiacc...hp?topic=2759.0

Salud OS

[TiammatMX]

Amigo Razadi, ¡¡¡ME SALVASTE EL PELLEJO!!!

Necesitaba algo EXACTAMENTE como ésto. Muchas muchas gracias...

[andres1569]

Este es uno de esos hilos en que se invierte el orden habitual PREGUNTA - RESPUESTA, en este caso primero Razadi expuso su solución, y mira por dónde 1 año y pico después a TiammatMX le ha venido de perillas, me alegro Felipe           

Saludos

[TiammatMX]

Este es uno de esos hilos en que se invierte el orden habitual PREGUNTA - RESPUESTA, en este caso primero Razadi expuso su solución, y mira por dónde 1 año y pico después a TiammatMX le ha venido de perillas, me alegro Felipe               

Saludos

¡¡Oh, sí!!, ventajas de hacer una pregunta inteligentemente...  jajajajajajajajaja

[luk2009]

pues a mi me da este error cuando trato de compilarlo

delphi

Undeclared identifier: 'Handle'

a que se debe esto?

[escafandra]

Cambia Handle por 0:

delphi

wnd := 0; // Handle;

Se debe a que ese código se diseñó, posiblemente, como una función miembro de un formulario. Ese Handle se refiere al HWND de la ventana de los posibles MessageBox. Puedes ponerlo nulo perfectamente.


Saludos.