私はデルフィ学習者です。タスクバーと 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.
初めてのみ機能します。しかし、次のような問題があります。
- アプリケーションは Alt+Tab で表示されます。
- アプリケーションを最小化して再度復元すると、アプリケーションはまだタスクバーにあります。
- アプリケーションがタスクバーに表示されている場合、コンパイル済みの exe ファイル名は表示されますが、MaimForm のキャプションは表示されません。私を助けてください。