| 网站首页 | 日常馆务 | 数据库 | 文摘库 | 光盘库 | 音视频库 | 软件库 | 图片中心 | 代查代检 | 留言 | 读者论坛 | 青岛馆 | 泰安馆 | 
您现在的位置: 图书馆 > 文摘库 > 编程技术 > DeLphi > 文章正文
专题栏目
更多内容
最新推荐 更多内容
相关文章
中国自主知识产权千万亿
计算机硬盘加密的几种方
在自己的计算机上制作MP
利用C++ Builder为计算机
更多内容
计算机等级考试注册表reg文件自动生成。         
计算机等级考试注册表reg文件自动生成。
作者:admin 文章来源:不详 点击数:3220 更新时间:2006-8-8 13:33:02

说明:如果你感兴趣,我提供源码下载

    如果你是2005年上半年全国计算机等级的系统管理员就会用到这个东东。

    此程序在安装2005年上半年全国计算机等级上机考试时使用,在一台配置完整的工作站上通过net命令先建立所有的登陆用户(如:z001,z002,z003等)并赋予administrator权限,用这台工作站克隆所有工作站,然后把此程序生成的reg文件放在服务器端,所有的工作站启动后执行对应的reg文件导入注册表,以完成每个工作站自动登陆的工作。

本人在安装上机模拟考试系统时为了提高效率,制作了这么个生成工具,其实没有什么技术含量。就是批量生成了所需的文件。

开发环境:Delphi7.0

实际就是自动生成与工作站用户名一样的文件名,如z001.reg,z002.reg等,文件的内容:

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon]
"DefaultUserName"="z001"
"DefaultPassword"=""
"AutoAdminLogon"="1"

其中"DefaultUserName"="z001"这行字符中的‘z001’必须与工作站用户名一样,即:z008.reg文件中这行内容必须是"DefaultUserName"="z008"。

主要的源码

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  FileName: string;
  s: string;
  s1, s2, s3, s4, s5: string;
  First, Last,UsrLen, i: integer;
begin
  //****************************************
  if not DirectoryExists(ExtractFileDir(Application.ExeName) + '\RegFile') then
    if not ForceDirectories(ExtractFileDir(Application.ExeName) + '\RegFile')
      then
      application.Terminate;
  //***************************************

  First := SpinEdit1.Value;
  Last := SpinEdit2.Value;
  UsrLen := SpinEdit4.Value;
  s1 := 'Windows Registry Editor Version 5.00';
  s2 :=
    '[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon]';
  s4 := '"DefaultPassword"=""';
  s5 := '"AutoAdminLogon"="1"';
  for i := First to Last do
  begin
    s := '%.' + IntToStr(UsrLen) + 'd';
    s := LabeledEdit1.Text + Format(s, [i]);
    FileName := ExtractFilePath(paramstr(0)) + 'RegFile\' + s + '.reg';
    s3 := '"DefaultUserName"="' + s + '"';
    AssignFile(MyRegFile, FileName);
    Rewrite(MyRegFile);
    try
      Writeln(MyRegFile, s1);
      Writeln(MyRegFile, '');
      Writeln(MyRegFile, s2);
      Writeln(MyRegFile, s3);
      Writeln(MyRegFile, s4);
      Writeln(MyRegFile, s5);
    finally
      CloseFile(MyRegFile);
    end;
  end;
  showmessage('创建完毕!文件保存在RegFile目录下!');
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  showmessage('本程序由赵明炬2005.3编制,不得乱用!')
end;

procedure TForm1.MemoRefresh(Sender: TObject);
var
  s: string;
  i, UsrLen: integer;
  readme:Tstrings;
begin
  UsrLen := SpinEdit4.Value;
  memo1.Lines.Clear;
  memo1.Lines.Add('生成的用户名示例:');
  for i := 1 to 3 do
  begin
    s := '%.' + IntToStr(UsrLen) + 'd';
    s := LabeledEdit1.Text + Format(s, [i]);
    memo1.Lines.Add(s);
  end;
    readme:=TStringList.Create;
    readme.LoadFromFile('read.txt');
    memo1.Lines.AddStrings(readme);
end;

文章录入:admin    责任编辑:admin 
  • 上一篇文章:

  • 下一篇文章:
  • 【字体: 】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口
      网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)

    山东科技大学济南校区图书馆 网 管:library-w