dle(glob,'Anything for 30-day trial');
if (success <> True) then
begin
Memo1.Lines.Add(CkGlobal__lastErrorText(glob));
Exit;
end;
status := CkGlobal_getUnlockStatus(glob);
if (status = 2) then
begin
Memo1.Lines.Add('Unlocked using purchased unlock code.');
end
else
begin
Memo1.Lines.Add('Unlocked in trial mode.');
end;
// The LastErrorText can be examined in the success case to see if it was unlocked in
// trial more, or with a purchased unlock code.
Memo1.Lines.Add(CkGlobal__lastErrorText(glob));
CkGlobal_Dispose(glob);
end;
成功:
|