![]() |
|
#1
|
|||
|
|||
![]() Доброго дня. Есть программа скрин которой здесь:
http://antsa.narod.ru/img.jpg Вверху есть рамочка, в рамочке значения давления, температуры, расхода, мне нужно их забрать от туда. Программа старая (вроде как) MSDOS, использует процесс который называется NTVDM.EXE, он является вирт.машиной, исполняющей 16-разрядные ДОС-приложения. Все это выводиться в консоль (CMD проще говоря). Мне позарез нужно достать от туда эти данные: Что я УЖЕ (за 3 дня) знаю что есть: ReadConsoleOutput http://winapi.freetechsecrets.com/wi...soleOutput.htm В ReadConsoleOutput функция читает характер и цвет атрибут данных из прямоугольных блоков характера клеток в буфер экрана консоли, а также функция записывает данные в прямоугольных блоков на указанном месте в буфер назначения. ReadConsoleOutputAttribute http://winapi.freetechsecrets.com/wi...tAttribute.htm В ReadConsoleOutputAttribute функция копии указанного количества плана и цвет фона атрибуты из последовательных ячеек консольный буфер экрана, начиная с указанного места. ReadConsoleOutputCharacter http://winapi.freetechsecrets.com/wi...tCharacter.htm В ReadConsoleOutputCharacter функция копии ряда персонажей из последовательных ячеек консольный буфер экрана, начиная с указанного места. Я делаю: Код:
var pid: DWORD; hStdout: thandle; Buffer:array of integer; c:coord; wr:cardinal; begin c.X:=1; c.Y:=1; GetWindowThreadProcessId(FindWindow('C:\WINDOWS\system32\cmd.exe',nil), @pid); hStdout := GetStdHandle(STD_OUTPUT_HANDLE); ReadConsoleOutputAttribute(hStdout,@Buffer[0],2,C,Wr); Memo1.Lines.Add(IntToStr(buffer[0])); Memo1.Lines.Add(IntToStr(wr)); end; |