Текущий архив: 2004.05.30;
Скачать: CL | DM;

Вниз

Скрыть из ALT-Tab   Найти похожие ветки 

← →
Hkr ©   (2004-04-24 10:32) [0]

Как скрыть программу из 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;
//...


---

← →
Игорь Шевченко ©   (2004-04-24 18:20) [1]

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 ?

---

← →
Hkr ©   (2004-04-25 09:37) [2]

Спасибо :)

---

← →
biron   (2004-04-26 02:39) [3]

//...
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-29 10:31) [4]

> biron   (26.04.04 02:39) [3]

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

---

Страницы: 1 вся ветка

Текущий архив: 2004.05.30;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.037 c