Como abrir notepad maximizado

[janio]

Bowa, aSimoes!

Vou dar uma olhada nesse fonte hehehe

Janio

[asimoes]

Pessoal,

Nova versão mais enxuta

Obs.: tinha bug na versão anterior.

h-TxtView.zip

(1.05 MiB) Baixado 97 vezes

[asimoes]

A função que eu postei está preparada para identificar um EJECT (quebra de página)

[porter]

olá asimões,
Obrigado por disponibilizar o seu aplicativo, ele tem uma interface bonita e fácil de usar.

[porter]

No caso do EditPad, se fecha-lo pelo Arquivo (Sair) ocorre tudo normalmente, mas se fechar pelo (x) o meu sistema fica travado, verifiquei
pelo Gerenciador de Tarefas que quando fecha dessa forma pelo (x), ele permanece em Processos, existe uma forma de contornar esse
problema ?

Obrigado.

[Pablo César]

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

Em xHabour, não sei. Mas tente compilar isto:

Código: Selecionar todos

Function Main()
hb_MemoWrit("Relat.txt","Teste de relatorio"+Chr(13)+Chr(10)+"2ª linha")

HINSTANCE := FileExecute( 0, Nil, "Notepad.exe", "Relat.txt", Nil, 3 /* SW_MAXIMIZE */ )

If HINSTANCE > 32
   // Ok
Else
   /* System Error Codes: https://msdn.microsoft.com/en-us/library/windows/desktop/ms681382(v=vs.85).aspx
   
   0 = The operating system is out of memory or resources.
   ERROR_FILE_NOT_FOUND = The specified file was not found.
   ERROR_PATH_NOT_FOUND = The specified path was not found.
   ERROR_BAD_FORMAT = The .exe file is invalid (non-Win32 .exe or error in .exe image).
   SE_ERR_ACCESSDENIED = The operating system denied access to the specified file.
   SE_ERR_ASSOCINCOMPLETE = The file name association is incomplete or invalid.
   SE_ERR_DDEBUSY = The DDE transaction could not be completed because other DDE transactions were being processed.
   SE_ERR_DDEFAIL = The DDE transaction failed.
   SE_ERR_DDETIMEOUT = The DDE transaction could not be completed because the request timed out.
   SE_ERR_DLLNOTFOUND = The specified DLL was not found.
   SE_ERR_FNF = The specified file was not found.
   SE_ERR_NOASSOC = There is no application associated with the given file name extension. This error will also be returned if you attempt to print a file that is not printable.
   SE_ERR_OOM = There was not enough memory to complete the operation.
   SE_ERR_PNF = The specified path was not found.
   SE_ERR_SHARE = A sharing violation occurred. */
Endif
Return Nil

#pragma BEGINDUMP

#include <windows.h>
#include "hbapi.h"

// ShellExecute ( [hWnd], [cOperation], cFile, [cParameters], [cDirectory], nShowCmd ) --> return hInstance or nError
HB_FUNC( FILEEXECUTE )
{ 
   CoInitializeEx (NULL, COINIT_APARTMENTTHREADED | COINIT_DISABLE_OLE1DDE);
   HINSTANCE hInstance = ShellExecute( (HWND) hb_parnl(1), HB_ISNIL(2) ? NULL : (LPCTSTR) hb_parc(2),(LPCTSTR) hb_parc(3),HB_ISNIL(4) ? NULL : (LPCTSTR) hb_parc(4),HB_ISNIL(5) ? NULL : (LPCTSTR) hb_parc(5),hb_parni(6) );
   hb_retnl ((LONG_PTR) hInstance );
}
#pragma ENDDUMP

Em Harbour funciona.

Só uma pergunta Porter. Por quê não Harbour ?

[porter]

olá Pablo,
Estou seguindo um tópico aqui do fórum Migrar Clipper para Harbour, o meu sistema está em modo Console compilado com xHarbour, baixei o harbour-nightly-win.exe, instalei o Harbour 3.2.0, agora estou tentando compilar, está dando o seguinte erro de compilação:
Can't open #include file 'WinGdi.ch' nesta linha:

#include "WinGdi.ch" <--- erro nessa linha, onde devo adicionar essa biblioteca

Estou setando assim:

Código: Selecionar todos

@echo off
set path=C:\hb32\bin;C:\hb32\comp\mingw\bin;%path%
set HB_COMPILER=mingw
cd\
%SystemRoot%\system32\cmd.exe

Estou compilando assim:

Código: Selecionar todos

CLS
HBMK2 ESTOQUE.HBP

[Pablo César]

Oi Porter,

Se você está apanhando (como eu apanhei no começo), uma opção seria você dar uma olhada nesta mensagem, leia o anexo (em português).

E se quiser baixar a versão 3.0.35 que é muito antiga mais prática para quem começa leia este tópico e nesta mensagem encontrar pra baixá-lo.

Atualmente HMG está na versão 3.4.3 mas para usar em modo console a dirença com a 3.0.35, você terá que adicionar no seu código: REQUEST HB_GT_WIN_DEFAULT em lugar de ter a opção pela IDE.
Tem também o Build.bat com opção /C para compilação em modo console.

O prático em usar HMG que não irá precisar instalar nada, além do seu editor de textos.

[Kapiaba]

Em FiveWin, basta fazer assim:

Código: Selecionar todos

#Include "FiveWin.ch"

* MODO DA WINDOW  *
#define SW_MAXIMIZE 3

Function Main()

   LOCAL cFile := "Relat.txt"

   hb_MemoWrit( "Relat.txt", "Teste de relatorio" +Chr(13)+Chr(10)+"2ª linha" )

   WinExec( "Notepad.exe " + cFile, 3 ) // 3 = SW_MAXIMIZE

Return Nil

Abs

[porter]

olá pessoal,
Estou conseguindo compilar o sistema inteiro, mas somente uma linha está causando problema, estou compilando com o hbmk2 estoque.hbp,
está dando o erro abaixo, onde devo incluir a lib ?

Can't open #include file 'WinGdi.ch'

Código: Selecionar todos

PROCEDURE W32PRN(arqtxt)
      #include "WinGdi.ch"   <--- Erro de compilação nessa linha
      Local cPrinter
      Local contl := 1
	  cFileName := "C:\ESTOQUE\" + arqtxt
      SET PRINTER TO
      SET DEVICE TO SCREEN
      If !File("&cFileName")
         Return Nil
      Else  
         cLinha := Nil
         aLinesPrint := {}
         cBuffer := FOpen( cFileName, 2 )
         Do While Hb_FReadLine( cBuffer, @cLinha, Nil, 255 ) = 0
            AaDd( aLinesPrint, cLinha )
         EndDo
         FClose( cBuffer )
      EndIf

outra dúvida no arquibo HBP sei que se por "#" no inicio do comando essa linha é ignorada, mas como faço para por
comentario na frente do comando tentei assim, mas da erro

-inc // COMPILACAO INCREMENTAL

[porter]

Consegui compilar, copiei o WinGdi.ch para c:\HB32\Include, este arquivo existe la no xharbour\include
Agora, restou essa duvida

No arquibo HBP sei que se por "#" no inicio do comando essa linha é ignorada, mas como faço para por
comentario na frente do comando tentei assim, mas da erro

-inc // COMPILACAO INCREMENTAL

[porter]

olá asimões, estou fazendo alguns testes com esse editor de texto que você passou, a parte de impressão, não está dando certo,
seleciona a impressora, mas não imprime.

Obrigado.