Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.096 c
8-1080054213
Pa5ha
2004-03-23 18:03
2004.05.30
IndexedBuffer


7-1082372830
defen
2004-04-19 15:07
2004.05.30
Screenshot


1-1084650536
LORDMAXX
2004-05-15 23:48
2004.05.30
Как сделать чтоб OpenDialog не выходил за пределы директории


6-1081437214
som
2004-04-08 19:13
2004.05.30
проблема с навигацией по FTP серверу


7-1082703132
Random
2004-04-23 10:52
2004.05.30
Скорость сидюка