| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Скрыть из ALT-Tab [D7, NT4, WinXP]

Hkr ©   (2004-04-24 10:32:00) 

Как скрыть программу из ALT-Tab и с панели задач? следующий код не работает :(

//...
var ExStyle : Integer;
begin
 Application.Initialize;
 ExStyle:=GetWindowLong(Application.Handle, Gwl_ExStyle);
 SetWindowLong(Application.Handle, Gwl_ExStyle,
  ExStyle or Ws_Ex_ToolWindow and Ws_Ex_AppWindow);
 Application.ShowMainForm:=False;
//...


---

Hkr   (2004-04-29 10:31:00) [1]

> biron   (26.04.04 02:39) [3]

неа такое у меня под XP не прет, может из-за того, что BorderStyle = bsNone...

---

biron   (2004-04-26 02:39:00) [2]

//...
var ExStyle : Integer;
begin
Application.Initialize;
ExStyle:=GetWindowLong(Application.Handle, Gwl_ExStyle);
SetWindowLong(Application.Handle, Gwl_ExStyle,
 ExStyle or Ws_Ex_ToolWindow and Ws_Ex_AppWindow);
!!!! Application.Title:=''; // И все - под XP токочто проверял
Application.ShowMainForm:=False;
//...

---

Hkr   (2004-04-25 09:37:00) [3]

Спасибо :)

---

Игорь Шевченко   (2004-04-24 18:20:00) [4]

unit main;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs;

type
 TfMain = class(TForm)
   procedure FormShow(Sender: TObject);
 protected
   procedure CreateParams (var Params: TCreateParams); override;
 end;

var
 fMain: TfMain;

implementation

{$R *.dfm}

procedure TfMain.CreateParams(var Params: TCreateParams);
begin
 inherited;
 Params.Exstyle := Params.ExStyle or WS_EX_TOOLWINDOW;
end;

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

end.


В FAQ ?

---

Наверх