FiveTech Support Forums

Hi Mr.Antonio

The following code was working upto FWH 2.7 June 2006 Build. When I updated my FWH 2.7 June build with FWH 2.7 July build, I started getting
errors as under. I am using the latest xHarbour supplied with FWH 2.7 July 2006.

- Ramesh Babu P





#include "fivewin.ch"

FUNCTION taskbar_on(ison, lFree)

LOCAL hwnd := FindWndByClass("Shell_TrayWnd", "")

IF ison
ShowWindow(hwnd,5)
ELSE
ShowWindow(hwnd,0)
ENDIF

IF lFree
FreeLib32("user32.dll")
ENDIF

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"

**********

Ramesh,

Your posted code works fine. It may be something related with the MDI you are using. Please post a self contained and reduced sample to reproduce the error, Thanks.