ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
19.11.2009, 23:35
|
|
Познающий
Регистрация: 13.12.2007
Сообщений: 56
Провел на форуме:
469345
Репутация:
51
|
|
Товарищи, подскажите, пожалуйста, на счет этой задачи:
С помощью компонента TabControl создать электрон.записную книжку, которая содержит инфу о 5-ти людях: №тел., фио, адрес, дата рождения и тд.
На форму бросил, значит, TabControl, создал вкладки (вышеперечисленные), в него же запихнул List, разместил кнопки "Добавить" и "Удалить"..вот что получилось:
И какие процедуры теперь нужно именно прописать в button'ах, чтобы всё нормально работало..и как лучше оформить TabControl, чтобы при переключении вкладок, ФИО оставалось на месте =) |
|
|
20.11.2009, 01:27
|
|
Участник форума
Регистрация: 08.10.2007
Сообщений: 259
Провел на форуме:
500748
Репутация:
137
|
|
Внедритья в приложение под видом dll у меня получилось, но вот как получить дескриптор сокета этой проги?
Я так понимаю сначала нужно получить адрес этой функции через GetProcAddress потом через ReadProcessMemory читать байты по этому адресу?
Получить адрес api функции "send" можно так? если не ошибаюсь, да?
Код:
pTemp: Pointer;
pTemp:=GetProcAddress(GetModuleHandle('wsock32.dll'),'send');
.....
Порыскал на гугле, нашёл уже почти готовые модули для этого, извините за лень
Последний раз редактировалось ZET36; 21.11.2009 в 14:09..
|
|
|
|
20.11.2009, 22:36
|
|
Познающий
Регистрация: 13.12.2007
Сообщений: 56
Провел на форуме:
469345
Репутация:
51
|
|
Подскажите плз, как в delphi, работая с компонентом tabcontrol, изменить содержимое компонента listbox при переключении закладки?
|
|
|
|
20.11.2009, 22:44
|
|
Постоянный
Регистрация: 12.05.2009
Сообщений: 395
Провел на форуме:
4761503
Репутация:
229
|
|
Сообщение от SHAXID
Подскажите плз, как в delphi, работая с компонентом tabcontrol, изменить содержимое компонента listbox при переключении закладки?
Код:
procedure TForm1.TabControl1Change(Sender: TObject);
begin
ShowMessage(TabControl1.Tabs.Strings[TabControl1.TabIndex]);
end;
Вместо showmessage пишешь сверение (if) с указаным текстом и текстом закладки закладки, и изменяешь то что нужно (а именно сод. listbox) при определенном тексте выбранной закладки
(думаю понятно объяснил)
|
|
|
|
20.11.2009, 23:06
|
|
Познающий
Регистрация: 13.12.2007
Сообщений: 56
Провел на форуме:
469345
Репутация:
51
|
|
Сообщение от wolmer
Код:
procedure TForm1.TabControl1Change(Sender: TObject);
begin
ShowMessage(TabControl1.Tabs.Strings[TabControl1.TabIndex]);
end;
Вместо showmessage пишешь сверение (if) с указаным текстом и текстом закладки закладки, и изменяешь то что нужно (а именно сод. listbox) при определенном тексте выбранной закладки
(думаю понятно объяснил)
че-то как-то не догнал.. =(
Вот такая тема у меня вообщем есть..а дальше вот хз..
|
|
|
|
20.11.2009, 23:24
|
|
Постоянный
Регистрация: 12.05.2009
Сообщений: 395
Провел на форуме:
4761503
Репутация:
229
|
|
SHAXID
Пример:
Код:
procedure TForm1.TabControl1Change(Sender: TObject);
begin
if TabControl1.Tabs.Strings[TabControl1.TabIndex]='11111111' then
begin
Memo1.Lines.Text:='Эта первая вкладка!';
end;
if TabControl1.Tabs.Strings[TabControl1.TabIndex]='22222222' then
begin
Memo1.Lines.Text:='Эта вторая вкладка!';
end;
if TabControl1.Tabs.Strings[TabControl1.TabIndex]='33333333' then
begin
Memo1.Lines.Text:='Эта третья вкладка!';
end;
end;
Естественно все вкладки:
11111111
22222222
33333333
Так более менее понятно?  |
|
|
|
21.11.2009, 00:10
|
|
Познающий
Регистрация: 13.12.2007
Сообщений: 56
Провел на форуме:
469345
Репутация:
51
|
|
Ага, спасибо огромное! Очень выручил!  |
|
|
|
21.11.2009, 08:40
|
|
Постоянный
Регистрация: 14.04.2008
Сообщений: 327
Провел на форуме:
584699
Репутация:
69
|
|
Не могли бы подсказать как с приложения перекинуть пользователя на страницу интернета, и как ребатнуть комп не кого не о чем не спрашивая??
|
|
|
|
21.11.2009, 09:58
|
|
Постоянный
Регистрация: 14.04.2008
Сообщений: 327
Провел на форуме:
584699
Репутация:
69
|
|
И ещё вопросик как обойти вопрос брэндмауэра типо блокировать или нет приложение, хотя прикол нажал блокировать и все равно соединение установилось и лог ушел)
|
|
|
|
21.11.2009, 10:06
|
|
Познающий
Регистрация: 13.12.2007
Сообщений: 56
Провел на форуме:
469345
Репутация:
51
|
|
Возник еще один вопросец...
Нужно рассчитать кол-во товара значит, и чтоб результат расчета появлялся в
Form1.StringGrid1.Cells[2,1]..т.е. вводим в Edit1 сумму, ждем "Рассчитать" и в ячейке появляется результат..
Вот скрин для наглядности:
 |
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
