Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.12.12;
Скачать: [xml.tar.bz2];

Вниз

форма по вводу пароля и создание основной   Найти похожие ветки 

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

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

procedure TfrmCheck.FormCreate(Sender: TObject);
begin
try
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey("......",false) then
begin
   check_app:= Reg.ReadString("MyApp");
        if check_app="00000000" THEN
        frmMain:=TfrmMain.Create (self);
end
else
frmCheck.Show;

finally
reg.Free;
end;
end;
В 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]

Если я пишу
program Project2;
.
.
.
frmCheck:=TfrmCheck.Create (self);
То пишет
[Error] Project2.dpr(35): Undeclared identifier: "self"



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.12.12;
Скачать: [xml.tar.bz2];

Наверх









Память: 0.84 MB
Время: 0.059 c
6-1096822363
Wolverrum
2004-10-03 20:52
2004.12.12
ADO и CGI


3-1100104958
ferr
2004-11-10 19:42
2004.12.12
(Table)&amp;(подстановочные поля)&amp;(Сортировка)


1-1101499464
GanibalLector
2004-11-26 23:04
2004.12.12
IncludeTrailingBackslash


14-1100870142
ПЛОВ
2004-11-19 16:15
2004.12.12
Где достать голосовой профиль для украинского языка?


8-1094843851
KADAN
2004-09-10 23:17
2004.12.12
Длительность музыкальных и видеофайлов





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский