如何让程序隐藏地运行？

Question

我在做一个后台处理程序，希望运行时屏幕没有任何显示，在windows任务管理器中的应用程序项中也没有相关项，只在进程列表里存在，但我已经用了一个窗体，不想删除Tform1了，麻烦，但又只想在进程中存在，如何实现？

Answer 1

Tform1.visible=False
或者
var phwnd:HWND ;
begin
phwnd:=findwindow (nil,'form1');
showwindow (phwnd  ,SW_HIDE ) ;
end;

Answer 2

procedure TForm1.FormShow(Sender: TObject);
begin
  ShowWindow(Application.Handle, SW_HIDE);
  ShowWindowAsync(Handle, SW_HIDE);
end;

Answer 3

楼上的不能实现。等待中。
简单的说下
第一个不要代码,是要你设置Tform1的visible为False;
第二个测试通过，我不知道你哪里情况可能不同，根据情况改下~