Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
FLL creation problem
Message
De
18/11/2011 15:36:47
Emerson Reed
Folhamatic Tecnologia Em Sistemas
Americana - São Paulo, Brésil
 
 
À
18/11/2011 13:40:13
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Versions des environnements
Visual FoxPro:
VFP 9
OS:
Windows 7
Divers
Thread ID:
01529243
Message ID:
01529255
Vues:
52
Hi Borislav.
Here is the full code:

VC++

#include "stdafx.h"
#include "pro_ext.h"

// http://msdn.microsoft.com/en-us/library/windows/desktop/ms679347%28v=vs.85%29.aspx
void vfpFlashWindowEx (ParamBlk *parm)
{
HWND hWnd;
if (parm->p[0].val.ev_long==0)
{
hWnd = _WhToHwnd(_WMainWindow());
}
else
{
hWnd = _WhToHwnd(parm->p[0].val.ev_long);
}

FLASHWINFO info;
info.cbSize = sizeof(info);
info.hwnd = hWnd;
info.dwFlags = FLASHW_ALL;
info.dwTimeout = 0;
info.uCount = parm->p[1].val.ev_long;

_RetInt(FlashWindowEx(&info), 10);
}

FoxInfo myFoxInfo[] =
{
{"VFPFLASHWINDOWEX", (FPFI) vfpFlashWindowEx, 2, "I,I"},
};

extern "C" FoxTable _FoxTable =
{
(FoxTable *)0, sizeof(myFoxInfo)/sizeof(FoxInfo), myFoxInfo
};

VFP:

Set Library To VisualFoxProFLL.fll

Local lnHwnd
m.lnHwnd = 0
Try
Messagebox(vfpFlashWindowEx(m.lnHwnd,3))
Catch
Throw
Finally
Release Library VisualFoxProFLL.fll
Endtry

Return

I don't know how to debug... : (
Emerson Santon Reed
"One Developer CAN Make a Difference. A community CAN make a future." - Craig Boyd
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform