主页
Top.Mail.Ru Yandeks.Metrika
论坛:“主要”;
当前存档:2004.12.12;
下载:[xml.tar.bz2];

向下

密码输入表单和主要创建 找到类似的分支


denis24   (2004-11-26 20:06) [0]

请帮助!
有一个项目,其中在加载时会创建一个表单来检查注册表中的ser.number。如果数字正确,则该表单将被隐藏并创建主表单;如果该值不正确,则会显示该表单并显示要输入的ser.Number。
如果数字匹配,则打开主窗体;如果没有应用程序,请卸载。

过程TfrmCheck.FormCreate(Sender:TObject);
开始
尝试
Reg:= TRegistry.Create;
Reg.RootKey:= HKEY_LOCAL_MACHINE;
如果Reg.OpenKey(“ ......”,false),则
开始
check_app:= Reg.ReadString(“ MyApp”);
如果check_app =“ 00000000”,则
frmMain:= TfrmMain.Create(个体);
结束
其他
frmCheck.Show;

最后
reg.Free;
结束;
结束;
在frmmain.formcreate中,我隐藏了frmcheck表单
frmCheck.Hide;

但最后,我的主窗体启动并显示,并且frmcheck复选框仍保留在屏幕上。
我可以在哪里藏她?
В



GanibalLector ©   (2004-11-26 22:51) [1]

打开项目的* .dpr,如下所示:
开始 如果InputBox(“ Password”,“ Enter Password”,“”)<>“”然后开始 //这是您的操作... 应用程序初始化 Application.CreateForm(TForm1,Form1); Application.Run;结束; 结束。



GanibalLector ©   (2004-11-26 22:53) [2]

在输入时,Dialogs.pas不会显示任何内容,因此:
...
宽度:= MulDiv(164,DialogUnits.X,4);
MaxLength:= 255;
文字:=值;
      如果ACaption =“ Password”,则PasswordChar:=“ *”;
全选;
...
结果:简单,可靠,最少的代码,没有不必要的形式。



denis24   (2004-11-27 16:15) [3]

如果我想通过注册管理机构与注册表联系并从中读取值,我该如何不创建表格呢?



GuAV ©   (2004-11-27 16:22) [4]

签入dpr



begin...end ©   (2004-11-27 16:35) [5]


> [2] GanibalLector©(26.11.04 22:53)


>编辑Dialogs.pas


>结果:...

...以及骇人听闻的Dialogs.pas。



GanibalLector ©   (2004-11-27 22:57) [6]

2 denis24(27.11.04 16:15)[3]
程序Project1; 用途 表单,注册表,对话框, “ Unit1.pas” {Form1}中的Unit1; {$ R * .RES} var Reg:TRegistry; st:字符串; 开始 注册:= TRegistry.Create; Reg.OpenKey(“ Software”,true); Reg.OpenKey(“ Zalizo”,true); st:= Reg.ReadString(“密码”); 免费注册; 如果InputBox(“ password”,“旧密码:” + st,“”)<>“”然后开始 应用程序初始化 Application.CreateForm(TForm1,Form1); Application.Run; 结束 结束。



GanibalLector ©   (2004-11-27 23:00) [7]

2开始...结束©
...以及骇人听闻的Dialogs.pas。
首先,我只更改了基因库中的一个!
如果您还不喜欢它,则将Dialogs.pas复制到项目文件夹...我们将对其进行编辑...并使用它。基因库将保持不变



GuAV ©   (2004-11-28 00:59) [8]

GanibalLector©(27.11.04 23:00)[7]

使用不同版本的Dialogs.dcu编译了单位VasyaPupkinExtras



denis24   (2004-11-28 12:30) [9]

如果我写
程序Project2;
.
.
.
frmCheck:= TfrmCheck.Create(个体);
那写道
[错误] Project2.dpr(35):未声明的标识符:“自我”



Страницы: 1 整个分支

论坛:“主要”;
当前存档:2004.12.12;
下载:[xml.tar.bz2];

楼上









内存:0.59 MB
时间:0.066 c
10-1071166334年
epflorov
2003-12-11 21:12
2004.12.12
20 12月到corbajeb年度2 :)。 恭喜。


14-1100041467年
GanibalLector
2004-11-10 02:04
2004.12.12
你在哈尔科夫开会吗?


6-1092136838年
皮特
2004-08-10 15:20
2004.12.12
糟糕的TTcpClient


1-1101631192年
斯登
2004-11-28 11:39
2004.12.12
大吉


1-1101509172年
Artem Vladimirovich
2004-11-27 01:46
2004.12.12
如何防止从webbrowser复制?





南非荷兰语 阿尔巴尼亚人 阿拉伯语 亚美尼亚 阿塞拜疆 巴斯克 白俄罗斯 保加利亚语 加泰罗尼亚 简体中文 中国(繁体) 克罗地亚 捷克 丹麦语 荷兰人 英语 爱沙尼亚语 菲律宾人 芬兰 法文
加利亚西语 格鲁吉亚语 德语 希腊语 海地克里奥尔语 希伯来语 印地语 匈牙利 北日耳曼语 印度尼西亚人 爱尔兰语 意大利语 日本性玩偶 韩语 拉脱维亚 立陶宛 马其顿 马来语 马耳他语 挪威语
波斯语 波兰语 葡萄牙语 罗马尼亚 俄语 塞尔维亚 斯洛伐克 斯洛文尼亚 西班牙语 斯瓦希里 瑞典语 泰国人 土耳其 乌克兰 乌尔都语 越南人 威尔士语 意第绪语 孟加拉 波斯尼亚
宿务 世界语 古吉拉特语 豪萨语 苗族 伊博 爪哇 卡纳达语 高棉 老挝 拉丁语 毛利 马拉 蒙古人 尼泊尔 旁遮普 索马里 泰米尔人 泰卢固语 约鲁巴语
祖鲁
英文 Французский Немецкий Итальянский Португальский 俄文 Испанский