FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour funci贸n para saber si el sistema operativo es original o no
Posts: 838
Joined: Wed Aug 22, 2007 10:09 AM
funci贸n para saber si el sistema operativo es original o no
Posted: Sat May 09, 2015 08:52 AM

Hola:

驴Alguno tiene esta funci贸n?.

Muchas gracias de antemano.

Saludos / Regards,



FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: funci贸n para saber si el sistema operativo es original o no
Posted: Sun May 10, 2015 10:23 AM
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 838
Joined: Wed Aug 22, 2007 10:09 AM
Re: funci贸n para saber si el sistema operativo es original o no
Posted: Sun May 10, 2015 12:16 PM

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.

&
Saludos / Regards,



FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: funci贸n para saber si el sistema operativo es original o no
Posted: Sun May 10, 2015 03:20 PM
Esta es la funci贸n a usar, ahora hay que ver como pasarle los par谩metros que solicita:

https://msdn.microsoft.com/en-us/library/windows/desktop/aa965837%28v=vs.85%29.aspx
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1516
Joined: Thu May 27, 2010 02:06 PM
Re: funci贸n para saber si el sistema operativo es original o no
Posted: Mon May 11, 2015 10:34 AM
a mi me dice que es verdadero , seria bueno mirar con uno falso para saber si funciona ...
Se tiene que enlazar slwga.lib al programa .
Code (fw): Select all Collapse
#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 ENDDUMP
Posts: 838
Joined: Wed Aug 22, 2007 10:09 AM
Re: funci贸n para saber si el sistema operativo es original o no
Posted: Mon May 11, 2015 01:12 PM

Hola Manuel:

Much铆simas gracias, voy a probarlo en un equipo pirata.

驴No se puede hacer una llamada a slwga.dll?.

Un saludo muy cordial,

Saludos / Regards,



FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40
Posts: 838
Joined: Wed Aug 22, 2007 10:09 AM
Re: funci贸n para saber si el sistema operativo es original o no
Posted: Mon May 11, 2015 01:41 PM

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.

Saludos / Regards,



FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: funci贸n para saber si el sistema operativo es original o no
Posted: Mon May 11, 2015 01:56 PM

Master,

Header - Slpublic.h donde pudeo bajar?

Gracias.

Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 838
Joined: Wed Aug 22, 2007 10:09 AM
Re: funci贸n para saber si el sistema operativo es original o no
Posted: Mon May 11, 2015 02:07 PM

Lo tienes en BCC6xx o en MSVC2010.

Saludos / Regards,



FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40

Continue the discussion