Как два консольных приложения разделить по разным окнам
Pasha L © (2005-11-01 22:51:00)
Как из одного консольного приложения запустить другое и чтобы
оно было в другом окне?
palva (2005-11-02 08:26:00) [1]
Вот это работает. Но еще поля у si и pi нужно заполнить
требуемым образом.
{$APPTYPE CONSOLE}
uses
Windows;
var
si: STARTUPINFO;
pi: PROCESS_INFORMATION;
begin
si.cb := SizeOf(si);
CreateProcess(
'b.exe',
// name of executable module
'',
// command line string
Nil,
// SD
Nil,
// SD
True,
// handle inheritance option
CREATE_NEW_CONSOLE, // creation flags
Nil,
// new environment block
Nil,
// current directory name
si,
// startup information
pi
// process information
);
ReadLn
end.
b.pas
{$APPTYPE CONSOLE}
begin
ReadLn
end.
Наверх 
ЧАТ |
Орешник |
|
