Mike Serra wrote:Buenos días foro,
tendreis por ahí (si se puede) algún ejemplo donde desde un programa en FWH pueda activar el NotePad (por ejemplo) y decirle que escriba algún texto automaticamente. Sería como activar una ventana y mandarle una cadena . . .
Muchas gracias.
Mike: Aqui tienes un ejemplo funcional.
//---------------------------Escribir en un fichero txt
Function CrlProceso(cCadena)
local cFile := ".\proceso.txt", nHand
local cCad:=Dtoc(date())+" "+time()+": "+cCadena
local FO_READWRITE:=2, FO_SHARED:=64 , FS_END:=2 //Fileio.ch
if !file(cFile)
nHand := FCreate( cFile ) // creamos el archivo
FWrite(nHand, cCad + CRLF+"") // escribimos en el archivo
FClose(nHand) // cerramos el fichero
else
nHand := FOpen( cFile, FO_READWRITE + FO_SHARED ) // abrimos el fichero lect-escrit-compartido
FSeek(nHand, 0, FS_END) // nos colocamos al final del fichero
FWrite(nHand, cCad + CRLF+"") // escribimos en el fichero
FClose(nHand) // cerramos el fichero
endif
//Si deseas abrirlo:
//WinExec("NotePad.exe "+cFile) //u otra funcion para el caso.
SysRefresh()
Return nil
Saludos.
Francisco J. Alegría P.
Chinandega, Nicaragua.
Fwxh-MySql-TMySql