HexToBuffer(ReleaseCodeString, TarihLisansSifresi , SizeOf(TarihLisansSifresi));
Expires := GetExpirationDate(MachineKey, TarihLisansSifresi);
çözdük şimdi ise sıkıntım şu HelloWord te hiç Unregistered Demo! olmuyor. galiba CalculatedReleaseCode de prblem var bunu nasıl çözebilirim kafayı yemek üzereyim yardım edin
function IsReleaseCodeValid (ReleaseCodeString: string; const SerialNumber : longint) : boolean;
var
CalculatedReleaseCode : TCode;
TarihLisansSifresi: TCode;
begin
// Remove spaces from the Release code
while pos(' ', ReleaseCodeString) > 0 do
System.Delete(ReleaseCodeString, pos(' ', ReleaseCodeString), 1);
HexToBuffer(ReleaseCodeString, TarihLisansSifresi , SizeOf(TarihLisansSifresi));
Expires := GetExpirationDate(MachineKey, TarihLisansSifresi);
// Calculate the release code based on the serial number and the calculated machine modifier
InitSerialNumberCode(MachineKey, SerialNumber, Expires, CalculatedReleaseCode);
// Compare the two release codes
result := AnsiUpperCase(ReleaseCodeString) = AnsiUpperCase(BufferToHex(CalculatedReleaseCode, sizeof(CalculatedReleaseCode)));
end;