tæller

du kan gemme en tæller i registerings databasen.

Jens B

ja ja men hvordan
tak

Kig på klassen TRegistry.

Jens B

prøv sådan:

procedure TForm1.FormCreate(Sender: TObject);
var
reg : TReginifile;
antal : String;
begin
reg := TReginifile.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
antal := reg.ReadString(\'Software\\Antal start\', \'Antal\', \'0\');

if strtoint(antal) < 100 then
begin
reg.WriteString(\'Software\\Antal start\', \'Antal\', inttostr(strtoint(antal) + 1));
Showmessage(\'Du kan godt bruge programmet.\');
end
else
begin
Showmessage(\'Du har brugt programmet mere end 100 gange, så lukker nu\');
Form1.Destroy;
end;
reg.free;
end;

/ZIRON

Hej ZIRON jeg kan ikke få det til at kører den skriver
[Error] dka.pas(44): Undeclared identifier: \'TReginifile\'
[Error] dka.pas(47): Missing operator or semicolon
[Error] dka.pas(48): Missing operator or semicolon
[Error] dka.pas(49): Missing operator or semicolon
[Error] dka.pas(53): Missing operator or semicolon
[Error] dka.pas(63): \';\' expected but \'.\' found
[Error] dka.pas(66): Declaration expected but end of file found
[Fatal Error] kda1.dpr(12): Could not compile used unit \'dka.pas\'