怎么才能让程序永远在最前面

Question

SetWindowPos(Application.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE);

Answer 1

SetWindowPos( Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);

Answer 2

方法一：
先setforegroundwindow(HWND)；然后再setwindowpos(form2.Handle,HWND_TOPmost,10,10,200,300,SWP_SHOWWINDOW );
方法二：
关键技术是重载Form的CreateParams方法
{form2 code}
public
  procedure CreateParams(Var Params:TCreateParams);override;uses unit1;
procedure tform2.CreateParams(var Params:TCreateParams);
begin
  inherited;
  With Params do
  begin
    wndParent:=GetDesktopwindow;
    ExStyle:=ExStyle or WS_EX_TOPMOST;
  end;
end;procedure TForm2.FormClose(Sender :TObject;var Action:TCloseAction);
begin
  Form1.show;
  ShowWindow(Application.handle,sw_show);
end;
{Form1}
uses unit2;
procedure TForm1.Button1Click(Sender:TObject);
begin
  with tform2.create(self) do show;
  hide;  {Hide Form1}
  ShowWindow(Application.handle,sw_hide);  {Hide Application}
end;

Answer 3

呵呵，和我查询的帖子回答都一样，用timer+setwindowpos搞定，多谢，给分