ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
19.11.2009, 19:08
|
|
Познающий
Регистрация: 14.05.2009
Сообщений: 92
Провел на форуме:
299447
Репутация:
5
|
|
Сообщение от StealthMaster
Добавь в список используемых приложением юнитов WinSvc.
Код:
uses "все что было", WinSvc;
Должно помочь. потому что большая часть функций для работы с сервисами объявлена в WinSvc.Pas. Большое человеческое спасибо! Помогло =)
|
|
|
19.11.2009, 21:01
|
|
Постоянный
Регистрация: 30.08.2005
Сообщений: 730
Провел на форуме:
6828219
Репутация:
2274
|
|
Вот в борланд дельфи запустил прогу, она зациклила, как её убить? Ненадо мне щас тут про Alt+Ctrl+Del и ребут, есть какя-то комбинация клавиш для этого, банан говорил и я юзал, но вот забыл >_<
Гугл мне вобще про OnClose(); и destroy(); расказывает
|
|
|
|
19.11.2009, 21:03
|
|
Постоянный
Регистрация: 12.05.2009
Сообщений: 395
Провел на форуме:
4761503
Репутация:
229
|
|
Сообщение от Ponchik
Вот в борланд дельфи запустил прогу, она зациклила, как её убить? Ненадо мне щас тут про Alt+Ctrl+Del и ребут, есть какя-то комбинация клавиш для этого, банан говорил и я юзал, но вот забыл >_<
Переходишь в окно делфи, дальше по вкладкам -> RUN -> PROGRAM RESET
Или Application.ProcessMessages; в цикле
(понял как есть)
|
|
|
|
19.11.2009, 21:05
|
|
Постоянный
Регистрация: 30.08.2005
Сообщений: 730
Провел на форуме:
6828219
Репутация:
2274
|
|
Аха, спс Ctrl+F2 знач, работат
|
|
|
|
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
Так более менее понятно?  |
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Комбинированный вид