ｿｽ@ ｿｽ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

Fusa 2009/12/02(ｿｽｿｽ) 13:21:30

ｿｽｿｽｿｽｿｽﾉゑｿｽｿｽﾍ。

ｿｽEｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽLｿｽ[ｿｽﾆ、ｿｽJｿｽ[ｿｽ¥ｿｽｿｽｿｽLｿｽ[ｿｽﾌ組ｿｽﾝ搾ｿｽｿｽせｿｽｿｽ
ｿｽzｿｽbｿｽgｿｽLｿｽ[ｿｽ動作さｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

ｿｽﾈゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾆ、dynabook UX ｿｽﾆゑｿｽｿｽｿｽｿｽlｿｽbｿｽgｿｽuｿｽbｿｽNｿｽｿｽFnｿｽLｿｽ[ｿｽﾌ位置ｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔ｩｿｽｿｽｿｽｿｽｿｽﾌで、
(ｿｽ_ｿｽCｿｽiｿｽuｿｽbｿｽNｿｽVｿｽｿｽｿｽ[ｿｽYｿｽﾍ右ｿｽｿｽｿｽｿｽFnｿｽﾆゑｿｽｿｽｿｽｿｽﾌゑｿｽｿｽﾌ用ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽｿｽ)
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌノｿｽ[ｿｽgPCｿｽﾅゑｿｽAｿｽﾍ擬ｿｽIｿｽﾉまねでゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB

Ctrl+ｿｽｿｽｿｽEｿｽｿｽｿｽAｿｽｿｽAPageUpｿｽEPageDownｿｽAｿｽﾉ奇ｿｽｿｽ闢厄ｿｽｿｽ
Ctrl+ｿｽｿｽｿｽEｿｽｿｽｿｽAｿｽｿｽAHomeｿｽEEndｿｽLｿｽ[ｿｽﾉ奇ｿｽｿｽ闢厄ｿｽﾄゑｿｽｿｽｿｽｿｽﾆ考ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽEｿｽﾉゑｿｽｿｽｿｽCtrlｿｽLｿｽ[ｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB

ｿｽﾆゑｿｽｿｽがｿｽA
ｿｽzｿｽbｿｽgｿｽLｿｽ[ｿｽﾍ、CtrlｿｽLｿｽ[ｿｽﾌ搾ｿｽｿｽEｿｽｿｽﾊにゑｿｽｿｽﾄ登ｿｽ^ｿｽﾈどでゑｿｽｿｽﾈゑｿｽ(ｿｽ轤ｵｿｽｿｽ)ｿｽﾌゑｿｽ
ｿｽﾈゑｿｽｿｽﾈゑｿｽｿｽしｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽB

ｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB

ｿｽｿｽｿｽﾌコｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
-----
unit Unit12;
interface
uses
ｿｽ@Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
ｿｽ@Dialogs;
type
ｿｽ@TForm12 = class(TForm)
ｿｽ@ｿｽ@procedure FormCreate(Sender: TObject);
ｿｽ@ｿｽ@procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
ｿｽ@private
ｿｽ@ｿｽ@procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
ｿｽ@public
ｿｽ@ｿｽ@{ Public declarations }
ｿｽ@end;
var
ｿｽ@Form12: TForm12;
implementation
{$R *.dfm}
procedure SetHotKeyToOS(Handle: THandle; HotKeyNumber: Integer; VirtualKey: Word;
 Shift, Ctrl, Alt, Win: Boolean);
var
ｿｽ@Modifiers: Word;
begin
ｿｽ@Modifiers := 0;
ｿｽ@if Shift  then Modifiers := Modifiers or MOD_SHIFT;
ｿｽ@if Ctrl   then Modifiers := Modifiers or MOD_CONTROL;
ｿｽ@if Alt    then Modifiers := Modifiers or MOD_ALT;
ｿｽ@if Win    then Modifiers := Modifiers or MOD_WIN;
ｿｽ@RegisterHotKey(Handle, HotKeyNumber, Modifiers, VirtualKey);
end;
function GetAsyncKeyState_Delphi(iKey: Integer): Boolean;
begin
ｿｽ@Result := BOOL(Hi(GetAsyncKeyState(iKey)));
end;
procedure TForm12.WMHotKey(var Msg: TWMHotKey);
begin
ｿｽ@case Msg.HotKey of
ｿｽ@ｿｽ@1: begin
ｿｽ@ｿｽ@ｿｽ@if GetAsyncKeyState_Delphi(VK_RCONTROL) then
ｿｽ@ｿｽ@ｿｽ@begin
ｿｽ@ｿｽ@ｿｽ@ｿｽ@//keybd_event(VK_RCONTROL, 0, KEYEVENTF_KEYUP, 0);
ｿｽ@ｿｽ@ｿｽ@ｿｽ@keybd_event(VK_PRIOR , 0, 0, 0);
ｿｽ@ｿｽ@ｿｽ@ｿｽ@keybd_event(VK_PRIOR  , 0, KEYEVENTF_KEYUP, 0);
ｿｽ@ｿｽ@ｿｽ@ｿｽ@//keybd_event(VK_RCONTROL, 0, 0, 0);
ｿｽ@ｿｽ@ｿｽ@end else
ｿｽ@ｿｽ@ｿｽ@begin
ｿｽ@ｿｽ@ｿｽ@ｿｽ@UnregisterHotKey(Self.Handle, 1);
ｿｽ@ｿｽ@ｿｽ@ｿｽ@keybd_event(VK_CONTROL, 0, 0, 0);
ｿｽ@ｿｽ@ｿｽ@ｿｽ@keybd_event(VK_UP , 0, 0, 0);
ｿｽ@ｿｽ@ｿｽ@ｿｽ@keybd_event(VK_UP  , 0, KEYEVENTF_KEYUP, 0);
ｿｽ@ｿｽ@ｿｽ@ｿｽ@SethotKeyToOS(Self.Handle, 1, VK_UP, False, True, False, False);
ｿｽ@ｿｽ@ｿｽ@end;
ｿｽ@ｿｽ@end;
ｿｽ@ｿｽ@2: begin
ｿｽ@ｿｽ@ｿｽ@if GetAsyncKeyState_Delphi(VK_RCONTROL) then
ｿｽ@ｿｽ@ｿｽ@begin
ｿｽ@ｿｽ@ｿｽ@ｿｽ@//keybd_event(VK_RCONTROL, 0, KEYEVENTF_KEYUP, 0);
ｿｽ@ｿｽ@ｿｽ@ｿｽ@keybd_event(VK_NEXT , 0, 0, 0);
ｿｽ@ｿｽ@ｿｽ@ｿｽ@keybd_event(VK_NEXT  , 0, KEYEVENTF_KEYUP, 0);
ｿｽ@ｿｽ@ｿｽ@ｿｽ@//keybd_event(VK_RCONTROL, 0, 0, 0);
ｿｽ@ｿｽ@ｿｽ@end else
ｿｽ@ｿｽ@ｿｽ@begin
ｿｽ@ｿｽ@ｿｽ@ｿｽ@UnregisterHotKey(Self.Handle, 2);
ｿｽ@ｿｽ@ｿｽ@ｿｽ@keybd_event(VK_CONTROL, 0, 0, 0);
ｿｽ@ｿｽ@ｿｽ@ｿｽ@keybd_event(VK_DOWN , 0, 0, 0);
ｿｽ@ｿｽ@ｿｽ@ｿｽ@keybd_event(VK_DOWN  , 0, KEYEVENTF_KEYUP, 0);
ｿｽ@ｿｽ@ｿｽ@ｿｽ@SethotKeyToOS(Self.Handle, 2, VK_DOWN, False, True, False, False);
ｿｽ@ｿｽ@ｿｽ@end;    end;
ｿｽ@end;
end;
procedure TForm12.FormCreate(Sender: TObject);
begin
ｿｽ@SethotKeyToOS(Self.Handle, 1, VK_UP, False, True, False, False);
ｿｽ@SethotKeyToOS(Self.Handle, 2, VK_DOWN, False, True, False, False);
end;
procedure TForm12.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
ｿｽ@if CanClose then
ｿｽ@begin
ｿｽ@ｿｽ@UnregisterHotKey(Self.Handle, 1);
ｿｽ@ｿｽ@UnregisterHotKey(Self.Handle, 2);
ｿｽ@end;
end;
end.
-----
ｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾄは、ｿｽｿｽｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽLｿｽ[+ｿｽ繪ｺｿｽLｿｽ[ｿｽﾈゑｿｽAHOTKETｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
WMHOTKEYｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽﾟてコｿｽ[ｿｽhｿｽｿｽﾅ搾ｿｽｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽLｿｽ[+ｿｽ繪ｺｿｽLｿｽ[ｿｽ送信ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽﾍゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB

ｿｽEｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽLｿｽ[+ｿｽ繪ｺｿｽLｿｽ[ｿｽﾌ場合
ｿｽyｿｽ[ｿｽWｿｽAｿｽbｿｽvｿｽAｿｽ_ｿｽEｿｽｿｽｿｽｿｽｿｽｿｽｿｽ送りたｿｽｿｽｿｽﾌゑｿｽ
ｿｽRｿｽ[ｿｽhｿｽﾅ撰ｿｽｿｽ艪ｵｿｽ謔､ｿｽﾆゑｿｽｿｽﾄゑｿｽA
ｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽLｿｽ[+ｿｽyｿｽ[ｿｽWｿｽAｿｽbｿｽvｿｽ_ｿｽEｿｽｿｽｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB

keybd_eventｿｽｿｽｿｽAVK_RCONTROLｿｽｿｽVK_LCONTROLｿｽﾆゑｿｽ
ｿｽｿｽﾊ出ｿｽｿｽｿｽﾈゑｿｽｿｽ謔､ｿｽﾈのでゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽｿｽｿｽ謔｢ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽmｿｽﾅゑｿｽｿｽｿｽｿｽ迢ｳｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽいｿｽｿｽHｿｽvｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽ....

GTR 2009/12/02(ｿｽｿｽ) 15:11:18

GetKeyState()ｿｽﾅキｿｽ[ｿｽﾌ擾ｿｽﾔゑｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽEｿｽEｿｽE

if GetKeyState( VK_RCONTROL ) and $8000 <> 0 then begin
   ShowMessage('R-CONTROL');
end;

http://delfusa.main.jp/delfusafloor/archive/www.nifty.ne.jp_forum_fdelphi/faq/00259.htm
ｿｽｿｽ
ｿｽQｿｽlｿｽﾉなゑｿｽﾜゑｿｽｿｽか？

GTR 2009/12/02(ｿｽｿｽ) 15:23:43

ｿｽｿｽｿｽﾟゑｿｽﾈゑｿｽｿｽｿｽｿｽB
VK_RCONTROLｿｽｿｽｿｽEｿｽｿｽｿｽﾈゑｿｽｿｽじゑｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ。
ｿｽｿｽｿｽ痰｢ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

Fusa 2009/12/02(ｿｽｿｽ) 17:06:39

ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽﾅゑｿｽｿｽｿｽB
ｿｽEｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽLｿｽ[ｿｽﾍ拾ｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽﾌキｿｽ[ｿｽﾌ会ｿｽｿｽｿｽｿｽｿｽｿｽﾏなゑｿｽｿｽｿｽﾔゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽB

ｿｽECtrl+[ｿｽｿｽｿｽﾌ連ｿｽｿｽ]ｿｽﾅゑｿｽAPageUpｿｽﾌ連ｿｽﾅ、ｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽ@ｿｽ¥ｿｽﾉでゑｿｽｿｽｿｽｿｽ轤｢ｿｽｿｽｿｽﾈと、ｿｽvｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽﾈゑｿｽｿｽﾈゑｿｽｿｽしｿｽｿｽｿｽB

ttt 2009/12/02(ｿｽｿｽ) 17:46:53

ｿｽﾅゑｿｽﾜゑｿｽｿｽAｿｽLｿｽ[ｿｽﾌ難ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉゑｿｽAsyncｿｽﾅなゑｿｽGetKeyStateｿｽｿｽgｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ。
ｿｽﾂゑｿｽｿｽﾅに、keybd_eventｿｽﾍゑｿｽｿｽｿｽﾃゑｿｽｿｽANTｿｽﾈ降ｿｽｿｽSendInputｿｽｿｽgｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆになゑｿｽｿｽﾄゑｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽﾍ趣ｿｽｿｽｿｽｿｽﾄみゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽ?

> keybd_eventｿｽｿｽｿｽAVK_RCONTROLｿｽｿｽVK_LCONTROLｿｽﾆゑｿｽｿｽﾊ出ｿｽｿｽｿｽﾈゑｿｽｿｽ謔､ｿｽﾈのでゑｿｽｿｽｿｽ
ｿｽｿｽｿｽﾛゑｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽAｿｽｿｽ2ｿｽｿｽｿｽｿｽｿｽﾌスｿｽLｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽwｿｽ閧ｵｿｽﾄみゑｿｽﾌはどゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽB
ｿｽiｿｽLｿｽ[ｿｽRｿｽ[ｿｽhｿｽﾉ対ゑｿｽｿｽｿｽXｿｽLｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽMapVirtualKeyｿｽﾅ難ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽj
ｿｽｿｽｿｽﾆは、ｿｽECtrlｿｽﾍ後かｿｽｿｽﾇ会ｿｽｿｽLｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽKEYEVENTF_EXTENDEDKEYｿｽｿｽwｿｽ閧ｷｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽAｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽﾋ。

ｿｽﾇゑｿｽｿｽ轤ｩｿｽﾆゑｿｽｿｽｿｽｿｽﾆ、ｿｽｿｽｿｽﾉキｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽkeybd_eventｿｽﾅ「ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽvｿｽｿｽｿｽﾆにでゑｿｽｿｽｿｽﾌゑｿｽｿｽﾇゑｿｽｿｽｿｽｿｽAｿｽﾆゑｿｽｿｽｿｽｿｽ_ｿｽｿｽｿｽCｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽcｿｽc

Fusa 2009/12/03(ｿｽｿｽ) 00:18:40

ｿｽMｿｽdｿｽﾈ擾ｿｽありがｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

>ｿｽLｿｽ[ｿｽﾌ難ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉゑｿｽAsyncｿｽﾅなゑｿｽGetKeyStateｿｽｿｽgｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ。
ｿｽｿｽｿｽｿｽﾍ、ｿｽｿｽｿｽｿｽｿｽAｿｽｿｽ源ゑｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽgｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽBｿｽﾃゑｿｽOSｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾈゑｿｽﾆゑｿｽ,,,

> ｿｽﾂゑｿｽｿｽﾅに、keybd_eventｿｽﾍゑｿｽｿｽｿｽﾃゑｿｽｿｽANTｿｽﾈ降ｿｽｿｽSendInputｿｽｿｽgｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆになゑｿｽｿｽﾄゑｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽﾍ趣ｿｽｿｽｿｽｿｽﾄみゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽ?

ｿｽｿｽｿｽｿｽｿｽAｿｽSｿｽRｿｽmｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB

ｿｽEｿｽEｿｽEｿｽﾅ・ｿｽEｿｽEｿｽｿｽI
KEYEVENTF_EXTENDEDKEY

ｿｽｿｽｿｽｿｽｿｽAｿｽﾇ会ｿｽｿｽｿｽｿｽﾄみゑｿｽｿｽ迪ｩｿｽｿｽｿｽﾉ難ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽIｿｽI
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽ¥ｿｽ[ｿｽXｿｽｿｽ

function GetAsyncKeyState_Delphi(iKey: Integer): Boolean;
begin
  Result := BOOL(Hi(GetAsyncKeyState(iKey)));
end;

function GetKeyState_Delphi(VKey: Integer): Boolean;
begin
  Result := (GetKeyState( VKey ) and $8000 <> 0)
end;

procedure TForm12.WMHotKey(var Msg: TWMHotKey);
begin

  case Msg.HotKey of
    1: begin
      if GetKeyState_Delphi(VK_RCONTROL) then
      begin
        keybd_event(VK_RCONTROL, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
        keybd_event(VK_PRIOR , 0, 0, 0);
        keybd_event(VK_PRIOR  , 0, KEYEVENTF_KEYUP, 0);
        keybd_event(VK_RCONTROL, 0, KEYEVENTF_EXTENDEDKEY, 0);
      end else
      begin
        UnregisterHotKey(Self.Handle, 1);

        keybd_event(VK_UP , 0, 0, 0);
        keybd_event(VK_UP  , 0, KEYEVENTF_KEYUP, 0);

        SethotKeyToOS(Self.Handle, 1, VK_UP, False, True, False, False);
      end;
    end;
    2: begin
      if GetKeyState_Delphi(VK_RCONTROL) then
      begin
        keybd_event(VK_RCONTROL, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
        keybd_event(VK_NEXT , 0, 0, 0);
        keybd_event(VK_NEXT  , 0, KEYEVENTF_KEYUP, 0);
        keybd_event(VK_RCONTROL, 0, KEYEVENTF_EXTENDEDKEY, 0);
      end else
      begin
        UnregisterHotKey(Self.Handle, 2);

        keybd_event(VK_DOWN , 0, 0, 0);
        keybd_event(VK_DOWN  , 0, KEYEVENTF_KEYUP, 0);

        SethotKeyToOS(Self.Handle, 2, VK_DOWN, False, True, False, False);
      end;    end;

  end;
end;
ｿｽｿｽｿｽﾌようｿｽﾉゑｿｽｿｽｿｽﾆ、
ｿｽｿｽCtrl+ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽAｿｽｿｽｿｽﾌまま、Ctrl+ｿｽｿｽｿｽｿｽｿｽﾌ機ｿｽ¥
ｿｽECtrl+ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽAPgUp PgDn ｿｽﾌ機ｿｽ¥
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽI

KEYEVENTF_EXTENDEDKEYｿｽﾍ知ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧ｵｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

GetAsyncKeyState_DelphiｿｽｿｽGetKeyState_Delphiｿｽｿｽ
ｿｽｿｽｿｽﾌ場合ｿｽﾅは、ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB

ttt 2009/12/03(ｿｽｿｽ) 01:41:33

ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾅ会ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB

>>ｿｽLｿｽ[ｿｽﾌ難ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉゑｿｽAsyncｿｽﾅなゑｿｽGetKeyStateｿｽｿｽgｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ。
>ｿｽｿｽｿｽｿｽﾍ、ｿｽｿｽｿｽｿｽｿｽAｿｽｿｽ源ゑｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
>ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽgｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽBｿｽﾃゑｿｽOSｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾈゑｿｽﾆゑｿｽ,,,

ｿｽ皷橸ｿｽAMSDNｿｽｿｽGetKeyStateｿｽﾌ擾ｿｽｿｽﾅ会ｿｽｿｽｿｽｿｽｿｽﾄはゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽ黷ｾｿｽｿｽｿｽﾌ撰ｿｽｿｽｿｽﾅは必ｿｽRｿｽｿｽｿｽｿｽｿｽ`ｿｽｿｽｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾋ…

ｿｽｿｽｿｽ[ｿｽﾆ、ｿｽｿｽｿｽ[ｿｽUｿｽｿｽｿｽLｿｽ[ｿｽｿｽ}ｿｽEｿｽXｿｽ操作すｿｽｿｽｿｽ
(1) ｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽLｿｽｿｽｿｽ[ｿｽﾉ難ｿｽｿｽｿｽ
(2) ｿｽAｿｽvｿｽｿｽｿｽPｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽｿｽｿｽｿｽoｿｽｿｽ
(3) ｿｽｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽnｿｽｿｽｿｽhｿｽｿｽｿｽﾉ渡ｿｽｿｽｿｽｿｽｿｽ
ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
GetKeyStateｿｽﾅゑｿｽ(1)ｿｽﾆ一緒ｿｽﾉ保托ｿｽｿｽｿｽｿｽ黷ｽｿｽｿｽﾔゑｿｽｿｽﾆゑｿｽﾜゑｿｽｿｽｿｽｿｽA
Asyncｿｽｿｽｿｽﾆ関撰ｿｽｿｽｿｽﾄんだ趣ｿｽｿｽ_ｿｽAｿｽﾂまゑｿｽ(3)ｿｽﾌ擾ｿｽﾔになゑｿｽﾌゑｿｽ
ｿｽ^ｿｽCｿｽ‾ｿｽｿｽｿｽOｿｽｿｽｿｽｿｽﾅは趣ｿｽｿｽﾛに行ｿｽｿｽ黷ｽｿｽｿｽｿｽｿｽﾆ異なる判ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽiｿｽ痰ｦｿｽｿｽ 1+2=3 ｿｽﾆタｿｽCｿｽvｿｽｿｽｿｽｿｽｿｽﾍゑｿｽｿｽﾈのゑｿｽ 1;"-# ｿｽﾉなゑｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽNｿｽｿｽｿｽｿｽﾜゑｿｽｿｽj

Fusa 2009/12/03(ｿｽｿｽ) 02:18:40

ｿｽｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽnｿｽｿｽｿｽhｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾌゑｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾉわかｿｽｿｽﾜゑｿｽｿｽｿｽ
PostMessageｿｽｿｽSendMessageｿｽﾌ違いｿｽｿｽｿｽｿｽｿｽﾈんだゑｿｽｿｽﾝゑｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾋ。

GetKeyStateｿｽｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽ`ｿｽFｿｽbｿｽNｿｽｿｽYｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

ｿｽｿｽｿｽﾉ、ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

Created by board of various Programming Library.