Como abrir notepad maximizado

[porter]

olá pessoal, com esse comando estou abrindo o notepad, gostaria de saber se existe alguma lib
que eu possa usar para abri-lo maximizado com xHarbour, jé entrei em propriedades do bloco de notas e
mudei para MAXIMIZADO, mas mesmo assim ele abre em tela normal.

RUN ( "notepad.exe c:\ESTOQUE\relat.txt" )

xHarbour

[asimoes]

Se for com harbour:

Execute( "notepad.exe", "c:\ESTOQUE\relat.txt" )

Obs.: se não for usar a função hwg_MsgStop da hwgui, substituir por Alert
Ver a variável nStyle da função Execute ( 3 Activates the window and displays it as a maximized window. ) não testei.

Código: Selecionar todos

FUNCTION Execute( cProgram, cParameter, lEspera )
LOCAL oShell, lOk := .T., nStyle
   lEspera := hb_DefaultValue(lEspera, .T.)
   TRY
      oShell := Win_OleCreateObject( "WScript.Shell" )
   CATCH
      TRY
         oShell := Win_OleCreateObject( "WScript.Shell" )
      CATCH
         lOk := .F.
      END
   END
   IF lOk
      TRY
         /*
         intWindowStyle
         Description
         0  Hides the window and activates another window.
         1  Activates and displays a window. If the window is minimized or maximized, the system restores it to its original size and position. An application should specify this flag when displaying the window for the first time.
         2  Activates the window and displays it as a minimized window.
         3  Activates the window and displays it as a maximized window.
         4  Displays a window in its most recent size and position. The active window remains active.
         5  Activates the window and displays it in its current size and position.
         6  Minimizes the specified window and activates the next top-level window in the Z order.
         7  Displays the window as a minimized window. The active window remains active.
         8  Displays the window in its current state. The active window remains active.
         9  Activates and displays the window. If the window is minimized or maximized, the system restores it to its original size and position. An application should specify this flag when restoring a minimized window.
         10 Sets the show-state based on the state of the program that started the application. 
         */
         nStyle := 3
         //oShell:Run("sumatrapdf.exe -print-to-default -reuse-instance -lang pt "+cSource, nStyle, lEspera) 
         //oShell:Run("sumatrapdf.exe -print-to "+'"'+cPrinter+'"'+" -reuse-instance -lang pt "+cSource, nStyle, lEspera) 
         oShell:Run(cProgram +" "+cParameter, nStyle, lEspera) 
      CATCH
         hwg_MsgStop("Erro executando "+cProgram, "Erro")
         lOk := .F.
      END
      oShell := Nil
   ENDIF
RETURN lOk

[rubens]

Você pode tentar também:

Código: Selecionar todos

Hb_Run( 'Start /MAX Notepad.exe c:\ESTOQUE\relat.txt')

Rubens

[porter]

olá pessoal, estou compilando com xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6633), e está dando erro
de compilação, se eu for usar a função hwg_MsgStop da hwgui, como faz isso, tenho que usar alguma lib, qual lib devo usar,
tenho que copia-la para a pasta do sistema ?


Error: Unresolved external '_HB_FUN_HB_DEFAULTVALUE' referenced from C:\ESTOQUE\PRODUTO.OBJ
Error: Unresolved external '_HB_FUN_WIN_OLECREATEOBJECT' referenced from C:\ESTOQUE\PRODUTO.OBJ
Error: Unresolved external '_HB_FUN_HWG_MSGSTOP' referenced from C:\ESTOQUE\PRODUTO.OBJ

[asimoes]

Porter,

O exemplo foi para harbour 3.4, para xharbour o equivalente

HB_DEFAULTVALUE => DEFAULT lEspera TO .T. (usar #include "common.ch")
HWG_MSGSTOP => MSGSTOP OU USE ALERT() SE NÃO TEM A HWGUI
WIN_OLECREATEOBJECT => CreateObject() (NÃO TENHO CERTEZA)

[Kapiaba]

Código: Selecionar todos

FUNCTION Chama_NotePad()  // Modo console em xHarbour

   LOCAL cComando, cFile := "TESTE.TXT"

   MYRUN ( "Notepad.exe " + cFile )

RETURN NIL

FUNCTION MYRUN( cComando )

   Local oShell, RET, lOk:=.T.

   TRY
      #IFDEF __XHARBOUR__
         oShell := CreateObject( "WScript.Shell" )
      #ELSE
         oShell := Win_OleCreateObject( "WScript.Shell" )
      #ENDIF

   CATCH

      TRY
         #IFDEF __XHARBOUR__
            oShell := CreateObject( "WScript.Shell" )
         #ELSE
            oShell := Win_OleCreateObject( "WScript.Shell" )
         #ENDIF

      CATCH

         lOk:=.F.

        END
   END

   IF lOk

      TRY

          //.F. = Nao espera a aplicacao fechar, .T. espera.
          oShell:Run( "%comspec% /c " + cComando, 0, .T. ) 

      CATCH

          lOk:=.F.

      END

      oShell := NIL

   ENDIF

   //--   RET := oShell:Run( "%comspec% /c " + cComando, 0)  //, .T. )

RETURN lOk

[Kapiaba]

Em tempo:

O Default, é "Janela Normal", mas...

1. Localize o Bloco de notas no menu Iniciar e clique em cima dele e selecione Propriedades.

2. Na caixa Executar, selecione a opção Maximizado.

Abs.

[porter]

2. Na caixa Executar, selecione a opção Maximizado.

Mudei para Maximizado, mas não funcionou, abre como Normal.

[Kapiaba]

Então, use o EditPad.exe anexo, eu gosto mais dele do que do Bloco de Notas, simples e prático, o modo de chamar, é o mesmo. abs.

[porter]

Obrigado Kapiaba, bem melhor que o Bloco de Notas.

[asimoes]

Uma opção também seria fazer um programa em hwgui ou minigui que abre o seu txt já com uma janela maximizada, evitando assim que o usuário modifique as informações do relatório, isso é somente uma sugestão.

[porter]

olá assimões, é uma boa sugestão, mas meu conhecimento em hwgui e minigui é nada, vou procurar algum exemplo de editor feito em hwgui ou minigui mesmo que seja bem simples para eu ter uma idéia de como se faz, porque se eu for começar do zero não faço a mínima idéia de como se faz.

Obrigado.

[JoséQuintas]

Tambem tem a opção tradicional.
O fórum bloqueia o texto, vou ter que modificar:

r u n ( "c m d /c s t a r t ..." )
so olhar as opções digitando s t a r t / ?

[asimoes]

Olá Porter,

Estou disponibilizando uma função minha, pronta para uso com os fontes para você estudar.

O utilitário foi feito com harbour 3.4 + hwgui

O executável tem como parâmetro o arquivo que você quer exibir em tela maximizada

LISTTXT.exe SEU.TXT

Modifique o fonte caso queira algo diferente.

[asimoes]

Uma correção no fonte, tinha um hwg_msginfo no inicio.