FiveTech Software tech support forums

Antonio buenos dias, gracias por la ayuda Agrego la VM.LIB (xharbour), y me manda estos errorres :( :( Proyecto: Kept5, Entorno: BorlandDLL: [1]:Harbour.Exe Source\Tseguro.prg /m /n /es2 /ki /iP:\32bits\xharbour\include;P:\32bits\FWH\INCLUDE /i /oObj\Tseguro.c xHarbour Compiler build 1.2.1 (SimpLex)...

emotta_no,

There is a sample WINPOP4.prg
Maybe it gives You the infos You need.

hActiveWnd = If( ::oWnd != nil, ::oWnd:hWnd,;
If( nDlgCount > 1 .or. lWRunning(),;
GetActiveWindow(), GetWndApp() ) )

Best regards
Uwe

Antonio, when I use xharbour january 2013 and FWH1309 and compile a simple test (achoice): #include "FiveWin.ch"//----------------------------------------------------------------//function Main()   SET _3DLOOK ON   MsgInfo( MsgSelect( { "one&qu...

when I compile simpe progam using FWH 2013.09 and xHarbour.com #include 'fivewin.ch' proc main alert('Test 2013.09') return a got error Type: C >>>xhb.exe -o"t.c" -m -n -q -gc0 -I"S:\include" -I"R:\include" -I"R:\include\w32" "t.prg"<<...

I have the latest FWH build, re-downloaded this morning, which is 13.09 ( 2nd Build ). My primary project code builds perfectly usining FWH 13.08 and xHarbour ( .com ) from Summer 2010. Using FWH 13.09, with the EXACT SAME LINK SCRIPT AND CODEBASE ... yields the following errors unresolved externals...

Antonio, I installed FWH 13.09 but after rebuilding my application, I got a whole list of externals which weren't found : _HB_FUN_RESALLFREE _HB_FUN_SYSREFRESH _HB_FUN_LASTKEY _HB_FUN_LWRUNNING _HB_FUN_READBITMAP _HB_FUN_GETWNDAPP _HB_FUN_DIALOGBOX _HB_FUN_WINRUN .... (a lot more) Any idea what is w...

...  in ?)    WINDOW.PRG      531   881  2776  3867  3942  3960  3980  4088 GETWINDOWTEXT()        (function  in ?)    WINDOW.PRG      626  1443 GETWNDAPP()            (function  in ?)    WINDOW.PRG     2610  3798 GETWNDDEFAULT()        (function  in WINDOW.PRG)    WINDOW.PRG     3224! 3425  3426 ...

Hello Antonio I have a casual GPF error and don't know how to resolve . The message is :Offset : 001fb5f and this is the section of the MAP file 0001:0001F02C c611_0 0001:0001F02C __SetAcceleratorTable 0001:0001F047 _HB_FUN_SETIDLEACT 0001:0001F04C _HB_FUN___GENGPF 0001:0001F058 _HB_FUN_WINRUN 0001...

... GetTextColor() GetTextHeight() GetTextWidth() GetTickCount() GetVersion() GetWinDir() GetWindowWord() GetWinFlags() GetWinTxtLength() GetWndApp() GetWndFrame() GetWndRect() GetWndTask() GlobalAddAtom() GlobalAlloc() GlobalCompact() GlobalData() GlobalFree() GlobalGetAtom() GlobalLock() ...

Hello Antonio I have a casual GPF error and don't know how to resolve . The message is :Offset : 001fb5f and this is the section of the MAP file 0001:0001F02C c611_0 0001:0001F02C __SetAcceleratorTable 0001:0001F047 _HB_FUN_SETIDLEACT 0001:0001F04C _HB_FUN___GENGPF 0001:0001F058 _HB_FUN_WINRUN 0001:...

... if empty ::nLastKey = 0 ++nDlgCount hActiveWnd = If( ::oWnd != nil, ::oWnd:hWnd,; If( nDlgCount > 1 .or. lWRunning(),; GetActiveWindow(), GetWndApp() ) ) ::lCentered = lCentered ::lModal = lModal ::bLClicked = bLClicked ::bRClicked = bRClicked ::bWhen = bWhen ::bValid = bValid ::bInit ...

... 107 error E2342 Type mismatch in parameter 'iNUMBER'(Wanted 'int,'got 'HWND_') in function CREATEWINE 195 Warning W8065 Call to function 'GetWndApp' with no prototype in function CONNECT1 195 error E2342 Type mismatch in parameter "hwnd" (wanted 'HWND_*', got 'int') in function CONNECT1 ...

... enviar exitosamente varios mails, todos llegaron y con su respectivo archivo adjunto, pero... veo que cuando uno hace el llamado a ShellExecute( GetWndApp(), 0, ::cFileBat, 0, 0, SW_HIDE ), el control regresa instantáneamente al sistema y vuelve a enviar otro mail uno tras otro, tras otro... ...

... enviar exitosamente varios mails, todos llegaron y con su respectivo archivo adjunto, pero... veo que cuando uno hace el llamado a ShellExecute( GetWndApp(), 0, ::cFileBat, 0, 0, SW_HIDE ), el control regresa instantáneamente al sistema y vuelve a enviar otro mail uno tras otro, tras otro... ...

... SW_MAXIMIZE 3 #define SW_MINIMIZE 6 #define SW_RESTORE 9 #define SW_HIDE 0 #define SW_SHOWNA 8 */ #define SW_HIDE 0 //Traza( 1, ShellExecute( GetWndApp(), 0, ::cFileBat, 0, 0, SW_HIDE ) ) //ShellExecute( GetWndApp(), 0, ::cFileBat, 0, 0, SW_HIDE ) If lEspera WaitRun( ::cFileBat ) If .not. ...