ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
28.07.2007, 05:28
|
|
Познающий
Регистрация: 24.06.2007
Сообщений: 36
Провел на форуме:
177842
Репутация:
5
|
|
Сообщение от LEE_ROY
угу, New > Other > Forms > AboutBox. В своем коде в uses пишеш - unit2, а потом в нужном месте Unit2.AboutBox.Show; чтобы появился About.
В любом ето каком??? например мона тута прям да:
procedure TForm1.Info1Click(Sender: TObject);
begin
Код:
Unit2.AboutBox.Show;
end;
или так ошибка будет ??? 
|
|
|
28.07.2007, 05:39
|
|
Постоянный
Регистрация: 09.11.2006
Сообщений: 639
Провел на форуме:
1917742
Репутация:
541
|
|
да, можно и так  попробуй возьми .. быстрее поймеш что и куда |
|
|
|
28.07.2007, 05:56
|
|
Познающий
Регистрация: 24.06.2007
Сообщений: 36
Провел на форуме:
177842
Репутация:
5
|
|
Люди а подскажите как можно к проге теперь форму password подвизать чтоб она без пароля не запускалася?
|
|
|
|
28.07.2007, 06:35
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме:
1892597
Репутация:
836
|
|
Сообщение от SNAIPER ShoT
Люди а подскажите как можно к проге теперь форму password подвизать чтоб она без пароля не запускалася?
ппц я просто в шоке...
1. Юзать MaskEdit
2. Тоже есть готовая форма... =/
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|
|
28.07.2007, 11:36
|
|
Новичок
Регистрация: 26.06.2007
Сообщений: 7
Провел на форуме:
16098
Репутация:
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.
|
|
|
|
28.07.2007, 06:28
|
|
Постоянный
Регистрация: 20.01.2007
Сообщений: 705
Провел на форуме:
5381835
Репутация:
1329
|
|
SNAIPER ShoT
Ты каждый свой бредовый вопрос собираешься задавать тут?))
Прочти сначала книгу из 392 поста, а потом спрашивай 
|
|
|
|
28.07.2007, 14:02
|
|
Участник форума
Регистрация: 22.03.2007
Сообщений: 220
Провел на форуме:
1068874
Репутация:
234
|
|
К чему делать пассворд диалог главной формой?
Просто в дополнению к своей программе создаешь готовую форму PasswordDlg , Появится форма с двумя кнопками "Ок" "Выход" Label и Edit. Edit будет являтся полем ввода пароля поэтому свойство PasswordChar указываешь "*", если стандартно этого не будет.
Идешь в обработчик события главной формы, и в событии OnShow указываешь:
В этом случае главная форма останется главной, но перед ее запуском всегда будет появлятся 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..
|
|
|
|
28.07.2007, 22:38
|
|
Познающий
Регистрация: 24.06.2007
Сообщений: 36
Провел на форуме:
177842
Репутация:
5
|
|
|
|
|
|
28.07.2007, 23:17
|
|
Banned
Регистрация: 30.03.2007
Сообщений: 344
Провел на форуме:
5149122
Репутация:
2438
|
|
вобщем вы наверное знаете программу Apex DC++ с открытым исходным кодом,когда там создается новая чат комнтата то почему-то коглда нажимаю+list он не выдает тех кто сидит в этой комнате а должен,как сделать так чтоб выдавал.?
|
|
|
|
28.07.2007, 23:37
|
|
Участник форума
Регистрация: 22.03.2007
Сообщений: 220
Провел на форуме:
1068874
Репутация:
234
|
|
Он пишит что типо не понимает Const =(
Как это не понимает? Ты уверен что сделал все правильно? Ты ниразу не объявлял переменных или констант?
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид