Форум: "Система";
Текущий архив: 2004.05.30;
Скачать: [xml.tar.bz2];
Вниз
Скрыть из 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.041 c
