Und dann sitzt man mal mit seinem Notebook irgendwo wo man kein Internet hat, oder die verbindung bricht ab, ...
Das passiert häufiger als du denkst.
Also ist das wirklich nicht so eine tolle Idee.
Da das ganze für Klassenkameraden ist, würde ich einfach keine Seriennummer einbauen. Was sollen die denn mit deinem Programm machen, wenn sie es eh kostenlos bekommen? Und verkaufen willst du es ja vmtl. auch nicht.
Wenn unbedingt eine sn, dann mach das doch einfach so in der Art:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
const
serial: String = #11#26#15#17#12#8#27#48#5#15#12#11; // Serial: 3B7940CX-743
var
sn: String;
i: Integer;
begin
sn := InputBox('Seriennummer', 'Bitte geben Sie hier ihre Seriennummer ein', '');
if Length(sn) <> Length(serial) then
Application.Terminate // GGf noch eine Meldung ausgeben
else
for i := 1 to Length(sn) do
if Ord(sn[i]) - 40 <> Ord(serial[i]) then
Application.Terminate;
// Bei Korrekter Eingabe einfach Serial + 40 o.a. speichern
end;
Das ist definitiv
nicht sicher, aber für deine Mitschüler reicht das sicherlich. Die eingegebene sn kannst du dann ja im in der Registry speichern (einfach +26 rechnen oder sowas).