FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Como Ejecuto una Apliacacion Externa
Hola, quisiera saber como puedo ejecutar una aplicacion (.EXE)
que esta dentro de una carpeta "X" (p.e. c:\apoyo\otrosistema.exe) desde mi programa en DELPHI 6. Gracias. |
#3
|
||||
|
||||
Esto lo encontré hace algun tiempo, no se de donde, y funciona!
Prueba la explicación según lo que quieras hacer. Utilizando WinExec: WinExec(PChar('notepad.exe'),SW_SHOWNORMAL); {Ejecuta el Notepad.Exe} Este ejemplo ejecutará el Block De Notas El fichero a ejecutar debe estar dentro del PATH, o bien lo llamamos con la ruta completa: WinExec(PChar('c:\windows\notepad.exe'),SW_SHOWNORMAL); {Ejecuta el Notepad.Exe} Con WinExec, el programa Delphi no espera a que termine la ejecución de la aplicacion externa. Si queremos que nuestra aplicacion Delphi espere hasta que la aplicación llamada haya terminado, podemos utilizar esta otra forma: function TForm1.WinExecAndWait32(FileName:String; Visibility:integer):integer; var zAppName:array[0..512] of char; zCurDir:array[0..255] of char; WorkDir:String; StartupInfo:TStartupInfo; ProcessInfo:TProcessInformation; Resultado: DWord; begin StrPCopy(zAppName,FileName); GetDir(0,WorkDir); StrPCopy(zCurDir,WorkDir); FillChar(StartupInfo,Sizeof(StartupInfo),#0); StartupInfo.cb := Sizeof(StartupInfo); StartupInfo.dwFlags := STARTF_USESHOWWINDOW; StartupInfo.wShowWindow := Visibility; if not CreateProcess(nil, zAppName, { pointer to command line string } nil, { pointer to process security attributes} nil, { pointer to thread security attributes} false, { handle inheritance flag } CREATE_NEW_CONSOLE or { creation flags } NORMAL_PRIORITY_CLASS, nil, { pointer to new environment block } nil, { pointer to current directory name } StartupInfo, { pointer to STARTUPINFO } ProcessInfo) then Result := -1 { pointer to PROCESS_INF } else begin WaitforSingleObject(ProcessInfo.hProcess,INFINITE); GetExitCodeProcess(ProcessInfo.hProcess,Resultado); Result := Resultado; end; end; Otra versión de la anterior, que ejecuta Applicacion.ProcessMessages para que no se muera tu form mientras espera: function WinExecAndWait32(FileName:String; Visibility:integer):integer; var zAppName:array[0..512] of char; zCurDir:array[0..255] of char; WorkDir:String; StartupInfo:TStartupInfo; ProcessInfo:TProcessInformation; Resultado,exitCode: DWord; begin StrPCopy(zAppName,FileName); GetDir(0,WorkDir); StrPCopy(zCurDir,WorkDir); FillChar(StartupInfo,Sizeof(StartupInfo),#0); StartupInfo.cb := Sizeof(StartupInfo); StartupInfo.dwFlags := STARTF_USESHOWWINDOW; StartupInfo.wShowWindow := Visibility; CreateProcess(nil, zAppName, { pointer to command line string } nil, { pointer to process security attributes} nil, { pointer to thread security attributes} false, { handle inheritance flag } CREATE_NEW_CONSOLE or { creation flags } NORMAL_PRIORITY_CLASS, nil, { pointer to new environment block } nil, { pointer to current directory name } StartupInfo, { pointer to STARTUPINFO } ProcessInfo); {Espera a que termine la ejecucion} {Wait until execution finish} repeat exitCode := WaitForSingleObject( ProcessInfo.hProcess,1000); Application.ProcessMessages; until (exitCode <> WAIT_TIMEOUT); GetExitCodeProcess(ProcessInfo.hProcess,Resultado); MessageBeep(0); CloseHandle(ProcessInfo.hProcess ); Result:=Resultado; end; |
#4
|
||||
|
||||
Si quieres obtener el directorio en curso, usa esto. En este caso se guarda el directorio actual en un label, pero lo puedes poner en una variable y luego usarlo como desees
procedure TForm1.Button7Click(Sender: TObject); function GetCurrentDirectory: String; var nBufferLength : DWORD; lpBuffer : PChar; begin nBufferLength := MAX_PATH + 1; GetMem( lpBuffer, nBufferLength ); try if Windows.GetCurrentDirectory( nBufferLength, lpBuffer ) > 0 then Result := lpBuffer; finally FreeMem( lpBuffer ); end; end; begin Label1.Caption:=GetCurrentDirectory; end; Y, como te dijo Dec ShellExecute(Forma.Handle,nil,PChar(nombredeFile),'','',SW_SHOWNORMAL); Última edición por cubanbaker fecha: 22-09-2011 a las 06:53:40. |
#5
|
||||
|
||||
Por favor cubanbaker, utiliza los TAG's cuando escribas código delphi en los mensajes.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Intraweb, Como ejecuto una aplicacion | tulio | Internet | 13 | 21-03-2018 22:50:30 |
¿Cómo ejecuto parámetros en un DTS? | mirkop84 | SQL | 2 | 23-06-2006 00:58:05 |
como ejecuto un .exe | Johnny | DelphiPACK | 1 | 17-12-2004 15:36:45 |
Como saber que SubMenu se ejecuto | rjsitruiz | Varios | 6 | 14-07-2004 22:33:04 |
Como ejecuto una aplicacion externa a D5 | kia | Varios | 3 | 25-08-2003 23:12:10 |
|