| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Одна консоль на двоих и много на одного

TUser ©   (2004-12-08 12:10:00) 

1. Можно ли сделать общюю консоль для двух процессов?
2. Можно ли сделать более одной консоли для одного процесса?
3. Если что-то из этого можно, то как?

---

TUser   (2004-12-09 10:15:00) [1]

up

---

TUser   (2004-12-08 13:44:00) [2]

> DiamondShark ©   (08.12.04 12:50) [1]
> 1. Да

Попробовал порождать один процесс от другого. Вот так
procedure TForm1.Button1Click(Sender: TObject);
begin
 if AllocConsole then
   writeln('i am first');
end;

procedure TForm1.Button2Click(Sender: TObject);
var sa:PSecurityAttributes;
   si:_STARTUPINFOA;
   pi:_PROCESS_INFORMATION;
begin
 if fileexists(edit1.Text) then begin

   fillchar(si,sizeof(si),#0);
   fillchar(pi,sizeof(pi),#0);
   si.cb:=sizeof(si);
   New(sa);
   fillchar(sa^,sizeof(sa^),#0);
   sa^.nLength:=sizeof(sa^);
   sa^.bInheritHandle:=true;
   CreateProcess(PAnsiChar(Edit1.Text),nil,nil,nil,true,0,nil,nil,si,pi);
   Dispose(sa);
   end;
end;

// Порождаемый процесс

procedure TForm1.Button1Click(Sender: TObject);
begin
 if AllocConsole then
   writeln('i am second');
end;

У Рихтера посмотрел про наследование описателей, но  там для объектов ядра - надо создавать его с нужными SecurityAttributes. Это понятно. А как сделать то же самое для консоли - при ее создании аттрибуды не указываются.

---

VMcL   (2004-12-08 12:54:00) [3]

В WinXP+ можно ещё обратить внимание на AttachConsole().

---

DiamondShark   (2004-12-08 12:50:00) [4]

1. Да
2. Нет
3. Для (1) -- породить один процесс из другого

---

Наверх