Inno Setup安装验证+注册机

1.安装文件验证

[Setup]
UserInfoPage=true

[Code]
var HDSerial: LongInt;

function GetVolumeInformation(
  lpRootPathName: PChar;
  lpVolumeNameBuffer: PChar;
  nVolumeNameSize: LongInt; 
  var lpVolumeSerialNumber: LongInt;
  lpMaximumComponentLength: LongInt;
  lpFileSystemFlags:LongInt;
  lpFileSystemNameBuffer:PChar;
  nFileSystemNameSize:LongInt ):Integer;
external 'GetVolumeInformationA@kernel32.dll stdcall';

function GetLastError():Integer;
external 'GetLastError@kernel32.dll stdcall';


function GenMachineID(SerialNum: LongInt): String;
var 
  SN: LongInt; MID, tmp1, tmp2: string;
begin
 // 生成机器码数字处请自行修改  
 if SerialNum > 532178923 then  
    SN:= SerialNum-532178923  
  else    
    SN:= 532178923-SerialNum;  
  tmp1:= IntToStr(SN);  
  while length(tmp1)>3 do    
    begin  
    tmp2:= copy(tmp1,1,3);  
    delete(tmp1,1,3);  
    MID:= MID+Chr(65+StrToInt(tmp2)*26/999)+tmp2;  
    end;  
    MID:= MID+Chr(65+StrToInt(tmp1)*26/999)+tmp1; 
    tmp1:= MID;  MID:= '';  
    while length(tmp1)>3 do  
      begin   
      tmp2:= copy(tmp1,1,3);  
      delete(tmp1,1,3); 
      MID:= MID+tmp2+'-'; 
      end;  MID:= MID+tmp1; 
      If SerialNum > 532178923 then  
      MID:='6J7-'+MID  else  
      MID:='V94-'+MID;result:= MID;
      end;

function GenRegCode(SerialNum: LongInt): String;
 var MID,tmp1,tmp2: string;   
 SN: LongInt;
 begin// 生成注册码 
  if SerialNum > 537698023 then   
  SN:= SerialNum-537698023  else  
  SN:= 537698023-SerialNum; 
  MID:=''; 
  tmp1:= IntToStr(SN);  
  while length(tmp1)>3 do  
  begin   
  tmp2:= copy(tmp1,1,3);  
  delete(tmp1,1,3);  
  MID:= MID+Chr(65+StrToInt(tmp2)*26/999)+tmp2;  
  end;  MID:= MID+Chr(65+StrToInt(tmp1)*26/999)+tmp1; 
  tmp1:= MID;  MID:= '';  
  while length(tmp1)>3 do  
  begin  
  tmp2:= copy(tmp1,1,3); 
  delete(tmp1,1,3);  
  MID:= MID+tmp2+'-';   
  end;  
  MID:= MID+tmp1; 
  If SerialNum > 537698023 then  
  MID:='3P6-'+MID  else  
  MID:='X5B-'+MID;
  result:= MID;
  end;

procedure InitializeWizard();
begin 
  WizardForm.USERINFOSERIALLABEL.top:= WizardForm.USERINFOORGLABEL.top+2*(WizardForm.USERINFOORGLABEL.top - WizardForm.USERINFONAMELABEL.top);
  WizardForm.USERINFOSERIALEDIT.top := WizardForm.USERINFOORGEDIT.top+2*(WizardForm.USERINFOORGEDIT.top - WizardForm.USERINFONAMEEDIT.top);
  WizardForm.USERINFOSERIALLABEL.Font.Color:= clblack;
  WizardForm.UserInfoOrgEdit.Visible:=False;    //隐藏机构
  WizardForm.UserInfoOrgLabel.Visible:=False;   //隐藏机构输入框
end;

