| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Duk_777 ©   (2003-11-08 21:31:00) 

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

---

Cash   (2003-11-15 00:40:00) [1]

Стараюсь. :)

---

DeadMeat   (2003-11-14 23:47:00) [2]

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

---

Cash   (2003-11-14 23:22:00) [3]

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

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

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

---

Zew   (2003-11-09 08:47:00) [4]

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

---

Иван Шихалев   (2003-11-08 23:10:00) [5]

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

---

Наверх