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

向下

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


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

请帮助!
Есть проэкт в котором при загрузке создается форма по проверке сер.номера в реестре.Если номер правильный то эта форма прячется и создается и основная форма.Если значение не соотв желаемому то форма показывается с предложением ввести сер .номер
Если номер совпадает то открыв осн.форма.Если нет прилож выгруж.

procedure TfrmCheck.FormCreate(Sender: TObject);
开始
尝试
Reg:= TRegistry.Create;
Reg.RootKey:= HKEY_LOCAL_MACHINE;
if Reg.OpenKey("......",false) then
开始
   check_app:= Reg.ReadString("MyApp");
        if check_app="00000000" THEN
        frmMain:=TfrmMain.Create (self);
结束
其他
frmCheck.Show;

最后
reg.Free;
结束;
结束;
В frmmain.formcreate прячу форму frmcheck
frmCheck.Hide;

Но в итоге у меня главная форма запускается и показывается а проверочнач frmcheck остается на єкране.
Где мне ее прятать?
В



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

Открой *.dpr своего проекта и что-то типа :

begin
 if InputBox("Password","Введите пароль","")<>"" then begin
 // тут твои действия...
 Application.Initialize;
 Application.CreateForm(TForm1, Form1);
 Application.Run;end;
end.



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

Что-бы при вводе ничего небыло видно правим  Dialogs.pas так :
...
       Width := MulDiv(164, DialogUnits.X, 4);
       MaxLength := 255;
       Text := Value;
       if  ACaption="Password" then PasswordChar:="*";
       SelectAll;
...
Результаты : просто,надежно,минимум кода,никаких лишних форм.



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

А если я хочу обратится через tregistry к реестру и прочитать из него значения как без создания формы обойтись?



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]

program Project1;

uses
 Forms, Registry,Dialogs,
 Unit1 in "Unit1.pas" {Form1};

{$R *.RES}
var Reg:TRegistry;st:string;
begin
Reg:=TRegistry.Create;
Reg.OpenKey("Software",true);
Reg.OpenKey("Zalizo",true);
st:= Reg.ReadString("password");
Reg.Free;
if InputBox("password","старый пароль :"+st,"")<>"" then begin

 Application.Initialize;
 Application.CreateForm(TForm1, Form1);
 Application.Run;      end;
end.



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

2 begin...end ©
...а также загомаченный Dialogs.pas.
Во-первых я изменил только ОДНУ строку генофонда!!!
Если уж и так не нравиЦа,то копируем Dialogs.pas в папку пректа...там правим...и сипользуем.Генофонд останется в целосности



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

GanibalLector©(27.11.04 23:00)[7]

Unit VasyaPupkinExtras was compiled with a different version of Dialogs.dcu



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

如果我写
程序Project2;
.
.
.
frmCheck:=TfrmCheck.Create (self);
То пишет
[Error] Project2.dpr(35): Undeclared identifier: "self"



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

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

楼上









内存:0.58 MB
时间:0.062 c
6-1096974106
大陵
2004-10-05 15:01
2004.12.12
FTP文件更改日期


3-1099996664
sergeii
2004-11-09 13:37
2004.12.12
Filtratsiya


3-1100516597
DimonNew
2004-11-15 14:03
2004.12.12
是否有替代查询与whrere in


3-1100317736

2004-11-13 06:48
2004.12.12
Access中的INFORMATION_SCHEMA


3-1100619712
〜刀片〜
2004-11-16 18:41
2004.12.12
在ado中更新表格





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