Перехват текст в открытом консольном приложении -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [3.149.233.62]

Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.

Соблюдайте общие правила форума

Следующие вопросы задаются очень часто, подробно разобраны в FAQ и, поэтому, будут безжалостно удаляться:
1. Преобразовать переменную типа String в тип PChar (PAnsiChar)
2. Как "свернуть" программу в трей.
3. Как "скрыться" от Ctrl + Alt + Del (заблокировать их и т.п.)
4. Как запустить программу/файл? (и дождаться ее завершения)
5. Как перехватить API-функции, поставить hook? (перехват сообщений от мыши, клавиатуры - внедрение в удаленное адресное прстранство)
... (продолжение следует) ...

Внимание:
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки - бан.
Мат в разделе - бан на три месяца...

Полезные ссылки:
user posted image

MSDN Library user posted image

FAQ раздела user posted image

Поиск по разделу user posted image

Как правильно задавать вопросы

Выразить свое отношение к модераторам раздела можно здесь: user posted image

Rouse_,

Krid

Модераторы: Rouse_, Krid

Новое голосование

Перехват текст в открытом консольном приложении , Консольные окна WriteConsoleOutput

ERrorMAKros

Сообщ. #1 , 26.11.03, 11:53

Unregistered

Hi all, ...вопрос ко ВСЕМ, ...кто может мне помочь! ...Вы просто тебе не представляете Насколько мне нужна помосчь!
Вопрос вот в чем: Зная HWND и THandle окна типа 'tty' (т. е. окно - консольное).
Мне нужно - "получить полный вид текстового окна как набор символов типа"
DOSMatrix [000..075,000..025] of Char;
или прочитать весь текстовой буфер окна сразу!!! ...пытался вытаскивать через
...

var MCharInfo: TCHarInfo;
_Length : TChoord;
_Start : TChoord;
MRect : TSmalllRect;
theWindow : HWND;
theWIndowHandle: THandle;
begin theWIndow:=FindWindow(PChar(PCHar(nil), 'Заголовок dos окна');
theWindowHandle:=OpenProcess($0001,FALSE,@ProcessID);
_Length.X:=070;
_Length.Y:=025;
_Start.X :=0;
_Start.Y :=0;

{исспользую TCharInfo, хотя модуль windows предлогает Pointer,
...про TCharInfo узнал в API32 eference}

iF WriteConsoleOutput(_MainHandle,@MCharInfo,_Length,_Start,SRect)=True then [MCharInfo.... Резудьтаты] else [Ошибка]

Во всем этом деле функцтя возвращает false, ...коороче в итоге, плоз помогоите, ...умираю!!

P.S. ЛЮДИ, НУ ПРОСТО ОЧЕНЬ ПРОШУ - ПОМОГИТЕ! ...РИСКУЮ ПРОТЕРЯТЬ ЖЕНУ, ДЕТЕ, ОСОБЕННО РАБОТУ! ...И ВСЕ ТАКОЕ! ...ДЕЛО ГОСУДАРСТВЕННОЙ ВАЖНОСТИ!

1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0207 ] [ 15 queries used ] [ Generated: 14.05.24, 19:53 GMT ]