Как вывести на видео выход только одно из окон моей програаммы

[Logic]

Всем привет.

У меня вот какая проблема.
Мне надо вывести на видео выход только одно из окон моей программы
(что бы кроме неё на видео выход ни чего не поступало).
Если есть у кого-нибудь похожие примеры дайте пожалуйсто.
Очень надо!

[zubr]

Ну вариантов много...
Как один из простейших, можно сделать все окна кроме своего невидимыми. Когда то делал подобное на Delphi, если интересно, могу кинуть пример.

[Logic]

Да, интересно. Скинь пожалуйса пример.
А рабочего стола тоже не будет видно? (Должно быть видно, только окно программы.)
Дальше его накладывают на видео.

[zubr]

Рабочего стола не будет видно. Вот код:

Код:

var
  count_window:cardinal;
  WinHandles:array [1..1000] of cardinal; 

function EnumProcHide(WinHandle: HWnd; Param: LongInt): Boolean; stdcall;
begin
 If (GetParent(WinHandle) = 0) and (not IsIconic(WinHandle)) and
  (IsWindowVisible(WinHandle)) then
 begin
  ShowWindow(WinHandle, SW_HIDE);
  inc(count_window);
  WinHandles[count_window]:=WinHandle;
 end;
 EnumProcHide:=TRUE;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 count_window:=0;
 FillChar(WinHandles, 1000, 0);
 EnumWindows(@EnumProcHide, 0);//сделать все окна невидимыми
 ShowWindow(Handle, SW_SHOW);//сделать свое окно видимым
end;

procedure TForm1.FormDestroy(Sender: TObject);
var
  i:Integer;
begin
 For i:=1 to count_window do
 ShowWindow(WinHandles[i], SW_SHOW);//при закрытии приложения, сделать все невидимые окна видимыми
end;

[Logic]

Спасибо за код, но в этом варианте виден фон рабочего стола.
Если сигнал с видео выхода (т.е. то чот получилось в результате выше изложенного кода) наложить на видео, то его (видео) не будет видно.
Надо чтобы в результате наложения, накладывалось только окно моей программы. А за окном было видно видео

[digitals]

Если сигнал с видео выхода (т.е. то чот получилось в результате выше изложенного кода) наложить на видео, то его (видео) не будет видно.
Надо чтобы в результате наложения, накладывалось только окно моей программы. А за окном было видно видео

на сколько я понимаю, даже если будет выводится только окно программы, вся остальная часть экрана будет черной, например, и эффект от наложения будет тот же. И вообще, что в данном случае подразумевается над наложением ? Ведь микширование видео это не тоже самое, что микширование звука. Там простым сложением сигнала не обойдешся ...

[Logic]

Есть два компьютера.
На одном запущена моя программа. На видео выходе этого компьетера должно быть только окно моей программы.
На втором стоит титровальная плата, которая будет накладывать этот сигнал на видео.

[digitals]

в этом варианте виден фон рабочего стола.

В таком случае проще рабочий фон сделать черным . Или делать его черным на время  работы программы

[zubr]

Мда... чтоб от фона избавиться, придется обрабатывать вывод на видеокарте в режиме ядра, то бишь драйвер