HMGforum.com

Code: Select all

#include <hmg.ch>
REQUEST HB_GT_WIN_DEFAULT  && GT_WIN OR GT_GUI this make a console text mode

Function Main

        Load Window Main
        Main.Center
        Main.Activate

Return

FUNCTION Main_OnInit()
  cString := " I need two helps : " + HB_EOL() + ;
             " 1. Create a New Cmd Window " + HB_EOL() + ;
             " 2. Set the Cmd Window Focus " + HB_EOL() +  HB_EOL() + ;
             "TIA." + HB_EOL() + ;
             "Best rgds, " + HB_EOL() + ;
             "Chang..."
  Main.Edit_1.Value := cString           
  RETURN NIL

FUNCTION btnNewwinWindow_Action()
  IF IsWindowDefined( NewWinWindow)
    MsgInfo( "NewWinWindow Defined !")
  ELSE
    LOAD Window NewWinWindow
    NewWinWindow.Activate
  ENDIF
  
  RETURN NIL
  
FUNCTION btnNewWinWindowSetFocus_Action()  
  IF IsWindowDefined( NewWinWindow)
    NewWinWindow.SetFocus
  ELSE
    MsgInfo( "NewWinWindow NOT defined !")
  ENDIF
  RETURN NIL
  
FUNCTION btnNewCmdWindow_Action()
  MsgInfo( "Pls Help me to define NEW Cmd Window !")
  RETURN NIL
  
FUNCTION btnCmdSetFocus_Action()  
  MsgInfo( "Pls help me to make the Cmd Window Focus !")
  RETURN NIL
  

Code: Select all

/*
 bpd2000
 Get Handle of Console Window
*/

REQUEST HB_GT_WIN_DEFAULT

Function Main
SETMODE(25,80)

l := GETCONSOLEWINDOWHANDLE()

? "GETCONSOLEWINDOWHANDLE() = " + ALLTRIM(STR(L))
? GETWINDOWTHREADPROCESSID(l)
? "GETWNDTASK() " +  ALLTRIM(STR(GETWNDTASK(l)))

Wait "Press any key to quit"

RETURN NIL


#pragma BEGINDUMP
#define WINVER 0x0600 // for Vista
#define _WIN32_WINNT 0x0600 // for Vista

#include "windows.h"
#include "hbapi.h"

HB_FUNC( GETCONSOLEWINDOWHANDLE )
{
HWND hwnd;
AllocConsole();
hwnd = FindWindowA("ConsoleWindowClass",NULL);
hb_retnl( (LONG) hwnd );
}

HB_FUNC( GETWINDOWTHREADPROCESSID ) // hWnd --> nThread
{
   #ifndef _WIN64
      hb_retnl( GetWindowThreadProcessId( ( HWND ) hb_parnl( 1 ), NULL ) );
   #else   
      hb_retnll( GetWindowThreadProcessId( ( HWND ) hb_parnll( 1 ), NULL ) );
   #endif
}   	

HB_FUNC( GETWNDTASK )
{
	 #ifndef _WIN64
      hb_retnl( ( LONG ) GetWindowTask( ( HWND ) hb_parnl( 1 ) ) );
   #else   
      hb_retnll( ( LONGLONG ) GetWindowTask( ( HWND ) hb_parnll( 1 ) ) );
   #endif
}

#pragma ENDDUMP