ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
05.01.2008, 17:46
|
|
Постоянный
Регистрация: 04.11.2007
Сообщений: 331
Провел на форуме:
1724067
Репутация:
806
|
|
Сообщение от Kaimi
Как изменить текст в поле другого окна?
Сначал надо найти через Апи функции например по заглавию, то поле которе хочешь изменить, а потом послать ему Сообщение на смену текста.
ПС:текст проги подсказать не могу, так как под рукой нет справочника по Апи. Попробуй сам найти,если не получиться запости еще раз на форуме - помогу
|
|
|
05.01.2008, 19:35
|
|
Участник форума
Регистрация: 10.01.2007
Сообщений: 140
Провел на форуме:
246020
Репутация:
105
|
|
Сообщение от Kaimi
Как изменить текст в поле другого окна?
procedure SetWinText(hWin: DWORD ;Text: String);
begin
SendMessage(hWin, WM_SETTEXT, 0, Integer(Text));
end;
Последний раз редактировалось t04; 05.01.2008 в 20:10..
|
|
|
|
05.01.2008, 19:41
|
|
Участник форума
Регистрация: 03.01.2008
Сообщений: 104
Провел на форуме:
400001
Репутация:
111
|
|
Как изменить текст в поле другого окна?
Вот:
Mnd:=FindWindow(nil,Pchar('Заголовок главной формы') );
if mnd<>0 then begin
ZeroMemory(@buf,sizeof(buf));
wnds[1]:=GetWindow(mnd,GW_CHILD);
GetWindowText(wnds[1],@buf,sizeof(buf));
i:=1;
while wnds[i]<>0 do begin
i:=i+1;
wnds[i]:=GetWindow(wnds[i-1],GW_HWNDNEXT) ;
GetWindowText(wnds[i],@buf,sizeof(buf));
end;
Примерно так.. Поиск всех дочерних окон и главного окна, по заголовку, дальше через SendMessage, посылаешь нужному элементу текст..
|
|
|
|
06.01.2008, 12:36
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638
Репутация:
1821
|
|
Здравствуйте! Друг попросил создать снифер на Дельфях...А вот что это такое я не знаю!(только не надо смеяться)Может кто объяснить, что это и как работает?
|
|
|
|
06.01.2008, 13:23
|
|
Постоянный
Регистрация: 05.01.2007
Сообщений: 508
Провел на форуме:
2360904
Репутация:
1393
|
|
Сообщение от De-visible
Здравствуйте! Друг попросил создать снифер на Дельфях...А вот что это такое я не знаю!(только не надо смеяться)Может кто объяснить, что это и как работает?
Сниффер это анализатор трафика. Вот здесь можешь почитать поподробнее http://ru.wikipedia.org/wiki/Sniffer
|
|
|
|
06.01.2008, 15:28
|
|
Постоянный
Регистрация: 16.04.2007
Сообщений: 398
Провел на форуме:
3371897
Репутация:
1462
|
|
http://www.delphisources.ru/pages/sources/internet/2006_year/sniffer.html
|
|
|
|
06.01.2008, 20:29
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638
Репутация:
1821
|
|
Спасибо за помощь выручили !!!...
А еще можете научить пользоваться HttpAnalyzerStdV3..Статью какую нить... просто посмотрю как он работает и попробую написать такую...
Интересно стало  |
|
|
|
07.01.2008, 16:13
|
|
Участник форума
Регистрация: 27.03.2007
Сообщений: 161
Провел на форуме:
1273248
Репутация:
785
|
|
Код HTML:
var a1,a2,a3,a4,a5,a6,a7,a8,a9,a10:char;
begin
a1:=StrToFloat(Edit1.Text);
a2..
a3.....
Edit11.Text:=FloatToStr(a1);
end;
Помогите пожалуйста, мне нужно чтобы текст из Edit1.Text присвоила переменная "a1", а текстЪ) Edit11.Text отображал все переменные от a1 до a10.
С цифрафи var a1,a2,a3,a4,a5,a6,a7,a8,a9,a10:real - вроде работает,а с буквами- нет. Подскажите как реализовать? |
|
|
|
07.01.2008, 16:22
|
|
Постоянный
Регистрация: 11.03.2007
Сообщений: 581
Провел на форуме:
4172659
Репутация:
646
|
|
Ну надо твои переменные сделать типа string, это раз. Во-вторых, StrToFloat тут ни к чему
|
|
|
|
07.01.2008, 16:30
|
|
Постоянный
Регистрация: 16.04.2007
Сообщений: 398
Провел на форуме:
3371897
Репутация:
1462
|
|
Сообщение от trumps
С цифрафи var a1,a2,a3,a4,a5,a6,a7,a8,a9,a10:real - вроде работает,а с буквами- нет.
само собой , это ж real ...
a:array[1..10] of string[10];
a[1] := Edit1.Text;
....
Edit11.Text := сумма массива ...
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
