TWindowsStore

[Michael II]

Weiss jemand, ob man TWindowsStore wiederholt zur Laufzeit erzeugen kann? Oder führt dies zu Problemen?

http://docwiki.embarcadero.com/RADSt...tore_Component

Delphi-Quellcode:

function TSwissJassForm.UWPOK( var LRemainingTrialDays : integer ) : integer;
// -1 : Fehler, 0 : AppLicense.isActive=false, 1 : Trial, 2 : Voll
var
  WindowsStore1 : TWindowsStore;
  res : integer;

begin
  res := -1;
  LRemainingTrialDays := -1;
try
  WindowsStore1 := TWindowsStore.Create( self );
 try
  if WindowsStore1.AppLicense.IsActive then
  begin
    if WindowsStore1.AppLicense.IsTrial then
    begin
      LRemainingTrialDays := WindowsStore1.AppLicense.TrialTimeRemaining.Days;
      res := 1;
    end
    else
    begin
      res := 2;
    end;
  end
  else
  begin
    res := 0;
  end;
  // http://docwiki.embarcadero.com/RADStudio/Rio/en/Using_the_WindowsStore_Component
 finally
  WindowsStore1.Free;
 end;
except
  ShowMessage( 'Swiss Jass!! kann WindowsStore.AppLicense nicht lesen.' );
end;
 Result := res;
end;

Wenn die Testzeit abgelaufen ist, dann gibt die Funktion 0 zurück (und nicht 1 und LRemainingTrialDays<=0)?

Microsoft will neu für Spiele auch "nicht UWP Apps" erlauben. Hat jemand von euch ein Spiel im Windows Store und bereits umgestellt?