ｿｽ@ ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ

ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

ｿｽVｿｽｿｽ 2005/09/03(ｿｽy) 17:15:20

KeyDownｿｽｿｽKeyｿｽﾉは会ｿｽｿｽｿｽｿｽ黷ｽｿｽLｿｽ[ｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽ黷ｩｿｽ逡ｶｿｽｿｽｿｽｿｽ謫ｾｿｽｿｽｿｽ驍ｱｿｽﾆは可能ｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽLｿｽ[ｿｽRｿｽ[ｿｽhｿｽｿｽOrdｿｽﾅ取得ｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽﾇ、ｿｽｿｽｿｽﾌ逆ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽB

Fusa 2005/09/03(ｿｽy) 18:08:45

  ShowMessage(IntToHex(word('A'),2));
  ShowMessage(IntToHex(Ord('A'),2));

    41
    ｿｽﾆ表ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽ

  ShowMessage(Char(StrToInt('$41')));
  ShowMessage(Char($41));
  ShowMessage(Chr($41));

    ｿｽﾇゑｿｽﾅゑｿｽ
    A
    ｿｽﾆ表ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

QUEBits 2005/09/13(ｿｽｿｽ) 22:14:24

ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾈゑｿｽｿｽﾆゑｿｽlｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽzｿｽbｿｽgｿｽLｿｽ[ｿｽｿｽoｿｽ^ｿｽｿｽｿｽｿｽ¥ｿｽtｿｽgｿｽﾅ、
ShiftｿｽﾆゑｿｽF1ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ黷ｽｿｽ鼾ｿｽﾉゑｿｽ
ｿｽLｿｽ[ｿｽlｿｽ[ｿｽｿｽｿｽ得ゑｿｽｿｽｿｽ@ｿｽB
ｿｽｿｽｿｽﾌとゑｿｽｿｽﾌコｿｽ[ｿｽhｿｽｿｽｿｽQｿｽlｿｽﾉなゑｿｽﾎ幸ｿｽｿｽｿｽﾅゑｿｽｿｽB

///////////////////////////////////////////////////////////
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  strMod : string;
  Key_Name  : array[0..100] of char;
  lParam : Integer ;
begin
  {RegisterHotKeyｿｽﾉ渡ｿｽｿｽｿｽoｿｽ[ｿｽ`ｿｽｿｽｿｽｿｽｿｽLｿｽ[ｿｽRｿｽ[ｿｽh}
  vk := Key ;

  {RegisterHotKeyｿｽﾉ渡ｿｽｿｽｿｽｿｽｿｽｿｽLｿｽ[ｿｽｿｽｿｽﾌ変奇ｿｽ}
  fsModifiers := 0;
  if ssShift in Shift then
  begin
    fsModifiers := fsModifiers + MOD_SHIFT;   // +4
  end;
  if ssAlt in Shift then
  begin
    fsModifiers := fsModifiers + MOD_ALT;     // +1
  end;
  if ssCtrl in Shift then
  begin
    fsModifiers := fsModifiers + MOD_CONTROL; // +2
  end;


  {ｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ}

  case fsModifiers of
    1: strMod := 'Alt + ';
    2: strMod := 'Ctrl + ';
    4: strMod := 'Shift + ';
    3: strMod := 'Ctrl + Alt + ';
    5: strMod := 'Shift + Alt + ';
    6: strMod := 'Ctrl + Shift + ';
    7: strMod := 'Ctrl + Shift + Alt + ';
  else
    strMod := '';
  end;


  {ｿｽoｿｽ[ｿｽ`ｿｽｿｽｿｽｿｽｿｽLｿｽ[ｿｽRｿｽ[ｿｽhｿｽｿｽXｿｽLｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽﾉ変奇ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽLｿｽ[ｿｽlｿｽ[ｿｽｿｽｿｽ得ゑｿｽ}

  lParam := MapVirtualKey(Key, 0) shl 16 ;

  case Key of   // lParamｿｽｿｽ0ｿｽｿｽｿｽ逅費ｿｽｿｽｿｽｿｽ24ｿｽﾔ目のビｿｽbｿｽgｿｽｿｽExtended-Key Flag
    33..46,91..93,108,111,144,163,165: lParam := lParam + $1000000 ;
    // Page Up...LEFT,UP,RIGHT,DOWN...Delete,,Windowsｿｽﾈどなゑｿｽ
  end;

  GetKeyNameText(lParam, @Key_Name, 100);  //Key_Namewｿｽ得ゑｿｽ

  KeyNameStr := String(Key_Name); //Ctrl + Ctrl ｿｽﾝゑｿｽｿｽｿｽｿｽﾉなゑｿｽﾌゑｿｽhｿｽｿｽ
  if KeyNameStr = 'Ctrl' then
  begin
  KeyNameStr := '';
  end;
  if KeyNameStr = 'Shift' then
  begin
  KeyNameStr := '';
  end;
  if KeyNameStr = 'Alt' then
  begin
  KeyNameStr := '';
  end;

  Edit1.Text := ( strMod + KeyNameStr ) ;    //ｿｽ¥ｿｽｿｽ
end;
///////////////////////////////////////////////////////////

ｿｽVｿｽｿｽ 2005/09/13(ｿｽｿｽ) 22:43:09

FusaｿｽｿｽｿｽｿｽAQUEBitsｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽQｿｽlｿｽﾉなゑｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽxｿｽzｿｽbｿｽgｿｽLｿｽ[ｿｽﾖ係ｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽﾌで。

Created by board of various Programming Library.