PC Toledo

Código: Selecionar todos

hbmk2 -oagenda -lhwgui -lprocmisc -lhwg_qhtm -lxhb -lhbwin -lhbct -lhbnf *.prg

Código: Selecionar todos

C:\TESTES~1\hwgui\exemplos_hwgui\agenda>hbmk2 -oagenda -lhwgui -lprocmisc -lhwg_qhtm -lxhb -lhbwin -lhbct -lhbnf *.prg
Harbour 2.1.0beta2 (Rev. 15281)
Copyright (c) 1999-2010, http://harbour-project.org/
Compiling 'agenda.prg'...
Lines 8187, Functions/Procedures 32
Generating C source output to 'C:\DOCUME~1\Familia\CONFIG~1\Temp\hbmk_ailaqm.dir\agenda.c'... Done.
Compiling 'reL.prg'...
Lines 9039, Functions/Procedures 1
Generating C source output to 'C:\DOCUME~1\Familia\CONFIG~1\Temp\hbmk_ailaqm.dir\reL.c'... Done.
agenda.c
reL.c
Generating Code...
agenda.obj : error LNK2001: unresolved external symbol _HB_FUN_FINDWINDOW
agenda.obj : error LNK2001: unresolved external symbol _HB_FUN_BRINGWINDOWTOTOP
agenda.exe : fatal error LNK1120: 2 unresolved externals
hbmk2: Error: Running linker. 1120
link.exe -nologo -out:agenda.exe C:\DOCUME~1\Familia\CONFIG~1\Temp\hbmk_ailaqm.dir\agenda.obj C:\DOCUME~1\Familia\CONFIG~1\Temp\hbmk_ailaqm.dir\reL.obj -libpath:d:\dev\harbour\lib -libpath:d:\dev\harbour\bin  -subsystem:console hwgui.lib procmisc.lib hwg_qhtm.lib xhb.lib hbwin.lib hbct.lib hbnf.lib hbextern.lib hbdebug.lib hbvm.lib hbrtl.lib hblang.lib hbcpage.lib gtcgi.lib gtpca.lib gtstd.lib gtwin.lib gtwvt.lib gtgui.lib hbrdd.lib hbuddall.lib hbusrrdd.lib rddntx.lib rddcdx.lib rddnsx.lib rddfpt.lib hbrdd.lib hbhsx.lib hbsix.lib hbmacro.lib hbcplr.lib
hbpp.lib hbcommon.lib kernel32.lib user32.lib gdi32.lib advapi32.lib ws2_32.lib winspool.lib comctl32.lib comdlg32.lib shell32.lib uuid.lib ole32.lib oleaut32.lib mpr.lib winmm.lib mapi32.lib imm32.lib msimg32.lib wininet.lib hbpcre.lib hbzlib.lib

Código: Selecionar todos

Function Main()

LOCAL hWnd
If ( hWnd:= SeekCalculadora() ) == 0
 WinExec( 'Calc.Exe', 1 )
Else
 hwg_BringWindowToTop( hWnd )
 ShowWindow( hWnd, 9 )
EndIf
return Nil

// ------------------------------------------------------------------ //
STATIC Function SeekCalculadora()
LOCAL aCaptions:= {'Calc','Calculator','Calculadora'}
LOCAL nPos, hWnd
For nPos = 1 to Len(aCaptions)
 If ( hWnd:= hwg_FindWindow( 0, aCaptions[nPos] ) ) > 0
  return hWnd
 EndIf
Next
return hWnd
/*Função: Rochinha */

Código: Selecionar todos

...
IF ( hWnd := Hwg_FindWindow( oJanela,"Sistema de Agenda de Contatos" ) ) != 0
   Hwg_SetForegroundWindow( hWnd )
   Return
ENDIF
...

...
If ( hWnd := SeekCalculadora() ) == 0
   WinExec( 'Calc.Exe', SW_NORMAL )
Else
   BringWindowToTop( hWnd )
   ShowWindow( hWnd, SW_RESTORE )
Endif

Código: Selecionar todos

   HWG_BringWindowToTop( hWnd )
   Show( hWnd, SW_RESTORE )

Código: Selecionar todos

ShowWindow( hWnd, SW_RESTORE )