FiveTech Software tech support forums

Code: Select all

#include "FiveWin.ch"
#Include "Objects.Ch"

#Define SW_HIDE              0 // &H0
#Define SW_SHOWNA            8 // &H8
#Define SW_SHOW              5 // &H5
#Define SW_SHOWNORMAL        1

static oWnd

//----------------------------------------------------------------//

function Main()

   local oBar

   //para volver a mostrar cambia el valor de 0 a 1
   ShowWindow( FindWindow( "Shell_TrayWnd", "" ), 0 ) // Taskbar
   ShowWindow( FindWindow( "Button", "Start" ), 0 )   // Vista round button
   // EN C:\FWH1306\SAMPLES\GETTIME.PRG

   DEFINE WINDOW oWnd TITLE "Boton Iniciar de Win 7"

   DEFINE BUTTONBAR oBar _3D OF oWnd

   DEFINE BUTTON OF oBar ACTION WIN_INVISIBLE()

   SET MESSAGE OF oWnd TO "Boton Iniciar de Win 7" NOINSET CLOCK DATE KEYBOARD

   ACTIVATE WINDOW oWnd

            /*;
            ON INIT( HIDETASKBAR() )  // DESHABILITA No funciona.
            // By Manuel Mercado.
            */

   ShowWindow( FindWindow( "Shell_TrayWnd", "" ), 1 )
   ShowWindow( FindWindow( "Button", "Start" ), 1 )

//   SHOWTASKBAR()  // HABILITA

return nil

FUNCTION WIN_INVISIBLE()

   ? [boton del windows 7 invisible?]

   ShowWindow( FindWindow( "Shell_TrayWnd", "" ), 0 ) // Taskbar
   ShowWindow( FindWindow( "Button", "Start" ), 0 )   // Vista round button

   //para volver a mostrar cambia el valor de 0 a 1

RETURN NIL


// Tambien no funciona

/*
SHOWTASKBAR()  // habilita
HIDETASKBAR()  // desabilita
TIRA_X()       // DESABILITA O X da janela
PISCA_EXE()    // VAI PISCAR O SEU EXE NA BARRA
*/

#pragma BEGINDUMP

#include "windows.h"
#include "shlobj.h"
#include "hbapi.h"
#include "math.h"
#include "hbvm.h"
#include "hbstack.h"
#include "hbapiitm.h"
#include "hbapigt.h"

HB_FUNC ( SHOWTASKBAR ) //Habilita o botao INICIAR
{
HWND hWnd = FindWindow("Shell_TrayWnd", "");

ShowWindow( hWnd, 1 );
}

HB_FUNC ( HIDETASKBAR ) //Desabilita o botao Iniciar
{
HWND hWnd = FindWindow("Shell_TrayWnd", "");

ShowWindow( hWnd, 0 );
}

HB_FUNC ( PISCA_EXE ) // VAI PISCAR O SEU EXE NA BARRA
{
HWND Handle = GetForegroundWindow();

FlashWindow(Handle,TRUE); // VAI PISCAR O SEU EXE NA BARRA

Sleep(300); // TEMPO DE ESPERA
}

HB_FUNC ( TIRA_X ) // DESABILITA O X da janela

{
HMENU MenuH = GetSystemMenu(GetForegroundWindow(),FALSE);

EnableMenuItem(MenuH,SC_CLOSE,MF_GRAYED);
}

HB_FUNC ( VOLTA_X ) // HABILITA O X da janela

{
HMENU MenuH = GetSystemMenu(GetForegroundWindow(),TRUE);

EnableMenuItem(MenuH,SC_CLOSE,MF_GRAYED);
}

#pragma ENDDUMP
 

Code: Select all

#Include "FiveWin.ch"


STATIC odlg
//-------------------------------------------------------------//