procedure curpagechanged(curpage: integer);
var IDLabel, RegAdr, RegURL: TLabel; 
IDEdit: TEdit; 
RefDisk,DiskLabel:String;
begin 
  if curpage = wpUserInfo then
    begin   
    if DirExists('C:\') then   
    RefDisk:= 'C:\'    else    
    RefDisk:= 'D:\'; 
    DiskLabel:= '                '; 
    GetVolumeInformation(RefDisk, DiskLabel, 15, HDSerial, 0, 0, '', 0);
    IDLabel:= TLabel.Create(WizardForm);  
    IDLabel.parent:= WizardForm.USERINFONAMELABEL.parent;  
    IDLabel.top:= WizardForm.USERINFONAMELABEL.top+2*(WizardForm.USERINFOORGLABEL.top - WizardForm.USERINFONAMELABEL.top); 
    IDLabel.left:= WizardForm.USERINFOSERIALLABEL.left; 
    IDLabel.autosize:= true; 
    IDLabel.font.color:= clblack; 
    IDLabel.caption:= '机器码:';
    RegAdr:= TLabel.Create(WizardForm);  
    RegAdr.parent:= WizardForm.USERINFONAMELABEL.parent; 
    RegAdr.top:= WizardForm.USERINFOSERIALLABEL.top+(WizardForm.USERINFOORGLABEL.top - WizardForm.USERINFONAMELABEL.top)-7; 
    RegAdr.left:= WizardForm.USERINFOSERIALLABEL.left + 220; 
    RegAdr.autosize:= true; 
    RegAdr.caption:= '注册请联系:XXXXXX';
    IDEdit:= TEdit.Create(WizardForm);  
    IDEdit.parent:= WizardForm.USERINFONAMEEDIT.parent; 
    IDEdit.top:= WizardForm.USERINFONAMEEDIT.top+2*(WizardForm.USERINFOORGEDIT.top - WizardForm.USERINFONAMEEDIT.top); 
    IDEdit.left:= WizardForm.USERINFOSERIALEDIT.left;  
    IDEdit.width:= WizardForm.USERINFOSERIALEDIT.width; 
    IDEdit.readonly:= true; 
    IDEdit.color:= clGray; 
    IDEdit.text:= GenMachineID(HDSerial); 
    end;
end;

function CheckSerial(Serial: string): Boolean;
begin result:= (Serial=GenRegCode(HDSerial)) 
or (UpperCase(Serial)='WWW.HANZIFY.ORG');
end;

2.注册机

[Setup]
AppName=xx注册机
AppVerName=xx注册
CreateAppDir=no
DisableProgramGroupPage=yes
DefaultGroupName=xx
UserInfoPage=true
OutputBaseFilename=注册机
OutputDir=.

[Messages]
UserInfoName=机器码:UserInfoORg=硬件码:UserInfoSerial=注册码:WizardUserInfo=HRV注册机UserInfoDesc=输入注册码程序将自动计算出注册码。

BeveledLabel=xxxSetupAppTitle=注册机SetupWindowTitle=xxx注册机

[Code]
{ RedesignWizardFormBegin } // 不要删除这一行代码。// 不要修改这一段代码，它是自动生成的。
var  NewButton1: TNewButton;  Label1: TLabel;  Label2: TLabel;  Label3: TLabel;  OldEvent_UserInfoNameEditChange: TNotifyEvent;  NewButton2: TNewButton;  Panel4: TPanel;  Label4: TLabel;  OldEvent_CancelButtonClick: TNotifyEvent;

procedure NewButton1Click(Sender: TObject); forward;
procedure UserInfoNameEditChange(Sender: TObject); forward;
procedure NewButton2Click(Sender: TObject); forward;
procedure _CancelButtonClick(Sender: TObject); forward;
procedure RedesignWizardForm;

begin  
  with WizardForm do  
  begin  Caption := 'xx注册机'; 
   AutoScroll := False;  
   ClientHeight := ScaleY(192);   
   ClientWidth := ScaleX(299);  
  end;

  { NewButton1 }  
  NewButton1 := TNewButton.Create(WizardForm);  
  with NewButton1 do  
  begin   
  Parent := WizardForm.WelcomePage;  
  Left := ScaleX(304);    
  Top := ScaleY(144);    
  Width := ScaleX(81);    
  Height := ScaleY(25);    
  Caption := 'NewButton1';    
  OnClick := @NewButton1Click;  
  end;

  NewButton1.TabOrder:= 2;
  with WizardForm.InnerPage do 
  begin    
  Cursor := crHand;    
  Color := clSilver;  end;

  with WizardForm.Bevel1 do  
  begin    
  Left := ScaleX(392);    
  Top := ScaleY(66);    
  Width := ScaleX(435);  end;

  { Label1 }  
  Label1 := TLabel.Create(WizardForm);  
  with Label1 do  
  begin   
  Parent := WizardForm.InnerPage;    
  Caption := '机器码:';    
  Transparent := False;    
  Left := ScaleX(56);    
  Top := ScaleY(88);    
  Width := ScaleX(42);    
  Height := ScaleY(12);  
  end;

  { Label2 }  
  Label2 := TLabel.Create(WizardForm);  
  with Label2 do  
  begin    
  Parent := WizardForm.InnerPage;    
  Caption := '机器码:';    
  Transparent := False;    
  Left := ScaleX(0);    
  Top := ScaleY(88);    
  Width := ScaleX(42);    
  Height := ScaleY(12);  
  end;

  { Label3 }  
  Label3 := TLabel.Create(WizardForm);  
  with Label3 do  
  begin    
  Parent := WizardForm.InnerPage;    
  Caption := '注册码:';    
  Transparent := False;    
  Left := ScaleX(0);    
  Top := ScaleY(120);    
  Width := ScaleX(42);    
  Height := ScaleY(12);  
  end;

  with WizardForm.LicenseLabel1 do  
  begin   
  Left := ScaleX(200);    
  Top := ScaleY(136);  
  end;

  with WizardForm.UserInfoPage do  
  begin    
  Color := clSilver;  
  end;

  with WizardForm.UserInfoSerialLabel do  
  begin    
  Caption := '注册码:';    
  Left := ScaleX(304);    
  Top := ScaleY(120);    
  Width := ScaleX(49);    
  Height := ScaleY(12);  
  end;

  with WizardForm.UserInfoOrgEdit do  
  begin    Left := ScaleX(376);    
  Top := ScaleY(48);    
  Width := ScaleX(0);    
  Visible := False;  
  end;

  with WizardForm.UserInfoNameLabel do  
  begin    
  Caption := '';    
  FocusControl := nil    
  Left := ScaleX(264);    
  Width := ScaleX(153);  
  end;

  with WizardForm.UserInfoOrgLabel do  
  begin    
  Caption := '';    
  Left := ScaleX(416);    
  Top := ScaleY(70);    
  Width := ScaleX(65);  
  end;

  with WizardForm.UserInfoNameEdit do 
  begin    
  Left := ScaleX(8);    
  Top := ScaleY(16);    
  Width := ScaleX(169);    
  OldEvent_UserInfoNameEditChange:=OnChange;    
  OnChange := @UserInfoNameEditChange;  
  end;

  with WizardForm.UserInfoSerialEdit do  
  begin    
  Left := ScaleX(8);    
  Top := ScaleY(48);    
  Width := ScaleX(169);  
  end;

  { NewButton2 }  
  NewButton2 := TNewButton.Create(WizardForm);  
  with NewButton2 do  
  begin    
  Parent := WizardForm.UserInfoPage;    
  Left := ScaleX(184);    
  Top := ScaleY(16);    
  Width := ScaleX(57);    
  Height := ScaleY(52);    
  Caption := '退出';    
  OnClick := @NewButton2Click;  
  end;

  NewButton2.TabOrder := 6;

  with WizardForm.MainPanel do  
  begin    
  Height := ScaleY(44);    
  Color := cl3DLight;  
  end;

  with WizardForm.PageDescriptionLabel do  
  begin    
  Left := ScaleX(8);    
  Top := ScaleY(19);    
  Height := ScaleY(13);  
  end;

  with WizardForm.PageNameLabel do  
  begin    
  AutoSize := True;    
  Visible := False;    
  Left := ScaleX(280);    
  Top := ScaleY(-15);    
  Width := ScaleX(8);  
  end;

  { Panel4 }  
  Panel4 := TPanel.Create(WizardForm);  
  with Panel4 do  
  begin    
  Parent := WizardForm.InnerPage;    
  Left := ScaleX(0);    
  Top := ScaleY(152);    
  Width := ScaleX(417);    
  Height := ScaleY(57);    
  Color := cl3DLight;    
  ParentBackground := False;  
  end;

  { Label4 }  
  Label4 := TLabel.Create(WizardForm);  
  with Label4 do  
  begin    
  Parent := Panel4;    
  Caption := '版权所有:xxx';    
  Transparent := False;    
  Left := ScaleX(8);    
  Top := ScaleY(8);    
  Width := ScaleX(102);    
  Height := ScaleY(12);  
  end;

  Panel4.TabOrder := 2;
  with WizardForm.CancelButton do  
  begin    
  Left := ScaleX(337);    
  Top := ScaleY(446);    
  OldEvent_CancelButtonClick := OnClick;    
  OnClick := @_CancelButtonClick;  
  end;

{ ReservationBegin }  // 这一部分是提供给你的，你可以在这里输入一些补充代码。

{ ReservationEnd }
end;// 不要修改这一段代码，它是自动生成的。{ RedesignWizardFormEnd } // 不要删除这一行代码。

procedure UserInfoNameEditChange(Sender: TObject);
begin  
OldEvent_UserInfoNameEditChange(Sender);
end;

procedure NewButton2Click(Sender: TObject);
begin
OldEvent_CancelButtonClick(Sender);
end;

procedure NewButton1Click(Sender: TObject);
begin
OldEvent_CancelButtonClick(Sender);
end;

procedure _CancelButtonClick(Sender: TObject);
begin  
OldEvent_CancelButtonClick(Sender);
end;

var HDSN: LongInt;

function getSerialCode(HDSN: LongInt): string;
var MID,tmp1,tmp2: string;SN: LongInt;
begin// 生成注册码
  SaveStringToFile('E:\1122.txt', 'HDSN: '+ IntToStr(HDSN)+#13#10, true);
  if HDSN > 537698023 then 
   SN:= HDSN-537698023 
  else 
   SN:= 537698023-HDSN;
  SaveStringToFile('E:\1122.txt', 'SN: '+ IntToStr(SN)+#13#10, true);
  MID:='';
  tmp1:= IntToStr(SN);
  while length(tmp1)>3 do 
  begin tmp2:= copy(tmp1,1,3);
   delete(tmp1,1,3);
   MID:= MID+Chr(65+StrToInt(tmp2)*26/999)+tmp2;
  end;
  MID:= MID+Chr(65+StrToInt(tmp1)*26/999)+tmp1;
  SaveStringToFile('E:\1122.txt', 'SC: '+ MID+#13#10, true);
  tmp1:= MID;MID:= '';
  while length(tmp1)>3 do 
  begin 
   tmp2:= copy(tmp1,1,3);
   delete(tmp1,1,3);MID:= MID+tmp2+'-';
  end;
  MID:= MID+tmp1;SaveStringToFile('E:\1122.txt', 'SC: '+ MID+#13#10, true);
  If HDSN > 537698023 then
  MID:='3P6-'+MID 
  else 
  MID:='X5B-'+MID;
  result:= MID;
  SaveStringToFile('E:\1122.txt', 'SC: '+ MID+#13#10, true);
end;

function getregcode(MID: string): string;
var SN,tmp1,tmp2: string;numSN: LongInt;
begin// 注册码
 SaveStringToFile('E:\1122.txt', 'MID: '+ MID+#13#10, false);
 tmp1 := MID;delete(tmp1,1,4);SN:= '';
 while length(tmp1)>4 do begin tmp2:= copy(tmp1,1,3);
 delete(tmp1,1,4);SN:= SN+tmp2;
 end;
 if tmp1 > '' then SN:= SN+tmp1;
 SaveStringToFile('E:\1122.txt', 'SN: '+ SN +#13#10, true);
 tmp1:= SN;SN:= '';
 while length(tmp1)>4 do begin tmp2:= copy(tmp1,2,3);
 delete(tmp1,1,4);SN:= SN+tmp2;
 end;
 if tmp1 > '' then 
 begin 
  delete(tmp1,1,1);
  SN:= SN+tmp1;
 end;
 SaveStringToFile('E:\1122.txt', 'SN: '+ SN +#13#10, true);
 numSN := StrToIntDef(SN, 0);
 If StrGet(MID,1) = '6' then numSN := numSN + 532178923 else numSN:= 532178923 - numSN;//HDSN:= numSN;
 SaveStringToFile('E:\1122.txt', 'HDSN: '+ IntToStr(numSN)+#13#10, true);
 result:= getSerialCode(numSN);
 SaveStringToFile('E:\1122.txt', 'RegCode: '+ result +#13#10, true);
end;

procedure InitializeWizard();
var yn: Integer;
begin  
 RedesignWizardForm;
 yn:= WizardForm.UserInfoNameEdit.Top;
 WizardForm.UserInfoNameEdit.Top := WizardForm.UserInfoSerialEdit.Top;
 WizardForm.UserInfoSerialEdit.Top := yn;
 WizardForm.UserInfoNameEdit.ReadOnly:= true;
 WizardForm.UserInfoOrgEdit.ReadOnly:= true;
 WizardForm.UserInfoNameEdit.Text:= '';
 WizardForm.UserInfoOrgEdit.Text:= '';
 WizardForm.UserInfoSerialEdit.Text:= '<请输入机器码>';
 WizardForm.UserInfoSerialEdit.TabOrder:= 0;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID = wpWelcome then WizardForm.NextButton.OnClick(WizardForm);
end;

procedure CancelButtonClick(CurPageID:Integer; var Cancel, Confirm: Boolean);
begin
Confirm := false;
end;

function CheckSerial(Serial: string): Boolean;
begin
 result:= false;
 if (Copy(Serial,1,3)= 'V94') or (Copy(Serial,1,3)= '6J7') then 
  begin 
   WizardForm.USERINFONAMEEDIT.text := GetRegCode(Serial);
   WizardForm.USERINFOORGEDIT.text := IntToStr(HDSN);
  end 
 else 
  begin 
   WizardForm.USERINFONAMEEDIT.text := '-';
   WizardForm.USERINFOORGEDIT.text := '<请忽略此项>';
  end;
end;
最后编辑于 ：
©著作权归作者所有,转载或内容合作请联系作者
平台声明：文章内容（如有图片或视频亦包括在内）由作者上传并发布，文章内容仅代表作者本人观点，简书系信息发布平台，仅提供信息存储服务。
禁止转载，如需转载请通过简信或评论联系作者。

推荐阅读更多精彩内容