Скачать: CL | DM;

Как отключить показ программы при нажатии alt+tab   Найти похожие ветки 

← →
Duk_777   (2003-11-08 21:31) [0]

Как отключить показ программы при нажатии alt+tab

---

← →
Иван Шихалев ©   (2003-11-08 23:10) [1]

Поиграть со стилями главного окна (особенно - расширенными), на худой конец - скрыть его.

---

← →
Zew ©   (2003-11-09 08:47) [2]

Вот так можно
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.

---

← →
Cash ©   (2003-11-14 23:22) [3]

А я вот взял, да ишлепнул на форму таймер.
Интервал:=1.
А в сабытии OnTimer настучал такую вещь:

keybd_event( VK_MENU, $45, KEYEVENTF_KEYUP, 0);

VK_MENU - это Alt.
KEYEVENTF_KEYUP - означает, что клавиша находится в отпущеном состоянии.
Таким образом я вывел из строя в сочетания клавиш с участием Alt
Понимаю, таймер - громоздко и память хавает. Без таймера этот код можно вписать в событие OnKeyPress или OnKeyDown того контрола, или кучи контролов, у которого будет фокус.

---

← →
DeadMeat ©   (2003-11-14 23:47) [4]

> Cash © (14.11.03 23:22) [3]
Умно... :)))

---

← →
Cash ©   (2003-11-15 00:40) [5]

Стараюсь. :)

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.015 c