Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.07.29;
Скачать: [xml.tar.bz2];

Вниз

консольное окно, взять информацию   Найти похожие ветки 

 
RV   (2002-07-16 11:01) [0]

как? я делаю

procedure TForm1.Button1Click(Sender: TObject);
var
info : TOSVersionInfo;
ClassName : string;
StartupInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
H : HWND;
Z : PChar;
B : array[0..200] of char;
Begin
AllocConsole;
SetConsoleTitle("Delphi Console");
FillChar(StartupInfo, SizeOf(TStartupInfo), 0);
with StartupInfo do begin
cb := SizeOf(TStartupInfo);
dwFlags := STARTF_USESTDHANDLES;
wShowWindow := SW_SHOW;
end;
if CreateProcess(nil,"c:\nc5\nc.exe",nil,nil,False,
NORMAL_PRIORITY_CLASS,nil,nil,StartupInfo,ProcessInfo)
then
DosHandle := ProcessInfo.hProcess
else
begin
ShowMessage("Programm not found"); Exit;
end;
ConsHndl:=GetStdHandle(STD_OUTPUT_HANDLE);

info.dwOSVersionInfoSize := sizeof(info);
GetVersionEx(info);
if (info.dwPlatformId = VER_PLATFORM_WIN32_NT) then begin
ClassName := "ConsoleWindowClass";
end else begin
ClassName := "tty";
end;
H:=FindWindow(PChar(ClassName), "Delphi Console");
ShowMessage(IntToStr(H));
// send a message to a window that holds console
// ShowWindow(H,SW_MINIMIZE);
end;

procedure TForm1.ReadConsole(Sender: TObject);
var
ToWCount, WCount : DWORD;
xy : TCOORD;
i : Integer;
ConsoleText : array [0..80] of char;
PConsoleText : PChar;
Begin
Memo1.Clear; PConsoleText:=@ConsoleText;
ToWCount:=80; WCount:=0;
for i := 0 to 24 do
begin xy.X := 0; xy.Y := i;
FillChar(ConsoleText, SizeOf(ConsoleText), 0);
ReadConsoleOutputCharacter(ConsHndl, @ConsoleText, ToWCount, xy, WCount);
Memo1.Lines.Append(String(PConsoleText)); // console text
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ReadConsole(nil);
end;

все получается, а если не чисто досовское окно, то оно остается просто черным и соответственно инфа не берется

чего делать, как заставить окно отображать текст?


 
Song   (2002-07-16 11:15) [1]

CreatePipe() не легче ?


 
RV   (2002-07-16 13:42) [2]

прошу прощения за неверный вопрос
мне тогда надо как запустить консольное приложение, так что-бы в нем отображались буковки
а то у меня черный экран, а окно нужно не только для взятия из него информации


 
FLAME   (2002-07-16 15:51) [3]

Может быть стоит попробовать в CreateProcess(nil,"c:\nc5\nc.exe",nil,nil,False,NORMAL_PRIORITY_CLASS,nil,nil,StartupInfo,ProcessInfo)
указать CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS


 
RV   (2002-07-17 08:47) [4]

Вигвам, однако. Не получилось, опять черное окно
а может быть что это просто прога такая? (HyTech SQL-сервер, если кто знает)
Ау, мастера! Хелп ми!


 
RV   (2002-07-17 15:36) [5]

нет ни у кого мыслей?
или отказаться от этой затеи? конектится к нему уж больно не охота ради чтения одной строчки...



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.07.29;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.56 MB
Время: 0.029 c
1-95319
olookin
2002-07-15 16:07
2002.07.29
Перечисление констант


1-95399
sergey32
2002-07-16 10:28
2002.07.29
Может дурацкий вопрос


1-95429
snoup
2002-07-16 16:15
2002.07.29
Привет! Как программно послать SMS на какую-нить мобилу!!!


1-95293
BlackGrin
2002-07-15 11:06
2002.07.29
Определение нажатого кнопки


14-95538
ProgMan
2002-06-25 10:52
2002.07.29
Курение?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский