Из своей пороги сделай DOS-прогу активной(в любой момент)


var
Wnd: Integer;
buff: ARRAY [0..127] OF Char;
begin
Wnd := GetWindow(Application.Handle, gw_HWndFirst);
while Wnd <> 0 do
begin
if (Wnd<>0) and (GetWindowText(Wnd, buff, sizeof(buff))<>0) then
if (UpperCase(StrPas(buff)) = name_DOS) then
begin
if IsWindowVisible(Wnd) then
ShowWindow(Wnd, SW_RESTORE);
Windows.SetFocus(Wnd);
Windows.SetForegroundWindow(Wnd);

kl:=True;
end;
Wnd := GetWindow(Wnd, gw_hWndNext);
end;
end;

не бери дурного в голову.
скопировал фрагмент, просто забыл убить.