Einzelnen Beitrag anzeigen

m-werk

Registriert seit: 14. Jun 2002
215 Beiträge
 
Delphi 2009 Architect
 
#35
  Alt 17. Jun 2002, 20: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
  Mit Zitat antworten Zitat