DEFINE DDE problem

[Romeo]

Hi,
i have a problem with INSTALL.PRG program of sample dir.

It gives me the message:

DDE Object not properly initialized!

But the same program works very well in previous release of Fwin/32

My actual release: 16.02
My previous release: 8.10

Hear there is a very simple prg to show the problem with 16.02 release of Fwin/32

**INIT PRG*****************************

#include "FiveWin.ch"

*
function Main()
local oWnd
local cTarget := "c:\FiveWin16"
SET _3DLOOK ON

DEFINE WINDOW oWnd title "windows"

ACTIVATE WINDOW oWnd MAXIMIZED ;
ON INIT (buildgroup(cTarget),ownd:end())

return nil
*
function BuildGroup(fold)
local oDde

DEFINE DDE oDde SERVICE "Progman" TOPIC "Progman"

ACTIVATE DDE oDde
oDde:Execute( "[DeleteGroup( FiveWin 16 )]" )
oDde:Execute( "[CreateGroup( FiveWin 16 )]" )
oDde:Execute( "[ShowGroup( FiveWin 16, 1 )]" )
oDde:Execute( "[AddItem(" + fold + "\Readme.txt, Readme.txt )]" )
RELEASE DDE oDde

return nil
*
**** END PRG *****

Any help ?

Tks

[Antonio Linares]

Romeo,

I just tested your example with FWH 16.12 and Windows 10 and it seems to work fine and no error appears

What Windows version are you using ?

[Romeo]

Ops,

I run it with Windows7/32

Monday i will tr widh Windows 10

...but io get non problem with windows7/32

Let you know
Tks

[Antonio Linares]

There was a bug in DDE in FWH 16.02 that was fixed later on:

This is the right code:

Code: Select all  Expand view

METHOD Activate() CLASS TDde

   nLastMsg = WM_DDE_INITIATE

   SendMessage( 0xFFFF, WM_DDE_INITIATE, GetWndApp(),;
                nMakeLong( ::nService, ::nTopic ) )

return nil

[Romeo]

Now it works well !

Thanks Antonio