Articles   Members Online:
-Article/Tip Search
-News Group Search over 21 Million news group articles.
-Delphi/Pascal
-CBuilder/C++
-C#Builder/C#
-JBuilder/Java
-Kylix
Member Area
-Home
-Account Center
-Top 10 NEW!!
-Submit Article/Tip
-Forums Upgraded!!
-My Articles
-Edit Information
-Login/Logout
-Become a Member
-Why sign up!
-Newsletter
-Chat Online!
-Indexes NEW!!
Employment
-Build your resume
-Find a job
-Post a job
-Resume Search
Contacts
-Contacts
-Feedbacks
-Link to us
-Privacy/Disclaimer
Embarcadero
Visit Embarcadero
Embarcadero Community
JEDI
Links
Undocumented: Delphi Visual Component Library Access License Turn on/off line numbers in source code. Switch to Orginial background IDE or DSP color Comment or reply to this aritlce/tip for discussion. Bookmark this article to my favorite article(s). Print this article
12-Sep-03
Category
Algorithm
Language
Delphi 5.x
Views
214
User Rating
No Votes
# Votes
0
Replies
0
Publisher:
DSP, Administrator
Reference URL:
DKB
			Author: Erwin Molendijk

Undocumented: Delphi Visual Component Library Access License 

Answer:

The SysUtils.pas unit contains some very interesting routines that are used by the 
VCL components to check if the correct version of Delphi is beeing used to compile 
the code (e.g. C/S components won't run if compiled with the Pro compiler). 

Here are the functions: 

1   function GDAL: LongWord;


Get Delphi Access License. Retreives the access licences resource. It checks if it 
is valid, if not an exception with the message 'Application is not licensed to use 
this feature' is raised. 
The returned value is the decrypted first Access Licence (AL1). 
2   
3   procedure RCS;


Perform a check to see there is a Delphi Client Server licence. An exception is 
raised if the license is not valid. 
4   
5   procedure RPR;


Perform a check to see there is a Delphi Pro licence. An exception is raised if the 
license is not valid. 

Other non exposed functions are: 

6   function AL1(const P): LongWord;
7   function AL2(const P): LongWord;


These two functions return the decrypted value of the license value specified by P. 
8   
9   procedure ALV;


Raises an Access Licence Violation exception. 
10  
11  function ALR: Pointer;


Access License Resource loader. Returns a pointer to the loaded access license. An exception is raised if the resource is not found. 

			
Vote: How useful do you find this Article/Tip?
Bad Excellent
1 2 3 4 5 6 7 8 9 10

 

Advertisement
Share this page
Advertisement
Download from Google

Copyright © Mendozi Enterprises LLC