Forum: Sonstige Fragen zu Delphi
Delphi
by m-werk,
17. Jun 2002
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
Forum: Sonstige Fragen zu Delphi
Delphi
by m-werk,
15. Jun 2002
Hi, ich habe deinen Code von 'thomasdrewermann' jetzt drinn. Nun kommen folgende Fehlermeldungen:
if CheckCode(StrToInt(serial), 25, 7)=true then
Hauptmenue.pas(387): Inkompatible Typen: 'String' und 'Integer'
if CheckCode(a,25, 7)= false then
Hauptmenue.pas(400): Inkompatible Typen: 'String' und 'Integer'
if CheckCode(strtoint(serial),25, 7)=true then
...
Forum: Sonstige Fragen zu Delphi
Delphi
by m-werk,
15. Jun 2002
Hi, ich hab in die procedure von oncreate folgenden Code jetzt drinn:
procedure TKundendaten.FormCreate(Sender: TObject);
begin
if (not CheckCode(IntToStr(a), 25, 7)) then
RegisterApp(..)
else
Application.Terminate;
end;
Forum: Sonstige Fragen zu Delphi
Delphi
by m-werk,
15. Jun 2002
Wie die überprüfung geht, weiß ich ja, aber ich weiß nicht wo ich diese genau hinsetzen soll?
Überprüfung
If CheckCode(IntToStr(a), 25, 7)) = False then
Das muß meines wissens nach die überprüfung sein. Nur wo setze ich diese hin:
procedure TKundendaten.FormCreate(Sender: TObject);
begin
Forum: Sonstige Fragen zu Delphi
Delphi
by m-werk,
15. Jun 2002
So, nun habe ich den code von 'thomasdrewermann' verwendet, (dieser erscheint mir einleuchtend).
Leider hab ich dazu noch ein problem. Also, wenn ich die richtige Seriennummer eingegeben habe, dann wird diese auch richtig in der Registry gespeichert und das Programm funktioniert einwandfrei. Auch dann wenn ich es nochmals starte.
Aber wenn ich jetzt den falschen Code eingebe, dann wird...
Forum: Sonstige Fragen zu Delphi
Delphi
by m-werk,
14. Jun 2002
Hi, kann ich das so machen:
if inputbox = CheckCode(IntToStr(a),25, 7) then
Application.ShowMainForm := True;
Forum: Sonstige Fragen zu Delphi
Delphi
by m-werk,
14. Jun 2002
Hallo, ich habe nun folgendes probiert (siehe code unten). Dies würde ja super funktionieren, aber ich möchte bei der Inputbox eine überprüfung einbauen. Kann man das überhaupt machen? Die überprüfung soll so sein wie sie zum schluß meines Codes auch ist. Ich meine so eine IF then else abfrage. Geht dass überhaupt mit inputbox?
Grund ist folgender. Ich kann in die Inputbox einen beliebigen...
Forum: Sonstige Fragen zu Delphi
Delphi
by m-werk,
14. Jun 2002
Hallo Leute, hab folgendes Problem: Ich habe für mein Programm eine Registrierung eingebaut, die der User beim 1. Start des Programmes eigeben muß. Diese wird in der Regedit gespeichert. Wenn der User aber ein weiteres mal in das Programm einsteigt, dann soll die Registrierunsform (Keyform) nicht mehr erscheinen, aber dass Programm soll trotzdem bei jedem Start die Registrierung überprüfen.
...