Registriert seit: 14. Jun 2002
215 Beiträge
Delphi 2009 Architect
|
17. Jun 2002, 21:04
Hi, ich glaube jetzt funktioniert es so wie es soll.
Ich habe nur noch was umgebaut.
if serial ='' then
application.terminate else
diese if serial habe ich beidemale ausgetauscht auf folgenden code:
if CheckCode(serial,25, 7)= false then
application.Terminate else
Grund war folgender. Wenn ich in die Inputbox z.B. nur '1234' eingegeben habe, dann ist zwar nichts in der Registry gestanden, aber das Programm hat sich trotzdem geöffnet.
Mit der Überprüfung, die ja immer sein soll, geht das jetzt nicht mehr.
Ich teste jetzt noch ne weile, aber fürs erste sieht es jetzt gut aus.
Sollte noch etwas nicht funktionieren betreffend der Inputbox, dann werde ich mich wieder melden.
Ich sage allen die mir geholfen haben DANKE, DANKE, DANKE
Grüße, m-werk
|