Как в delphi "условить" нажатие ОДНОВРЕМЕННО на кнопки SHIFT и ALT ?

[Erlotaza]

Здравствуйте, если точнее, я хочу сделать так: чтобы программа не реагировала нинакакие клавиши, кроме "SHIFT+ALT" и "CTRL+SHIFT" (т.е переключение раскладки клав.). Я знаю как задать просто 1 кнопку, напрмер, if key=VK_SHIFT, но не знаю как задать одновременное нажатие клавиш alt+shift и ctrl+shift, ?
Заранее благодарен!

[s-andriano]

Заведи на каждую из интересующих клавиш по логической переменной и устанавливай ее при нажатии, а при отпускании сбрасывай.
После отработки нажатия, проверь состояние логических переменных.

[Miha85193]

Попробуйте такой вариант

 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ((ssAlt in Shift)or(ssCtrl in Shift))and(ssShift in Shift) then
  begin
    MessageBeep(MB_ICONWARNING);
  end;
end;

[Erlotaza]

Сообщение от Miha85193

Попробуйте такой вариант

 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ((ssAlt in Shift)or(ssCtrl in Shift))and(ssShift in Shift) then
  begin
    MessageBeep(MB_ICONWARNING);
  end;
end;

неа. ALT+TAB работает)
Я нашел уже код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
procedure BlockInput; external 'user32.dll';

implementation
 procedure Block;
asm
  push 1
  call BlockInput
end;

procedure UnBlock;
asm
  push 0
  call BlockInput
end;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Block;
end;

end.

Но теперь новая проблема: мне нужно чтобы можно было вводить буквы в edit. то есть процедура запретила абсолютно все нажатия кнопок, а мне нужно, чтобы обычные (безобидные символьные) кнопки: A-Z нажимались)
ИЛи по другому: мне нужно забиндитить я себе уже сам.., но не знаю как именно все одновременно "CTRL+ALT+DEL", как их вместе записать?

[3D Hunter]

Причем тут ALT+TAB? Это системная комбинация и ваша программа тут ни при чем. Постройте четкую формулировку проблемы, что конкретно нужно и для каких вводов компонентов.

[Miha85193]

неа. ALT+TAB работает)

И что, при нажатии Alt+Tab слышен MessageBeep(MB_ICONWARNING)? :D

[RibGeDx]

procedure TForm1.FormCreate(Sender: TObject);
begin
  if (GetKeyState(VK_SHIFT) < 0) and (GetKeyState(18) < 0) then Form1.Close;
end;

[unbanned]

буквально недавно на форуме задавал такой же вопрос
в итоге нагуглил сам вот такое решение

...
public
     procedure h_key(var Message: TMessage); message WM_HOTKEY;
{ Public declarations }
  end;
...
procedure TForm2.FormCreate(Sender: TObject);
begin
  RegisterHotKey(Handle, 0, VK_SHIFT, VK_MENU);//вот тут указываешь клавиши, например для shift + alt
end;
...
procedure TForm2.h_key(var Message: TMessage);
begin
  //сам обработчик собственно
end;
...
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  UnRegisterHotKey(Handle, 0);
end;