Exe só aparece no Ger. de Tarefas Win 7

Projeto [x]Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

Cezar
Usuário Nível 3
Usuário Nível 3
Mensagens: 189
Registrado em: 27 Mai 2006 14:03

Exe só aparece no Ger. de Tarefas Win 7

Mensagem por Cezar »

Ola,

Compilei um pequeno prg copiado do manual .chm do xHarbour ( sem hwgui ), o Exe foi gerado sem problemas, mas quando executo ele não abre na tela, mas aparece no gerenciador de tarefas ( win7), tantas vezes quanto executar.

Voces tem alguma dica de porque ele fica só no gerencidor de tarefas e não abre na tela ???

Grato
v_cez@yaho.com.br

Código: Selecionar todos

** HELLO.PRG
// The example builds a simple text-mode menu for editing
// a text file or browsing a database.

   PROCEDURE Main
      SET MESSAGE TO MaxRow()
      SET WRAP ON

      DO WHILE .T.
         CLS
         @ 3, 20 SAY    "Select an option      " COLOR "W+/R"

         @ 5, 20 PROMPT "Database - Browse()   " MESSAGE {|| MyMsg(1) }
         @ 7, 20 PROMPT "Text file - MemoEdit()" MESSAGE {|| MyMsg(2) }
         @ 9, 20 PROMPT "QUIT                  " MESSAGE {|| MyMsg(3) }

         MENU TO nPrompt

         SWITCH nPrompt
         CASE 1
           USE Customer
           Browse()
           USE
           EXIT

         CASE 2
           MemoEdit( MemoRead( "TestMenu.prg" ) )
           EXIT

         DEFAULT
           QUIT
         END
      ENDDO

   RETURN


   FUNCTION MyMsg( n )
      SWITCH n
      CASE 1 ; RETURN "Browses a database"   ; EXIT
      CASE 2 ; RETURN "Displays a text file" ; EXIT
      CASE 3 ; RETURN "Ends program"         ; EXIT
      END
   RETURN ""
   
Avatar do usuário
sygecom
Administrador
Administrador
Mensagens: 7131
Registrado em: 21 Jul 2006 10:12
Localização: Alvorada-RS
Contato:

Exe só aparece no Ger. de Tarefas Win 7

Mensagem por sygecom »

Tente colocar depois do MAIN() a linha abaixo:
SETMODE(25,80)
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
Responder