ANTICHAT Forum
HOME FORUMS MEMBERS RECENT POSTS LOG IN  
НОВЫЕ ТОРГОВАЯ НОВОСТИ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
Перезагрузить страницу [Delphi]/[Pascal] Задай вопрос, получи ответ
   
Ответ
Страница 40 из 677 « Первая < 30 36 37 38 39 40 41 42 43 44 5090140540 > Последняя »
 
Опции темы Поиск в этой теме Опции просмотра

  #391  
Старый 28.07.2007, 05:56
SNAIPER ShoT
Познающий
Регистрация: 24.06.2007
Сообщений: 36
С нами: 9937537

Репутация: 5
По умолчанию
Люди а подскажите как можно к проге теперь форму password подвизать чтоб она без пароля не запускалася?
 
Ответить с цитированием

  #392  
Старый 28.07.2007, 06:28
FeraS
Постоянный
Регистрация: 20.01.2007
Сообщений: 705
С нами: 10161726

Репутация: 1329


По умолчанию
SNAIPER ShoT
Ты каждый свой бредовый вопрос собираешься задавать тут?))
Прочти сначала книгу из 392 поста, а потом спрашивай
 
Ответить с цитированием

  #393  
Старый 28.07.2007, 06:35
W!z@rD
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
С нами: 10653446

Репутация: 836


По умолчанию
Цитата:
Сообщение от SNAIPER ShoT  
Люди а подскажите как можно к проге теперь форму password подвизать чтоб она без пароля не запускалася?
ппц я просто в шоке...
1. Юзать MaskEdit
2. Тоже есть готовая форма... =/
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
 
Ответить с цитированием

  #394  
Старый 28.07.2007, 11:36
m1n0r
Новичок
Регистрация: 26.06.2007
Сообщений: 7
С нами: 9934767

Репутация: 15
По умолчанию
Цитата:
Сообщение от SNAIPER ShoT  
Люди а подскажите как можно к проге теперь форму password подвизать чтоб она без пароля не запускалася?
Сначала добавь к проекту PasswordDlg из File->New->Other->Dialogs;

Потом сделай PasswordDlg главной формой в проекте и перенеси Form1 в список доступных форм. В PasswordDlg вставь
Код:
 
procedure TPasswordDlg.OKBtnClick(Sender: TObject);
begin
if Password.Text='Pass' then
begin
Application.CreateForm(Tform1,Form1);
Form1.Show;
PasswordDlg.Hide;
end else ShowMessage('Incorrect password.');
end;
Теперь Form1 будет запускаться ток апри введении пароля Pass.
 
Ответить с цитированием

  #395  
Старый 28.07.2007, 14:02
Fen-Omen
Участник форума
Регистрация: 22.03.2007
Сообщений: 220
С нами: 10073762

Репутация: 234
По умолчанию
К чему делать пассворд диалог главной формой?

Просто в дополнению к своей программе создаешь готовую форму PasswordDlg , Появится форма с двумя кнопками "Ок" "Выход" Label и Edit. Edit будет являтся полем ввода пароля поэтому свойство PasswordChar указываешь "*", если стандартно этого не будет.

Идешь в обработчик события главной формы, и в событии OnShow указываешь:

Цитата:
PasswordDlg.ShowModal;
В этом случае главная форма останется главной, но перед ее запуском всегда будет появлятся PasswordDlg.

Для самой примитивной защиты пароль лучше хранить ввиде const. В обработчике события формы запроса пароля ищешь свойство OnCloseQuery и там вводим примерно такой код:

Цитата:
procedure TPasswordDlg.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
const p=`123456`; //Указываем наш пароль
begin
if Password.Text = p then CanClose:=true
else Application.Terminate;
end;//Если пароль совпадает с константой p - появится главная форма, если нет - приложение закончит работу
Последний раз редактировалось Fen-Omen; 28.07.2007 в 14:18..
 
Ответить с цитированием

  #396  
Старый 28.07.2007, 22:38
SNAIPER ShoT
Познающий
Регистрация: 24.06.2007
Сообщений: 36
С нами: 9937537

Репутация: 5
По умолчанию
Он пишит что типо не понимает Const =(
 
Ответить с цитированием

  #397  
Старый 28.07.2007, 23:17
baltazar
Banned
Регистрация: 30.03.2007
Сообщений: 344
С нами: 10061666

Репутация: 2438
По умолчанию
вобщем вы наверное знаете программу Apex DC++ с открытым исходным кодом,когда там создается новая чат комнтата то почему-то коглда нажимаю+list он не выдает тех кто сидит в этой комнате а должен,как сделать так чтоб выдавал.?
 
Ответить с цитированием

  #398  
Старый 28.07.2007, 23:37
Fen-Omen
Участник форума
Регистрация: 22.03.2007
Сообщений: 220
С нами: 10073762

Репутация: 234
По умолчанию
Цитата:
Он пишит что типо не понимает Const =(
Как это не понимает? Ты уверен что сделал все правильно? Ты ниразу не объявлял переменных или констант?
 
Ответить с цитированием

  #399  
Старый 28.07.2007, 23:43
LEE_ROY
Постоянный
Регистрация: 09.11.2006
Сообщений: 639
С нами: 10265091

Репутация: 541


По умолчанию
Цитата:
Он пишит что типо не понимает Const =(
перед const, убери begin .
 
Ответить с цитированием

  #400  
Старый 28.07.2007, 23:45
Fen-Omen
Участник форума
Регистрация: 22.03.2007
Сообщений: 220
С нами: 10073762

Репутация: 234
По умолчанию
Цитата:
перед const, убери begin
Точнее поменя их местами)

Цитата:
const p='12345';
begin
Если ты хочешь объявить константу после начала процедуры, тогда о чем может быть речь?!)
Последний раз редактировалось Fen-Omen; 28.07.2007 в 23:52..
 
Ответить с цитированием
Ответ
Страница 40 из 677 « Первая < 30 36 37 38 39 40 41 42 43 44 5090140540 > Последняя »



Предыдущая тема Следующая тема
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Wi-Fi, BT] Задай вопрос - получи ответ! Alexsize Беспроводные технологии/Wi-Fi/Wardriving 2571 20.06.2026 14:48
[jQuery] - Задай вопрос, получи ответ Isis PHP 62 25.12.2009 03:25



Здесь присутствуют: 57 (пользователей: 0 , гостей: 57)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.