Hola:
驴Alguno tiene esta funci贸n?.
Muchas gracias de antemano.
FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40
Hola:
驴Alguno tiene esta funci贸n?.
Muchas gracias de antemano.
Antonio:
驴Por favor, me podr铆as decir c贸mo hacer la llamada en C?:
https://msdn.microsoft.com/en-us/librar ... 37(v=vs.85).aspx
https://theroadtodelphi.wordpress.com/2 ... tion-in-c/
http://www.purebasic.fr/english/viewtop ... =7t=52321
Muchas gracias. Un saludo muy cordial.
&#pragma BEGINDUMP
#include <Slpublic.h>
HB_FUNC( ISWINGENUINE )
{
聽 聽BOOL isGenuineWindows = FALSE;
聽 聽SLID windowsSlid = { 0 };
聽 聽//Application ID GUID <!-- m --><a class="postlink" href="http://technet.microsoft.com/en-us/library/dd772270.aspx;">http://technet.microsoft.com/en-us/libr ... 2270.aspx;</a><!-- m -->
聽 聽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 ENDDUMPHola Manuel:
Much铆simas gracias, voy a probarlo en un equipo pirata.
驴No se puede hacer una llamada a slwga.dll?.
Un saludo muy cordial,
Hola Manuel:
La funci贸n funciona perfecta.
El problema de enlazar la librer铆a es que el ejecutable no funcionar谩 en Windows XP, porque esta funcionalidad no est谩 soportada en dicho SO.
Con la llamada a .a dll es posible verificar antes de llamar a la funci贸n si existe dicha dll en \Windows\system32.
Master,
Header - Slpublic.h donde pudeo bajar?
Gracias.
Lo tienes en BCC6xx o en MSVC2010.