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

Вниз

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

← →
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]

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

---

← →
RV   (2002-07-17 15:26) [4]

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

---

← →
RV   (2002-07-18 08:22) [5]

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

---

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

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

Наверх

Память: 0.45 MB
Время: 0.007 c