Getting errors with FWH 2.7 July Build

Getting errors with FWH 2.7 July Build

Postby RAMESHBABU » Sat Jul 22, 2006 4:03 pm

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


Image


#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"

**********
User avatar
RAMESHBABU
 
Posts: 624
Joined: Fri Oct 21, 2005 5:54 am
Location: Secunderabad (T.S), India

Postby Antonio Linares » Sat Jul 22, 2006 4:24 pm

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.
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42099
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 87 guests