Hola: necesito instalar el compresor mpeg4, que tiene dos archivos uno es Mpg4c32.dll y el otro mpeg4fix.inf. Habitualmente para instalarlo uno posiciona el mouse sobre el inf y elijo instalar. Este procedimiento lo quiero evitar y saber si hay alguna manera en lingo para hacerlo directo de alguna rutina de director 8. De antemano muchas gracias al experto
Lo normal para instalar algo desde lingo es lo siguiente: On mouseup me open "c:/argt/install.exe" end ´;Pero claro este sirve sólo para instaladores ejecutables. Si lo que necesitas en copiar archivos tu mismo debes comprarte algún xtra Filextra www.littleplanet.com/kent/kent.html BUDDY API www.mods.com.au/default.htm Instruccciones para el FileXTra v2 en director 8 --Bedelludrica Renombrar archivos: On mouseUp cambiar_nombre =RenameFile(field "campo1", field "campo2") end Si en campo1 está escrito c:/lucas.dir y en campo2 c:/loco.dir, entonces el nombre de archivo lucas.dir se cambiará a loco.dir. --bedelludrica Copiar archivos: on mouseUp copia_archivo = CopyFile(field "campo1",field "campo2") end por ejemplo: campo1=c:/españa.dir campo2=c:/españa/españa.dir --bedelludrica Borrar archivos: on mouseUp Borrar= DeleteFile(field "campo1") end --Bedelludrica Ver si existe algún archivo en el disco duro: On mouseUp existe = FileExists(field "campo1") --Las variables devuelven a lingo unos valores asociados --Pero sólo cuando el valor de esta variable es igual a 0 --Los procesos del xtra filextra se han llevado a cabo if existe=0 then put "si existe este archivo" into field "verificación" end if end --bedelludrica Ver si existe algún directorio en el disco duro: on mouseUp directorio= DirectoryExists(field "campo1") end --bedelludrica Crear un directorio en el disco duro: on mouseUp directorio= CreateDirectory(field "campo1") end --bedelludrica borrar directorio(sólo funciona para borrar directorio vacios de archivos) on mouseUp borrar= DeleteDirectory(field "campo1") end --bedelludrica borrar directorio con archivos incluidos on mouseUp borrar=XDeleteDirectory(field "campo1") end --bedelludrica copiar directorio vacio de archivos on mouseUp copiar= CopyDirectory(field "campo1", field "campo1") end --bedelludrica copiar directorio con los archivos que se encuentran en su interior on mouseUp copiar= XCopyDirectory(field "campo1", field "campo1") end Esta tarea la puedes completar para todos los botones con un field que indique como se ha desarroyado la tarea on mouseUp copiar= XCopyDirectory(field "campo1", field "campo1") put da_mensaje(copiar) into field "develve el mensaje" end da_mensaje es una rutina colocada como movie scrip Este es el scrip: on da_mensaje retorno case retorno of -0: mensaje to "proceso realizado" -1: mensaje = "error no identificado" -5: mensaje = "no pudo borrar archivos" -6: mensaje = "no pudo borrar archivos" -7: mensaje = "archivo no encontrado" -8: mensaje = "el archivo está en un directorio" -9: mensaje = "no pudo crear archivos" -10: mensaje = "error al abrir" -11: mensaje = "escritura de archivos erronea" -12: mensaje = "error al cerrar" -13: mensaje = "archivo de lectura erroneo" -14: mensaje = "dico lleno" -15: mensaje = "Directorio no encontrado" -16: mensaje = "el directorio especificado tiene un archivo" -17: mensaje = "error en la creacion de directorio" -18: mensaje = "no puedo borrar el directorio especificado" -19: mensaje = "Could not retrieve directory ID number" -40: mensaje = "no hay memoria" -51: mensaje = "el driver no exite" -52: mensaje = "el driver existe pero está ocupado" -61:mensaje = "el driver no está en el CD" -210: mensaje = "el nuevo archivo ya existe" otherwise mensaje = "la cosa está muy mar" end case return(mensaje) end
- Anónimoahora mismo
Añade tu respuesta
Haz clic para
o
El autor de la pregunta ya no la sigue por lo que es posible que no reciba tu respuesta.