| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Запороливание [D7, XP]

DEEEEMO ©   (2008-01-06 15:18:00) 

Люди помагите как на свою прогу поставить пороль при входе, необезательно очень крепкою.  И какой код нужен для кнопки "Оора папок" и последственным вводом в строку EDIT.

---

Yury_FK   (2008-01-10 08:31:00) [1]

необезательно очень крепкою-  а что эта фраза означает?

---

Malina   (2008-01-08 13:30:00) [2]

А чего б протектором не воспользоваться, например ExePass или Armadillo?

---

XerSon   (2008-01-08 11:16:00) [3]

program password;

uses
forms,
dialogs, // В этом модуле определена функция inputquery
unit1 in 'unit1.pas' {mainform};

{$r *.res}

var
passwrd: string;
begin
// Запрашиваем пароль:
if inputquery('Окно ввода пароля','Введите пароль:',passwrd) then
// Проверяем его:
if passwrd = 'delphi' then
begin // Все в порядке, пароль верен
application.createform(tmainform, mainform);
application.run;
end else
showmessage('Пароль не верен!');
end.

---

Denis__   (2008-01-07 19:15:00) [4]

> "Оора папок

что за зверь?

---

{RASkov}   (2008-01-06 17:08:00) [5]

> [0] DEEEEMO ©   (06.01.08 15:18)

И что у тебя не получается? Или тебе рассказать от А до Я? Тогда книжки нужно читать, а не на форумах спрашивать.....

---

Плохиш   (2008-01-06 15:46:00) [6]

> Юрий Зотов ©   (06.01.08 15:29) [1]

Это демо версия ;-)

---

Юрий Зотов   (2008-01-06 15:29:00) [7]

И, конечно же, высшее образование...
:-(

---

Наверх