Pregunta: | 2469 - ARRANQUE DE OTROS PROGRAMAS DESDE DELPHI |
Autor: | Pascual |
Me gustaria saber como puedo arrancar otros programas desde Delphi. Yo ulilizo win 95 y Delphi 1.0.******** Gracias ******** |
Respuesta: | Remberto Gonzales |
Podrias manejar este procedimiento, da buenos resultados : procedure TForma_Principal.Ejecutaryesperar(archivo, parametros: string); var tsi : TStartupInfo; tpi : TProcessInformation; dw : DWORD; begin Result := False; FillChar(tsi, SizeOf(TStartupInfo), 0); tsi.cb := SizeOf(TStartupInfo); if CreateProcess(PChar(archivo), PChar(parametros), nil, nil, False, 0, nil, nil, tsi, tpi) then begin if WAIT_OBJECT_0 = WaitForSingleObject(tpi.hProcess, INFINITE) then begin if GetExitCodeProcess(tpi.hProcess, dw) then begin if dw = 0 then begin Result := True; end else begin SetLastError(dw + $2000); end; end; end; dw := GetLastError; CloseHandle(tpi.hProcess); CloseHandle(tpi.hThread); SetLastError(dw); end; end; { ExecAndWait } procedure TForma_Principal.CopiadeSeguridad1Click(Sender: TObject); begin Ejecutaryesperar(´C:\Programa a ejecutar.exe´, ´´); end; |
Respuesta: | Adrián Fernández |
Por ejemplo para ejecutar el NotePad basta con hacer un: WinExec(PChar(´c:\windows\notepad.exe´),SW_SHOWNORMAL); Si quieres ejecutar otra aplicación basta con cambiar el path y el fichero... Saludos |