Hi Alexander,
Very Thanks for your help !!
I have write this procedure:
//------------API per usare la funzione trial---------------------------------------trial_use est une Description d'APItrial_use.NomDLL = "TurboActivate.dll"trial_use.NomFonction = "UseTrial"trial_use.TypeRetour = apiEntierSystetrial_use.Paramre[1]..Type=apiChaeUnicode//-----------API per sapere quanti giorni restano di trial---------------------------p_trial_days est un entiergiorni est un entiertrial_days est une Description d'APItrial_days.NomDLL = "TurboActivate.dll"trial_days.NomFonction = "TrialDaysRemaining"trial_days.Paramre[1]..Type=apiChaeUnicodetrial_days.Paramre[2]..Type=apiEntierSystetrial_days.TypeRetour = apiEntierSyste//-------API per controllare via internet se l' applicazione attivata o meno------controllo_attivazione est un entier systeisActivate est une Description d'APIisActivate.NomDLL = "TurboActivate.dll"isActivate.NomFonction = "IsGenuine"isActivate.TypeRetour = apiEntierSysteisActivate.Paramre[1]..Type=apiChaeUnicode
controllo_attivazione=API(isActivate,VersionGUID)
SELON controllo_attivazione CASE 0 //' activated //IsActivated = True frm_limelm.Bouton1..Visible=Faux frm_limelm.txt_nome..Visible=Faux frm_limelm.txt_cognome..Visible=Faux frm_limelm.lbl_attivato="OK Prodotto Attivato" CASE 7 //' TA_E_GUID Info("GUID errato") CASE 8 //' TA_E_PDETS Info("Non riesco a caricare il file dat") CASE 11 //' TA_E_COM Info("inizializzazione errata") AUTRE CAS //IsActivated = False frm_limelm.Bouton1..Visible=Vrai frm_limelm.txt_nome..Visible=Vrai frm_limelm.txt_cognome..Visible=Vrai frm_limelm.lbl_non_attivato="Prodotto NON Attivato" p_trial_days = trial_days(VersionGUID,&giorni) IF p_trial_days = TA_OK THEN frm_limelm.lbl_giorni_restanti = giorni ELSE RESULT 0 END
FIN
The procedure function well,the turboactivate api retieve if my application is activated or not, but the demo days returned 0 but in my control panel i have set 4 days demo !Why ?
Best Regards,