Форум: "Система";
Текущий архив: 2003.07.21;
Скачать: [xml.tar.bz2];

Вниз

УБРАТЬ иконку из ALT-TAB   Найти похожие ветки 

← →
Berzercer   (2003-05-13 16:57) [0]

Господа, плиз, очень нужно УБРАТЬ иконку из ALT-TAB. Именно убрать, чтобы она там не отображалась, а то знаю как сделать ее неактивной, но как вообще убрать - нет. Помогите. Без этого не могу проект закончить!

---

← →
Zew   (2003-05-13 17:21) [1]

...
var WnHnd : Integer;
begin
WnHnd := GetWindowLong(Application.Handle, GWL_EXSTYLE);
WnHnd := WnHnd or WS_EX_TOOLWINDOW;
SetWindowLong(Application.Handle, GWL_EXSTYLE, WnHnd);...
Попробуй читал что помогает если что подкорректируешь!

---

← →
Berzercer   (2003-05-13 17:25) [2]

Спасибо, но это не работает.

---

← →
DeadMeat   (2003-05-13 18:11) [3]

У меня вот так работает:


unit Unit1;

interface

uses
Windows, Controls, Forms;

type
TForm1 = class(TForm)
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
protected
procedure CreateParams(var Params: TCreateParams); override;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
params.ExStyle:= params.exstyle or WS_EX_TOOLWINDOW;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
showwindow (application.handle,sw_hide);
end;

end.



---

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

Форум: "Система";
Текущий архив: 2003.07.21;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.008 c