Erstmals vielen Dank an Meflin für seine ausführliche Beschreibung....
komme nun aber nicht wirklich recht weiter mit dem ganzen. den unten stehender Code (den ich von irgendwo, ein wenig abgeändert habe) generiert mir nun meinen Key (zufall) denn ich auch brauche. (Sicherheit ist im mom nicht so wichtig)
Wie kann ich es nun bewerkstelligen, dass ich die Abfrage im meinem Programm erhalte? Heisst:
Prog. wird gestartet, die Abfrage für den Key soll kommen, wenn nicht Registriert dann eintrag in die Windows Registry, wenn schon Registriert keine weiteren meldungen und Prog. kann ohne weiteres gestartet werden...
Delphi-Quellcode:
unit Code;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, Mask, DBGrids;
type
TForm1 =
class(TForm)
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
GroupBox1: TGroupBox;
Label6: TLabel;
Label7: TLabel;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function RandomPassword(PLen:Integer):
String;
var
str:
String;
begin
Randomize;
//string with all possible chars
str:='
ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890';
Result:='
';
repeat
Result:=Result+str[Random(Length(str))+1];
until(Length(Result)=PLen)
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
//generate a password with 16 chars
Label1.Caption:=RandomPassword(4);
Label2.Caption:=RandomPassword(4);
Label3.Caption:=RandomPassword(4);
Label7.Caption:=RandomPassword(4);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
end;
end.
noch etwas zu diesem Code, hier werden lediglich zufalls zahlen generiert. Wäre es mit diesem Code auch möglich die Zahlen durch einen Namen zu generieren lassen?
ThX
Duffy Duck
PS: Für dich Meflin wird es Peanuts sein, für mich ist es bis hierher schon ein risiges Erfolgserlebnis...
))