консольное окно

← →
RV © (2002-07-17 11:10) [0]

Прошу прощения за повторяющийся вопрос, но все же нужно, а ответы не подошли. Да народу тут больше тусуется

Как мне запустить консольное приложение(HyTech SQLсервер), что-бы окно было не черное, а с буковками. Вот мой код
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"{ это работает, а "c:\hytech\sql32.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;

← →
RV © (2002-07-17 11:20) [1]

Win2000,D5

← →
RV © (2002-07-17 14:42) [2]

мастера, люди, кто-нибудь
ну почему никак, а? флаги менял помоему уже повсякому

← →
Уролог (2002-07-17 15:11) [3]

Дорогуша, если ты негроид, то у тебя черный,
если ты европеоид - белый,
если монголоид - желтый !
Поверь старому специалисту. А ежели хочешь приживить другого цвета, то либо отторжение, либо летальный исход !

да не негроид я
может такое быть, что это прога такая?

...я убью тебя лодочник...
расколю монитор и выкину клаву, блин.
Я весь день занимался любовью с этим запуском без черного окна.
(Я уже давно приконектился к серверу (@#%E@%$#%$#%$@#%$@%#@) и все у него вытащил, правда прога раздулась, ой-ой кааак), но
но почему же не запускается нормально, а?
вопрос уже для меня принципа

консольное окно Найти похожие ветки