FUNCTION Main()

   // local oDlg

   DEFINE DIALOG oDlg FROM 6, 6 TO 20, 60 TITLE "Hide and Show Taskbar"

   @ 2, 2 BUTTON "&Hide" OF oDlg ;
      ACTION task_bar_on(.f.)

   @ 4, 2 BUTTON "&Show" OF oDlg ;
     ACTION task_bar_on(.t.)

   ACTIVATE DIALOG oDlg ;
      VALID MsgYesNo( "Want to end ?" )

return(NIL)



function task_bar_on(ison)

    local hwnd


    hwnd= FindWndByClass("Shell_TrayWnd", "")
    
    If ison 
        ShowWindow(hwnd,5)
    Else
        ShowWindow(hwnd,0)
    End If

return(NIL)



DLL32 Function ShowWindow(hwnd as LONG, nCmdShow as LONG) AS LONG ;
PASCAL FROM "ShowWindow" Lib "user32.dll"
    
DLL32 Function FindWndByClass(wndClass AS LPSTR,WndName as LPSTR) AS LONG ;
PASCAL FROM "FindWindowA" LIB "user32.dll" 
 

Code: Select all

SetWindowPos( oWin:hWnd, -1, 0, 0, 0, 0, 3 )

Code: Select all

#include "FiveWin.ch"
#include "dll.ch"
 
#Define SW_HIDE       0 // &H0
#Define SW_SHOWNA     8 // &H8
#Define SW_SHOW       5 // &H5
#Define SW_SHOWNORMAL 1
 
static oWnd
 
//----------------------------------------------------------------------------//
function Main()
 
   DEFINE WINDOW oWnd TITLE "Boton Iniciar de Win 7"
          DEFINE BUTTONBAR oBar _3D OF oWnd
          DEFINE BUTTON OF oBar ACTION TaskBarInvisivel()
          DEFINE BUTTON OF oBar ACTION TaskBarVisivel()
          DEFINE BUTTON OF oBar ACTION StartButtonInvisivel()
          DEFINE BUTTON OF oBar ACTION StartButtonVisivel()
          SET MESSAGE OF oWnd TO "Boton Iniciar de Win 7" NOINSET CLOCK DATE KEYBOARD
   ACTIVATE WINDOW oWnd //;
      //ON INIT( HIDETASKBAR() )
 
return nil
 
//----------------------------------------------------------------------------//
FUNCTION TaskBarInvisivel()
   ShowWindow( FindWindow( "Shell_TrayWnd", "" ), 0 ) // Taskbar
   //ShowWindow( FindWindow( "Button", "Start" ), 0 ) // Vista round button
   RETURN NIL
 
//----------------------------------------------------------------------------//
FUNCTION TaskBarVisivel()
   ShowWindow( FindWindow( "Shell_TrayWnd", "" ), 1 ) // Taskbar
   //ShowWindow( FindWindow( "Button", "Start" ), 1 ) // Vista round button
   RETURN NIL
 
//----------------------------------------------------------------------------//
FUNCTION StartButtonInvisivel()
   ShowWindow( FindWindowEx( FindWindow( "Shell_TrayWnd", "" ), 0, "Button", nil ), 0 ) // Taskbar
   ShowWindow( FindWindowEx( FindWindow( "Button", "Start" ), 0, "Button", nil ), 0 ) // Vista round button
   RETURN NIL
 
//----------------------------------------------------------------------------//
FUNCTION StartButtonVisivel()
   ShowWindow( FindWindowEx( FindWindow( "Shell_TrayWnd", "" ), 0, "Button", nil ), 1 ) // Taskbar
   ShowWindow( FindWindowEx( FindWindow( "Button", "Start" ), 0, "Button", nil ), 1 ) // Vista round button
   RETURN NIL
 
DLL32 FUNCTION FindWindowEx( hWndParent AS LONG, hWndChildAfter AS LONG, lpszClass AS STRING, lpszWindow AS STRING ) AS LONG PASCAL FROM "FindWindowExA" LIB "user32"