Delphi程序的一个小问题

Question

编译好的.exe文件在运行的时候，如果最小化的话，在屏幕的最左下角会留有一个最小化后的窗口，如何把它去掉？

Answer 1

SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);

Answer 2

SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);

Answer 3

你说的是mdi吗？
如果是的话，要在action中写代码

Answer 4

sdi 写一个函数,如下： private
   procedure WMSysCommand(var Message: TMessage); message WM_SYSCOMMAND;
    { Private declarations }
  public
    { Public declarations }
  end;
 procedure  Tfrmmain.WMSysCommand(var Message: TMessage);
   begin
     if (Message.WParam = SC_MINIMIZE) then
       Application.Minimize
     else if (message.WParam =sc_close) then
     begin
     if Application.MessageBox('你是否要退出系统？','提示信息',MB_YESNO+MB_ICONQUESTION) = IDYES then
        application.Terminate;
        end
     else
       inherited;
   end;