Bom dia...

Estou a desnvolver em FWPPC 10.2 e tudo esta a correr bem. Mas estou com alguns problemas que talvez me possam ajudar.

1 - Em xBase++ utilizo o comando File("nomecarpeta","D") para testar se a carpeta existe. Em FWPPC este comando da erro de sintaxe ao compilar.Existe alguma forma de testar a existencia de uma carpeta (Pasta)?

2 - Dentro da minha aplicação em FWPPC posso executar a calculadora winexec("\windows\calc.exe") e tudo bem. Mas quando saio da aplicação (ownd:end) o calc.exe continua em execução. Se verificarmos setings\memory\runnig programs poderemos verificar que a calc continua activa. Como podemos fazer o stop(calc.exe)?

3 - No inicio de uma aplicação dentro da "Procedure Main()" mas antes de fazer o "define window" existe alguns testes que resultam em "return" e que prrovocam a fim da aplicação antes mas ela continua activa. Se executarmos de novo a aplicção a funcao isruning() responde .t.. Como se faz o quit() ou o exit() de uma app em FWPPC?

resolver Estas pequenas questoes seriam muito importantes para o trabalho que estou a efectuar:

Muito obrigado por qualquer dica.

Regards, saludos, cumprimentos

Pedro,

1) Usa la función lIsDir( cDirName ) --> Si_ó_No

3) SI antes de hacer DEFINE WINDOW ... deseas terminar la ejecución de la aplicación llama a Quit() antes de hacer return nil

Antonio.

Muito grato pela excelente ajuda que tens prestado...

Os 3 pontos estão resolvidos, mas se me perimites faço so um pequeno reparo.

No ponto 3 me as dito chama a Quit(). Pois este ha sido mi error dsde el inicio. Es que no es
quit() mas unicamente quit .

No ponto 2 convem fazer o define da Var WM_CLOSE:

define WM_CLOSE 0x0010

e depois ja podemos fazer

SendMessage( FindWindow( 0, "Calculator" ), WM_CLOSE )

Mais uma Muito obrigado.
Regards,saludos,cumprimentos

Pedro,

Asi es, gracias