// ******************************************************* //
// Hide Applicaton Taskbar Button for Delphi >=2007// ******************************************************* //
// Menu->Project->View Source
program Project1;
uses
Vcl.Forms,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
begin
Application.Initialize;
Application.MainFormOnTaskbar := False; // Change True to False, Default is True
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
// on Unit1.pas
procedure TForm1.FormActivate(Sender: TObject);
begin
ShowWindow(Application.Handle, SW_HIDE);
end;
procedure TForm1.FormShow(Sender: TObject);
begin
ShowWindow(Application.Handle, SW_HIDE);
end;
No comments:
Post a Comment