ApplicationCheckDongle

Top  Previous  Next

Prototype

 

strDongleSerial:=ApplicationCheckDongle()

 

Description

 

Verify if exists a dongle connected to the computer and returs serial number.

 

Parameters

 

none.

 

Returned value

 

The dongle serial number if exists or nothing if no dongle is connected.

 

Notes

 

This function can allow you to protect unhautorized scripts usage if you distribute your script encrypted.

 

Example

 

// Check if a valid script license exists

if ApplicationCheckDongle = '1234' then

begin

 ApplicationLog('This script is licensed for this dongle !');

 // Put the script code to be executed here...

 // ...

end

else

begin

 ApplicationLog('This script is NOT licensed for this dongle or dongle is not connected !');

end;