0

我是德尔福学习者。我希望从任务栏和 Alt+Tab 中隐藏我的 Delphi 应用程序。所以我定义了以下代码：

unit KoushikHalder01;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs;

type
  TMainForm = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

procedure TMainForm.FormActivate(Sender: TObject);
begin
  ShowWindow(Application.Handle, SW_HIDE);
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  ShowWindow(Application.Handle, SW_HIDE);
  SetWindowLong(Application.Handle, GWL_EXSTYLE,
  GetWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW);
  ShowWindow(Application.Handle, SW_SHOW);
end;

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

end.

和

program KoushikHalder;

uses
  Vcl.Forms,
  KoushikHalder01 in 'KoushikHalder01.pas' {MainForm};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := false;
  Application.CreateForm(TMainForm, MainForm);
  Application.Run;
end.

它仅适用于第一次。但是有一些问题如下：

  1. 应用程序在 Alt+Tab 中可见。
  2. 如果我最小化应用程序并再次恢复它，应用程序仍在任务栏上。
  3. 当应用程序在任务栏上可见时，它显示已编译的 exe 文件名，但不显示 MaimForm 的标题。请帮我。
4

1 回答 1

1

这将从任务栏中隐藏：

procedure TForm1.FormActivate(Sender: TObject);
begin
  SetWindowLong(Handle, GWL_EXSTYLE, 
                GetWindowLong(Handle, GWL_EXSTYLE) or 
                WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW); 
  ShowWindow(Application.Handle, SW_HIDE);
end;

在 FormActivate 事件中使用该代码...

于 2014-12-16T19:16:53.787 回答