Пароль на программу

[CoverStory]

Еще раз всем доброго!!!
Вопрос следующего характера!!! Хочу поставить пароль призагрузке своей программы!!!
В событии формы onCreate ставлю passwordbox, но что-то он не хочет работать "проблемы с синтаксисом ".
Кто сталкиваля с такой проблемой?

[SAK]

А можно подробнее? Что за "проблемы с синтаксисом"?

[CoverStory]

Думал, Примерно вот так!!!

Код: Выделить всё

program stock;

{$mode objfpc}{$H+}

uses
 Interfaces, // this includes the LCL widgetset
 Forms
 { add your units here }, Dialogs, stock1;
var
b: string;
begin
 b:='vbyb';
if b=passwordbox('Введите пароль', 'Пароль') then
begin
 Application.Initialize;
 Application.CreateForm(TForm1, Form1);
 Application.Run;
end else
showmessage('Пароль не верен');
end.        

<span style='color:red'>На этом форуме используются BB-коды, а не псевдо-теги: [ code ], а не < code ></span>

[Yury]

Попробуй вставить вызов функции
passwordbox
после
Application.Initialize;
Функция
passwordbox видимо будет создавать форму для этого ей понадобиться переменная
Application.

[CoverStory]

Так лучше но на моей версии 0.9.10 идет все пароль вводится открытым текстом а хотелось *. И не работает Cancel.

[Guest]

я делал примерно так...
делал форму (основную) с авторизацией... (ф1)
и две формы, для администратора(ф2) и оператора(ф3)

на ф1 вешал два тектовых(е1, е2) поля, и кнопку, и в коде кнопки писал:

если е1='Администратор' и е2='pass' то
начало
ф2.показать
ф1.скрыть
конец
если е1='Оператор' и е2='pass' то
начало
ф3.показать
ф1.скрыть
конец

но был глюк, делал это все под линуксом, как е2 использовал там какойто едит, (не помню) который текст скрыват под здездами... все было классно, но вот собрал под виндой, и тот компонент перестал скрывать текст за звездами...

я таким образом решил проблему...

[CoverStory]

Под Linux'ом идет passwordbox? кто пробовал?

[Guest]

Под Linux'ом идет passwordbox? кто пробовал?

я пробывал...
вместо эдит его использовал...