Hola:
¿Alguno tiene esta función?.
Muchas gracias de antemano.
#pragma BEGINDUMP
#include <Slpublic.h>
HB_FUNC( ISWINGENUINE )
{
BOOL isGenuineWindows = FALSE;
SLID windowsSlid = { 0 };
//Application ID GUID http://technet.microsoft.com/en-us/libr ... 2270.aspx;
HRESULT hr = CLSIDFromString(L"{55c92734-d682-4d71-983e-d6ec3f16059f}", (LPCLSID)&windowsSlid);
if (hr == S_OK)
{
SL_GENUINE_STATE genuineState = SL_GEN_STATE_LAST;
hr = SLIsGenuineLocal(&windowsSlid, &genuineState, NULL);
if (hr == S_OK)
isGenuineWindows = (genuineState == SL_GEN_STATE_IS_GENUINE);
}
hb_retl(( BOOL) isGenuineWindows) ;
}
#pragma ENDDUMP
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 30 guests