应用程序在状态栏上的问题

Question

postmessage(application.handle,GWL_EXSTYLE,WA_EX_TOOLWINDOW)or 
SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
 
 

Answer 1

zhanghaifeng(海风) (  ) 的方法完全正确！
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”等字样，删除它们';
I.Desire := '加不加分随你';
—————————————————————————————————
　　　　　　　

Answer 2

procedure TForm1.FormCreate(Sender: TObject);
begin
  // 让程序在任务栏中隐藏
  SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
end;

Answer 3

嘿嘿大家都说完了啊，小弟我说个别的function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; 
      stdcall; external 'KERNEL32.DLL';
      再在上面的窗口Create事件加上一句：RegisterServiceProcess(GetCurrentProcessID, 1);//隐藏98中ALT+DEL+CTRL看不见