高手请进，关于隐藏窗体

Question

当前运行程序的窗体在任务栏里隐藏可以用
showwindow(application.handle,sw_hide);来实现

Answer 1

如果在98下
用
implementation
function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL';
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
  RegisterServiceProcess(GetCurrentProcessID, 1);
end;
要不这样也行
type
  TRegisterServiceProcess = function (dwProcessID, dwType:DWord) : DWORD; stdcall;{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);
var
  H :THandle;
  RegisterServiceProcess: TRegisterServiceProcess;
begin
  H:=LoadLibrary('KERNEL32.DLL');
  RegisterServiceProcess:=GetProcAddress(H, 'RegisterServiceProcess');
  RegisterServiceProcess (GetCurrentProcessID, 1);
  FreeLibrary(H);
end;

Answer 2

'RegisterServiceProcess在98下才有用!

Answer 3

RegisterServiceProcess只能隐藏自己的程序，但还是不能隐藏系统中所有窗口的
(来自差生市)　:在知道窗口句柄的情况下，是否可以隐藏任何程序