Fórum CTRL + C com Gauge/Progress bar #391209

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
crtlc:string;
begin
crtlc:=chr(13);
ShowMessage('CTRL'+crtlc+'precionado');
end;

procedure TFLeitor.PostKeyEx32(Key: Word; const Shift: TShiftState; SpecialKey: boolean);
type
  TShiftKeyInfo = Record
  shift: Byte;
  vkey : Byte;
End;
  byteset = Set of 0..7;
  const
  ShiftKeys: array [1..3] of TShiftKeyInfo =
  ((shift: Ord(ssCtrl); vkey: VK_CONTROL ),
  (shift: Ord(ssShift); vkey: VK_SHIFT ),
(shift: Ord(ssAlt); vkey: VK_MENU ));
var
  Flag: DWORD;
  bShift: ByteSet absolute shift;
  i: Integer;
begin
  for i := 1 to 3 do begin
    if shiftkeys[i].shift in bShift then
      Keybd_Event(ShiftKeys[i].vkey, MapVirtualKey(ShiftKeys[i].vkey, 0), 0, 0);
  end; // for

  if SpecialKey Then
    Flag := KEYEVENTF_EXTENDEDKEY
  else
    Flag := 0;

    Keybd_Event(Key, MapvirtualKey(Key, 0), Flag, 0);
    Flag := Flag or KEYEVENTF_KEYUP;
    Keybd_Event(Key, MapvirtualKey(Key, 0), Flag, 0);

  for i := 3 DownTo 1 do
  begin
    if ShiftKeys[i].shift in bShift then
      Keybd_Event(shiftkeys[i].vkey,MapVirtualKey(ShiftKeys[i].vkey, 0),KEYEVENTF_KEYUP, 0);
  end; // for
end; // PostKeyEx32