unit RadLicense;
interface
uses RadVersion,SysUtils;
function CreateLicenseText(SerialNumber,ActiveCode:string;RadStudioVersion:PRadStudioVersion):string;
implementation
function CreateLicenseText(SerialNumber,ActiveCode:string;RadStudioVersion:PRadStudioVersion):string;
var
pid,skuid:string;
begin
pid:=IntToStr(RadStudioVersion^.LicHostPID);
skuid:=IntToStr(RadStudioVersion^.LicHostSKU);
Result:='11'#10;
Result:=Result+'e.pkg'#10'RAD Studio '+ RadStudioVersion^.LicVerStr +' Architect'#10;
Result:=Result+'e.pt'#10'10'#10;
Result:=Result+'e.sign'#10'0'#10;
Result:=Result+'e.sign2'#10'0'#10;
Result:=Result+'e.sign3'#10'0'#10;
Result:=Result+'export.allowed'#10'0'#10;
Result:=Result+'import.allowed'#10'1'#10;
Result:=Result+'import.silent'#10'1'#10;
Result:=Result+'licensed.serialno'#10+SerialNumber+#10;
Result:=Result+'nodelock.node'#10'0'#10;
Result:=Result+'nodelock.session'#10+ActiveCode+#10;
