keyname,valuestr,tempstr:string;

　　procedure tfrmpass.formshow(sender: tobject);

　　begin

　　thereg := tregistry.create;

　　try thereg.rootkey := hkey—local—machine;

　　keyname := ′software\mypassword′;

　　//有该键则打开，没有则创建

　　if thereg.openkey(keyname, true) then begin

　　tempstr:=extractfilename(application.exename); //读取密码

　　valuestr:=thereg.readstring(tempstr);

　　//密码不为空则修改窗体为验证密码

　　if valuestr<>′′ then begin

　　edit2.visible:=false; frmpass.caption:=′验证密码′;

　　edit1.setfocus; ok.caption:=′确定′; end

　　//密码为空则修改窗体为设置密码对话框

　　else begin

　　showmessage(′第一次使用请设置密码!′);