ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
09.02.2009, 14:27
|
|
Познающий
Регистрация: 24.03.2008
Сообщений: 79
Провел на форуме:
262182
Репутация:
24
|
|
вот пытаюсь другому приложению поставить в TEdit текст: Тест
чего то непашет... да, и ещё в самом приложении 2 Tedita... как мне показать что именно в нужный поставить? приложение называеться 1.exe и заголовок тоже 1.exe
var
h,h1: hwnd;
begin
h:=Findwindow(0,'1.exe');
h1:=FindWindowEx(h,0,'TEdit',nil);
SetWindowText(h,'Тест');
end;
|
|
|
09.02.2009, 14:51
|
|
Участник форума
Регистрация: 15.11.2006
Сообщений: 259
Провел на форуме:
2589211
Репутация:
151
|
|
svalck
var h,h0:hwnd;
begin
h:=FindWindow(nil, '1.exe');
h0:=FindWindowEx(h,0,'EDIT',nil);
SendMessage(h0, WM_SETTEXT, 0, Integer(PChar('тест'))) ;
end;
SetWindowText устанавливает текст заголовка как раз-таки. В твоём примере, по идее, заголовок должен стать test вместо 1.exe.
И, кстати, для чего ты ищешь h1, если всё равно её потом не используешь? 
Последний раз редактировалось FindeR; 09.02.2009 в 14:56..
|
|
|
|
09.02.2009, 15:05
|
|
Познающий
Регистрация: 24.03.2008
Сообщений: 79
Провел на форуме:
262182
Репутация:
24
|
|
Сообщение от FindeR
svalck
var h,h0:hwnd;
begin
h:=FindWindow(nil, '1.exe');
h0:=FindWindowEx(h,0,'EDIT',nil);
SendMessage(h0, WM_SETTEXT, 0, Integer(PChar('тест'))) ;
end;
SetWindowText устанавливает текст заголовка как раз-таки. В твоём примере, по идее, заголовок должен стать test вместо 1.exe.
И, кстати, для чего ты ищешь h1, если всё равно её потом не используешь?
косяк... SetWindowText(h,'Тест');
там должно было быть SetWindowText(h1,'Тест');
Всё работает! спасиба! такой вопрос почему если в приложении 2 Tedita то в моём случае он тест запишет в Tedit2? а не в Tedit1 ?
|
|
|
|
09.02.2009, 16:37
|
|
Познающий
Регистрация: 30.01.2009
Сообщений: 30
Провел на форуме:
75077
Репутация:
14
|
|
Подскажите аналог функции getcwd в delphi. Она узнает адрес активной директории
|
|
|
|
09.02.2009, 16:47
|
|
Познающий
Регистрация: 08.12.2008
Сообщений: 58
Провел на форуме:
153361
Репутация:
10
|
|
Ну так что никто не знает как прогу скрыть?
|
|
|
|
09.02.2009, 18:49
|
|
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
То, что я привел код - это ты врядли сможешь написать програмку которая будет это юзать. А скрывать досовские проги - это просто бесполезное дело.
|
|
|
|
09.02.2009, 19:02
|
|
Познающий
Регистрация: 08.12.2008
Сообщений: 58
Провел на форуме:
153361
Репутация:
10
|
|
понятно, ну тогда подскажите как сделать чтобы прога не убивалась в процессах , прога написанная на Делфи. Ну то есть её не было в процессах, и как добавить прогу в автозагрузку, ну чтоб после 1 запуска она добовлялась сама, заранее спасибо))
|
|
|
|
09.02.2009, 19:07
|
|
Участник форума
Регистрация: 15.11.2006
Сообщений: 259
Провел на форуме:
2589211
Репутация:
151
|
|
|
|
|
|
09.02.2009, 19:18
|
|
Познающий
Регистрация: 08.12.2008
Сообщений: 58
Провел на форуме:
153361
Репутация:
10
|
|
Сообщение от FindeR
Djezul, вирусописание (если то, что ты собрался делать, можно так назвать) тут не приветствуется.
Спасибо, да не я вообще не собираюсь заниматься виросописанием , да и делфи я не знаю , это просто другу надо , он увлекается, а инета у него нет только сеть, вот я ему и помогаю  Мне больше подуше Web программирование
|
|
|
|
09.02.2009, 19:32
|
|
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
На счет чтобы в процессах не винда была - юзать 5005 статей по делфи. там есть некотоыре вишки связанные с этим.
Добавление в авторан - поищи на форуме тут. Был код и на асме и на дельфе.
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
