PC Toledo

Código: Selecionar todos

#include "minigui.ch"
#define APP_TITLE 'Meu Programa'

Function Main ()
Local hWnd

IF IsExeRunning( cFileNoPath( HB_ArgV( 0 ) ) )
	MsgStop( "O programa " + APP_TITLE + " já estava sendo executado!" )
	
	hWnd := FindWindow( APP_TITLE )

	IF hWnd > 0
		IF IsIconic( hWnd )
			Restore( hWnd )
		ELSE
			SetForeGroundWindow( hWnd )
		ENDIF
	ELSE
		MsgStop( "Não foi possível encontrar a aplicação !", "Erro", , .f. )
	ENDIF
ELSE

DEFINE WINDOW Form1 ;
   AT 0,0 ;
   WIDTH 320 ;
   HEIGHT 240 ;
   TITLE "Meu Programa" ;
   MAIN
END WINDOW
CENTER WINDOW Form1
ACTIVATE WINDOW Form1

ENDIF
Return Nil

#pragma BEGINDUMP

#define HB_OS_WIN_USED
#define _WIN32_WINNT 0x0400

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

HB_FUNC( ISICONIC )
{
   hb_retl( IsIconic( ( HWND ) hb_parnl( 1 ) ) );
}

HB_FUNC ( FINDWINDOW )
{
   hb_retnl( ( LONG ) FindWindow( 0, hb_parc( 1 ) ) );
}

HB_FUNC( ISEXERUNNING ) // ( cExeNameCaseSensitive ) --> lResult
{
   HANDLE hMutex = CreateMutex( NULL, TRUE, ( LPTSTR ) hb_parc(1) );

   hb_retl( GetLastError() == ERROR_ALREADY_EXISTS );

   ReleaseMutex( hMutex );
}

#pragma ENDDUMP

Código: Selecionar todos

#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 "Botao Iniciar"
          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()
          DEFINE BUTTON OF oBar ACTION Tira_X()
          DEFINE BUTTON OF oBar ACTION Volta_X()
          DEFINE BUTTON OF oBar ACTION Pisca_EXE()
          SET MESSAGE OF oWnd TO "Botao Iniciar Windows XP/2K3/7" NOINSET CLOCK DATE KEYBOARD
   ACTIVATE WINDOW oWnd //;
   return nil

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

FUNCTION TaskBarInvisivel()
   ShowWindow( FindWindow( "Shell_TrayWnd", "" ), 0 ) // Taskbar
   RETURN NIL

//----------------------------------------------------------------------------//
FUNCTION TaskBarVisivel()
   ShowWindow( FindWindow( "Shell_TrayWnd", "" ), 1 ) // Taskbar
   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"
// Testei no Windows 2003 Server e no Windows Seven Ultimate.
//
// - Os dois primeiros botões manejam a barra em si, sendo que no W2K3 esconde tudo e mostra tudo. No W7 esconde/mostra somente a barra.
// - Os dois segundos botões manejam o botão Iniciar, sendo que no W2K3 esconde/mostra. No W7 voce terá de mesclar os comandos para esconder a barra e o botão junto já que ocorre algo estranho.
//

#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, SW_SHOW );
    }

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

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(),FALSE);
    EnableMenuItem(MenuH,SC_CLOSE,MF_BYCOMMAND);
    }

HB_FUNC( ISICONIC )    
    {
    hb_retl( IsIconic( ( HWND ) hb_parnl( 1 ) ) );
    }

//HB_FUNC ( FINDWINDOW )
//    {
//    hb_retnl( ( LONG ) FindWindow( 0, hb_parc( 1 ) ) );
//    }

HB_FUNC( ISEXERUNNING ) // ( cExeNameCaseSensitive ) --> lResult
    {
    HANDLE hMutex = CreateMutex( NULL, TRUE, ( LPTSTR ) hb_parc(1) );
    hb_retl( GetLastError() == ERROR_ALREADY_EXISTS );
    ReleaseMutex( hMutex );
    }

#pragma ENDDUMP

Código: Selecionar todos

HB_FUNC( RESTAURAJANELA )
{
    ShowWindow(( HWND) FindWindow( NULL, "Nome da Sua Janela" ), SW_RESTORE);
}

Código: Selecionar todos

HB_FUNC( PISCA_EXE )
{
    HWND hWnd = FindWindow( NULL, "Nome da Sua Janela" );
    FlashWindow( Handle, TRUE );
}

Código: Selecionar todos

HB_FUNC( PISCA_OUTRA_JANELA )
{
    HWND hWnd = FindWindow( NULL, (LPCSTR) hb_parc(1) );
    FlashWindow( Handle, TRUE );
}

Código: Selecionar todos

...
PISCA_OUTRA_JANELA ( "Nome da Sua Janela" )
...

Código: Selecionar todos

HB_FUNC ( PISCA_EXE ) // dica do Rochinha
    {
    HWND Handle = FindWindow( NULL, "Título da Janela" );
    FlashWindow(Handle,TRUE); // VAI PISCAR O SEU EXE NA BARRA
    }