【控件功能】我来做练习-第59课-软件注册机的实现

大龙软件研发

于 2024-05-09 04:41:55 发布

阅读量642

点赞数 10

分类专栏：编程软件控件研究文章标签： DELPHI 注册机

本文链接：https://blog.csdn.net/reson100/article/details/138593634

版权

这篇博客介绍了如何使用Delphi编程实现一个简单的软件注册机，包括读取和验证机器码，生成注册码，以及注册文件的处理。通过示例代码展示了在不同注册方式下，如注册码注册和注册文件注册的实现细节。

摘要由CSDN通过智能技术生成

文章目录

- 软件注册机的实现
- 核心源码

软件注册机的实现

提示：这里可以添加技术概要
请添加图片描述

核心源码

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
PageControl1.ActivePageIndex := ComboBox1.ItemIndex;
case ComboBox1.ItemIndex of
0…1:begin
SpeedButton1.Visible := False;
SpeedButton3.Caption := ‘注册’;
end;
2:begin
SpeedButton1.Visible := True;
SpeedButton3.Caption := ‘保存’;
end;
end;
end;

procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text := NBGetAdapterAddress(0);
Edit4.Text := NBGetAdapterAddress(0);
Edit7.Text := NBGetAdapterAddress(0);
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if Edit7.Text = ‘’ then
begin
ShowMessage(‘请输入机器码！’);
Exit;
end;
if Edit8.Text = ‘’ then
begin
ShowMessage(‘请输入用户名！’);
Exit;
end;
Edit9.Text := GenRegCode(Edit1.Text);
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
case ComboBox1.ItemIndex of
0:begin //第一部分，以注册码注册软件
if Edit1.Text = ‘’ then
begin
ShowMessage(‘请输入机器码！’);
Exit;
end;
if Edit2.Text = ‘’ then
begin
ShowMessage(‘请输入用户名！’);
Exit;
end;
if Edit3.Text = ‘’ then
begin
ShowMessage(‘请输入注册码！’);
Exit;
end;
if Edit8.Text <> Edit2.Text then
begin
ShowMessage(‘用户名不正确！’);
Exit;
end;
if Edit3.Text = GenRe