procedure
CreateLicense;
var
result:
Integer
;
serial:
WideString
;
begin
serial := StringOfChar(' ', 128);
result := CreateLicenseW(
PChar
('OEM_EMAIL'),
PChar
('OEM_KEY'),
PChar
('CUSTOMER_ID'), UNIT_COUNT,
PWideChar
(serial));
// Check result
end
;
private
void
CreateLicense()
{
StringBuilder sn = new StringBuilder(128);
int
result = CreateLicenseW("OEM_EMAIL", "OEM_KEY",
"CUSTOMER_ID", UNIT_COUNT), sn);
string
serial = "";
// Check result
if
(result == 0)
{
serial = sn.ToString().Trim();
}
else
{
// Error
}
}