Чтобы приложение не уходило за пределы моей формы

[Marsel737]

Всем привет.

Вообщем та весь вопрос в названии темы. У меня есть форма

  frmMain.BorderStyle:=bsNone;
  frmMain.WindowState:=wsMaximized;

И с этой формы я запускаю какое нибудь приложение, нужно чтобы по клику на мою форму это приложение не уходило за мою форму. Заранее спасибо за любую помощь

[mihali4]

Как вы себе это представляете ?
Сделайте "по клику на мою форму" SendToBack...
И что это будет ?

[Marsel737]

mihali4, не помогло, может вы нитак поняли, мне нужно чтоб приложение запущенное через

WinExec(...);

было всегда поверх моей формы

[mihali4]

Ну вот, пожалуйста, поверх:

procedure TForm1.Button3Click(Sender: TObject);
begin
ShellExecute(Handle, nil, 'c:\windows', nil, nil, SW_SHOW);
SendToBack;
end;

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

А как состыковать две фразы:
"было всегда поверх моей формы" и "Чтобы приложение не уходило за пределы моей формы" ?
Это же совершенно разные вещи...

[Marsel737]

Да нет, просто форма на всё окно, даже панели задач не видно и нужно чтобы при клике по моей форме постороннее приложение не уходило за мою форму.

И ещё, что нужно в uses дописать, чтобы тот код что вы привели работал?

[mihali4]

Нужно подцепить ShellAPI

[Marsel737]

mihali4, вообщем этот код тоже не помог. Попробую объяснить сначала. У меня есть форма без рамки и на весь экран. По клику на кнопку я запускаю приложение. Это приложение находится поверх моей формы. А вот если я кликну по своей форме, то приложение исчезает(уходит за мою форму). А мне нужно чтоб это приложение всегда было поверх моей формы.

[mihali4]

А-а-а... Ну тогда так:

procedure TForm1.FormPaint(Sender: TObject);
begin
SendToBack;
end;

[uberchel]

Надо что бы форма ставала не активной ?

procedure RunAndWait(const FileName: string);
var
 St: Tstartupinfo;
 Pi: Tprocessinformation;
begin
 FillChar(St, SizeOf(St), 0);
 Createprocess(0, PChar(FileName), 0, 0, False, 0, 0, 0, St, Pi);
 WaitforSingleObject(Pi.hProcess, INFINITE);
end;

[Marsel737]

mihali4, спс, записал

SendToBack;

в OnClick формы.

uberchel, это не совсем то, что нужно