Aplicacion o Ventana siempre visible?

[kalisto]

Para que la ventana este siempre encima te vale esto.

Código Delphi [-]
procedure TForm2.Button1Click(Sender: TObject);
var
  hNotepadWindow: HWND;
begin
  hNotepadWindow := FindWindow('notepad', nil);
  SetWindowPos(hNotepadWindow,
              HWND_TOPMOST,
              0, 0, 0, 0,
              SWP_NOMOVE or SWP_NOSIZE or SWP_SHOWWINDOW);
end;

Para que tenga siempre el foco la ventana tendria que comportarse como un cuadro de dialogo, esto no se como se hace pero te puede dar pistas.
un saludo