Erro: Declaration terminated incorrectly

[rubens]

Olá...
Estou tentando compilar uma rotina que inclui um código C, mas dando esse erro.
Declaration terminated incorrectly

Fiz umas pesquisas tanto aqui no fórum como nos exemplos da minigui mas não vi nada de diferente do que tá no meu código.

Segue o código:

Código: Selecionar todos

***************************************************************************
** FUNCAO VAIPRAFRENTE( JANELA )
FUNCTION VAIPRAFRENTE( JANELA)
hCalc := FindWindow( 0, JANELA )
lCaptured := ( hCalc > 0 )
IF lCaptured
	Focaliza_app(JANELA,'max')
ELSE
	MSGBOX('Programa '+JANELA+' nao esta em execução !!!','Nao encontrado')
 	// WinExec( "calc" )
ENDIF
return nil

********************************************************************************

#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);
 	Sleep(300);  // TEMPO DE ESPERA
}

********************************************************************************
HB_FUNC ( TIRA_X )    // DESABILITA O X da janela
{
	HMENU MenuH = GetSystemMenu(GetForegroundWindow(),FALSE);
 	DeleteMenu(MenuH,SC_CLOSE,MF_BYCOMMAND);
}

********************************************************************************
#pragma ENDDUMP

//  EnableMenuItem(MenuH,SC_CLOSE,MF_GRAYED);
 //

********************************************************************************
Function Focaliza_App(o_exe,o_como)
********************************************************************************
  	oWnd := SY_FindWindow(o_exe)
   if empty(ownd)
      return nil
   end
   if o_como = 'max'
      SY_showWindow( oWnd, 9 )
      BringWindowToTop( oWnd )
   elseif o_como = 'min'
      sy_closewindow(ownd) //para minimizar
   end
Return Nil
********************************************************************************   
   
#pragma BEGINDUMP

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

VOID SY_SwitchToThisWindow( HWND hWnd, BOOL fAltTab );
	HB_FUNC( SY_FINDCONSOLEHANDLE ) //FindConsoleHandle
{
	HWND hwnd;
 	AllocConsole();
 	hwnd = FindWindowA("ConsoleWindowClass",NULL);
 	hb_retnl( (LONG) hwnd );
}
********************************************************************************
HB_FUNC( SY_CLOSEWINDOW )
{
	hb_retl( CloseWindow( (HWND) hb_parnl(1) ) );
}
********************************************************************************
HB_FUNC( SY_FINDWINDOW )
{
	hb_retnl((ULONG) FindWindow( (LPCSTR)
	NULL, hb_parcx(1))) ;	
}
********************************************************************************
HB_FUNC( SY_GETFOREGROUNDWINDOW )
{
	HWND hwnd;
 	hwnd = GetForegroundWindow();
 	hb_retnl( (LONG) hwnd );
}
********************************************************************************
HB_FUNC( SY_SHOWWINDOW )
{
	hb_retl( ShowWindow(
	(HWND) hb_parnl(1), hb_parni(2) ));
}
********************************************************************************
HB_FUNC( SY_SETFOREGROUNDWINDOW )
{
	hb_retl( SetForegroundWindow(
	(HWND) hb_parnl( 1 ) ) ) ;
}
********************************************************************************
HB_FUNC( SY_SWITCHTOTHISWINDOW )
{
	HWND hWnd;
 	hWnd = (HWND) hb_parnl(1);
 	hb_retl(SetForegroundWindow(hWnd));
}
#pragma ENDDUMP

Dá erro na linha

Linha: 028 - HB_FUNC ( SHOWTASKBAR ) //Habilita o botao INICIAR

Linha: 092 - HB_FUNC( SY_CLOSEWINDOW )

Obrigado
Rubens

[Claudio Soto]

En C una cadena de asteriscos no es un comentario, poner:

/***************************/
o
//**************************

[rubens]

Era isso mesmo... Compilou...

Obrigado Dr. Claudio Soto

Rubens