Die Auswertung müsste aufjedenfall OK sein, da ich einen Button mit mrOK momentan Manuell ohne Lizenzabfrage betätige.
Delphi-Quellcode:
procedure TTFLizenz.Button1Click(Sender: TObject);
var
Lizenzkey : Boolean;
begin
Lizenzkey := false;
if Lizenzkey = true then
begin
BTmrOK.Click;
end
else
ShowMessage('Die Seriennummer oder Lizenznummer stimmen nicht mit der Lizenzdatei überein,'+#13#10+
'oder es ist keine gültige Lizenzdatei vorhanden!'+#13#10+
'Nutzen Sie Print/Save als DEMOVERSION oder Versuchen Sie es erneut');
TFLizenz.Close;
end;
Den Button BTmrOK mit dem ModalResult mrOK betätige ich nicht über die Funktion oben sondern Manuell.