ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
16.08.2008, 07:51
|
|
Постоянный
Регистрация: 25.05.2007
Сообщений: 448
Провел на форуме:
4226446
Репутация:
1564
|
|
diznt, надо так
Код:
procedure TForm1.but1Click(Sender: TObject);
begin
txtN.Text:='1' + txtN.Text;
end;
и...
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
if rad1.Checked then
begin
memo1.Lines.Add(txtA.Text);
txtB.Text(txtA.Text);
txtC.Text(txtA.Text);
end;
end;
Вы в if присваиваите, а это неверно.
Последний раз редактировалось 0x0c0de; 16.08.2008 в 07:57..
|
|
|
18.08.2008, 08:03
|
|
Участник форума
Регистрация: 28.07.2007
Сообщений: 177
Провел на форуме:
274360
Репутация:
5
|
|
как установить иконку в приложении написаном в делфи?
|
|
|
|
18.08.2008, 08:32
|
|
Banned
Регистрация: 13.09.2006
Сообщений: 523
Провел на форуме:
2869410
Репутация:
925
|
|
Project->Options->Application
|
|
|
|
19.08.2008, 00:42
|
|
Постоянный
Регистрация: 05.01.2007
Сообщений: 508
Провел на форуме:
2360904
Репутация:
1393
|
|
Сообщение от zl0y
Project->Options->Application
Или заменить в ресурсах =)
|
|
|
|
19.08.2008, 22:08
|
|
Участник форума
Регистрация: 29.11.2007
Сообщений: 116
Провел на форуме:
283596
Репутация:
88
|
|
Расскажите плиз как делают проги для наложения пароля на папки?
Желательно с какими то примерами Delphi
|
|
|
|
20.08.2008, 09:41
|
|
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
Тут просто так не сделаешь. Из вариантов могу предложить следующие:
1. пишешь драйвер который перехватывает функции работы с файлами, такие как запрос списка файлов диры + открытие файла в дире + копирование+ удаление итд итп. Твоя програмка общается с драйвером постоянно и драйвер передает адреса куда юзверь лезит. При нахождении защищаемой папки выводится окошко с вводом пароля. Если пароль правильный, то просто замонить PID процесса и папку к которой ему разрешен доступ.
Сложность - написание драйвера. Плюсы - очень много.
2. через hook приаттачивать dll к каждому процессу которая будет общаться с главной прогой отвечающей за защиту.
Легко сделать, но много минусов.
|
|
|
|
20.08.2008, 21:47
|
|
Участник форума
Регистрация: 29.11.2007
Сообщений: 116
Провел на форуме:
283596
Репутация:
88
|
|
Через драйвер....хммм че-то у меня похожее где-то валялось, надо посмотреть...та тут сложновато.
Я думал просто что может есть какие-то недокументированные функции в самой системе.
|
|
|
|
20.08.2008, 21:57
|
|
Участник форума
Регистрация: 28.07.2007
Сообщений: 177
Провел на форуме:
274360
Репутация:
5
|
|
procedure TForm2.ComboBox1Change(Sender: TObject);
begin
??????
end;
что вот тут писать чтоб был протос впадающйи спискок  |
|
|
|
20.08.2008, 23:18
|
|
Участник форума
Регистрация: 28.07.2007
Сообщений: 177
Провел на форуме:
274360
Репутация:
5
|
|
и еще вопросик...как сделать так чтоб кнопка была ..но была прозрачной то есть на неее нельзя было нажать..что в свйоствах указать..
|
|
|
|
21.08.2008, 00:53
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763
Репутация:
1680
|
|
Сообщение от ufalog
и еще вопросик...как сделать так чтоб кнопка была ..но была прозрачной то есть на неее нельзя было нажать..что в свйоствах указать..
Ну это в свойствах кнопки ставишь в меню Enable указываешь false
Или команду кнопке чтобы вырубить другую:
button1.enable:= false;
Последний раз редактировалось Nightmarе; 21.08.2008 в 00:58..
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид