|
ｿｽ@ｿｽｿｽｿｽｿｽｿｽﾌアｿｽvｿｽｿｽｿｽPｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽｿｽeditｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾉ対ゑｿｽｿｽﾄテｿｽLｿｽXｿｽgｿｽ送信ｿｽｿｽｿｽｿｽﾉは？
|
ｿｽ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
ｿｽﾍゑｿｽｿｽR 2006/03/12(ｿｽｿｽ) 09:44:48
ｿｽｿｽｿｽﾂゑｿｽqｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌアｿｽvｿｽｿｽｿｽPｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽeditｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾉ対ゑｿｽｿｽﾄ搾ｿｽｿｽ繧ｩｿｽ迴ｿｽﾔにテｿｽLｿｽXｿｽgｿｽ送信ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ考ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾟ具ｿｽｿｽｿｽｿｽOｿｽｿｽQｿｽﾆゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽsendmessageｿｽｿｽｿｽﾂゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈのでゑｿｽｿｽｿｽｿｽｿｽｿｽMｿｽｿｽAｿｽvｿｽｿｽｿｽPｿｽ[ｿｽVｿｽｿｽｿｽｿｽeditｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾌ擾ｿｽｿｽﾔゑｿｽｿｽwｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽNｿｽｿｽｿｽXｿｽﾌ厄ｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾗゑｿｽ[edit]ｿｽﾆなゑｿｽｿｽﾄゑｿｽｿｽ驍ｽｿｽﾟでゑｿｽｿｽB
ｿｽﾇなゑｿｽｿｽｿｽｿｽ謔｢ｿｽｿｽｿｽmｿｽbｿｽｿｽqｿｽﾘでゑｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽLｿｽｿｽｿｽcｿｽPｿｽOｿｽﾉ習ｿｽｿｽ 2006/03/12(ｿｽｿｽ) 10:22:55
ｿｽｿｽｿｽｿｽｿｽｿｽEDITｿｽｿｽｿｽｿｽｿｽRｿｽﾆ配ｿｽuｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾈゑｿｽAGetWindowRectｿｽﾅ位置ｿｽｿｽ謫ｾｿｽｿｽｿｽｿｽﾎ擾ｿｽｿｽﾔゑｿｽｿｽﾂゑｿｽｿｽｿｽｿｽｿｽﾍゑｿｽｿｽB
ｿｽﾍゑｿｽｿｽR 2006/03/12(ｿｽｿｽ) 11:17:49
ｿｽｿｽｿｽｿｽｿｽﾌｿｽｿｽXｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽ
GetWindowRectｿｽﾆゑｿｽｿｽｿｽｿｽｿｽﾌゑｿｽgｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽさゑｿｽｿｽﾏゑｿｽ
ｿｽかｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽｿｽﾌ的ｿｽﾉゑｿｽ
var
WinHnd : HWND; //ｿｽEｿｽBｿｽｿｽｿｽhｿｽEｿｽﾌハｿｽｿｽｿｽhｿｽｿｽ
EdtHnd : HWND; //ｿｽqｿｽEｿｽBｿｽｿｽｿｽhｿｽEｿｽﾌハｿｽｿｽｿｽhｿｽｿｽ
RT : TRect;
begin
WinHnd := FindWindow('TFormX', nil);
SetForegroundWindow(WinHnd);
GetWindowRect(EdtHnd,RT);
//ｿｽeｿｽLｿｽXｿｽgｿｽ送信
SendMessage(EdtHnd,WM_SETTEXT,0,LPARAM(PChar(Edit1.Text)));
end;
ｿｽｿｽｿｽﾉ会ｿｽｿｽｿｽｿｽ¥ｿｽ[ｿｽXｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽﾇなゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽ@ｿｽﾆゑｿｽｿｽﾄゑｿｽ
ｿｽ@ｿｽﾅ擾ｿｽｿｽﾉ茨ｿｽﾔ搾ｿｽｿｽｿｽｿｽEDITｿｽｿｽｿｽｿｽﾂゑｿｽｿｽoｿｽｿｽｿｽeｿｽLｿｽXｿｽgｿｽfｿｽ[ｿｽ^ｿｽ送信
ｿｽｿｽｿｽﾌ鯉ｿｽAｿｽsｿｽ`ｿｽaｿｽLｿｽ[ｿｽ送信ｿｽｿｽｿｽﾜゑｿｽｿｽeｿｽLｿｽXｿｽgｿｽfｿｽ[ｿｽ^ｿｽ送信
ｿｽAｿｽﾈにゑｿｽｿｽｿｽｿｽｿｽﾌ包ｿｽｿｽ@ｿｽﾅゑｿｽｿｽﾗてのＥｿｽcｿｽhｿｽsｿｽﾌハｿｽｿｽｿｽhｿｽｿｽｿｽｿｽTｿｽｿｽｿｽoｿｽｿｽ
ｿｽPｿｽﾂゑｿｽｿｽﾂ指ｿｽ閧ｵｿｽﾄ托ｿｽｿｽM
ｿｽｿｽlｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽ
ｿｽQｿｽﾂｿｽ 2006/03/12(ｿｽｿｽ) 13:45:26
EnumChildWindowｿｽｿｽｿｽｿｽｿｽｿｽﾅ子ｿｽEｿｽCｿｽｿｽｿｽhｿｽEｿｽｿｽｿｽｿｽﾗて列挙ゑｿｽｿｽﾄ、
GetWindowRectｿｽﾅ位置ｿｽｿｽmｿｽFｿｽｿｽｿｽAｿｽｿｽｿｽﾔゑｿｽﾂゑｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾆゑｿｽｿｽﾆ。
> ｿｽAｿｽﾈにゑｿｽｿｽｿｽｿｽｿｽﾌ包ｿｽｿｽ@ｿｽﾅゑｿｽｿｽﾗてのＥｿｽcｿｽhｿｽsｿｽﾌハｿｽｿｽｿｽhｿｽｿｽｿｽｿｽTｿｽｿｽｿｽoｿｽｿｽ
ｿｽﾌ回答ね。
ｿｽﾍゑｿｽｿｽR 2006/03/12(ｿｽｿｽ) 14:31:52
EnumChildWindowｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽB
EnumChildProcｿｽﾆゑｿｽｿｽｿｽｿｽRｿｽ[ｿｽｿｽｿｽoｿｽbｿｽNｿｽﾖ撰ｿｽｿｽiｿｽHｿｽjｿｽﾆセｿｽbｿｽgｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽ
ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆは包ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽEｿｽEｿｽE
ｿｽｿｽﾌ的ｿｽﾈ使ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔ｭｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽCｿｽｿｽｿｽ[ｿｽWｿｽIｿｽﾉゑｿｽ
ｿｽ@ｿｽ@FindWindowｿｽﾅ目的ｿｽﾌウｿｽBｿｽｿｽｿｽhｿｽEｿｽｿｽｿｽｿｽｿｽ
ｿｽAｿｽ@SetForegroundWindowｿｽﾅ目的ｿｽﾌウｿｽBｿｽｿｽｿｽhｿｽEｿｽｿｽSｿｽﾊゑｿｽ
ｿｽBｿｽ@EnumChildWindowｿｽﾅゑｿｽｿｽﾌウｿｽBｿｽｿｽｿｽhｿｽEｿｽｿｽﾌハｿｽｿｽｿｽhｿｽｿｽｿｽｿｽ挙？
ｿｽCｿｽ@GetWindowRectｿｽﾅ位置ｿｽｿｽmｿｽFｿｽｿｽｿｽAｿｽｿｽｿｽﾔゑｿｽﾂゑｿｽｿｽｿｽH
ｿｽDｿｽ@ｿｽｿｽｿｽﾆは擾ｿｽｿｽﾔ通ゑｿｽｿｽsendmessageｿｽ送信
ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽﾈにゑｿｽｿｽTｿｽｿｽｿｽvｿｽｿｽｿｽ¥ｿｽ[ｿｽXｿｽﾅゑｿｽｿｽｿｽｿｽﾎ・ｿｽEｿｽE
ｿｽnｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽけｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ
Mr.XRAY 2006/03/12(ｿｽｿｽ) 16:22:33
ｿｽ況の確ｿｽFｿｽﾅゑｿｽｿｽｿｽｿｽC
>ｿｽｿｽｿｽﾌアｿｽvｿｽｿｽｿｽPｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽeditｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾉ対ゑｿｽｿｽﾄ搾ｿｽｿｽｿｽD
>ｿｽNｿｽｿｽｿｽXｿｽﾌ厄ｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾗゑｿｽ[edit]ｿｽﾆなゑｿｽｿｽﾄゑｿｽｿｽ驍ｽｿｽﾟでゑｿｽｿｽB
ｿｽﾆなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽDｿｽｿｽｿｽｿｽﾍ難ｿｽｿｽｿｽｿｽAｿｽvｿｽｿｽｿｽ複撰ｿｽｿｽNｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆでゑｿｽｿｽｿｽ?
ｿｽﾜゑｿｽ
>WinHnd := FindWindow('TFormX', nil);
ｿｽｿｽｿｽｿｽｿｽｿｽﾅは，ｿｽNｿｽｿｽｿｽXｿｽｿｽｿｽｿｽTFormXｿｽﾆなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽCｿｽｿｽｿｽﾌクｿｽｿｽｿｽXｿｽﾌ厄ｿｽｿｽOｿｽｿｽeditｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽﾌとはどゑｿｽｿｽｿｽｿｽｿｽｿｽﾖ係ｿｽﾈのでゑｿｽｿｽ蛯､ｿｽｿｽｿｽD
ｿｽｿｽﾂゑｿｽFromｿｽﾉ包ｿｽｿｽｿｽｿｽｿｽEditｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽzｿｽuｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆでゑｿｽｿｽ蛯､ｿｽｿｽｿｽD
ｿｽｿｽｿｽｿｽｿｽﾄ，ｿｽｿｽｿｽﾌ「ｿｽｿｽｿｽﾌアｿｽvｿｽｿｽｿｽvｿｽﾆゑｿｽｿｽｿｽｿｽﾌは，Delphiｿｽｿｽｿｽﾈのでゑｿｽｿｽ蛯､ｿｽｿｽｿｽDDelphiｿｽｿｽ
ｿｽﾌ場合ｿｽCｿｽﾍゑｿｽｿｽRｿｽｿｽｿｽが作成ｿｽｿｽｿｽｿｽｿｽｿｽﾌ，ｿｽ¥ｿｽ[ｿｽXｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽｿｽCｿｽCｿｽｿｽｿｽｿｽｿｽﾂ能ｿｽﾈ擾ｿｽ
ｿｽﾔなのでゑｿｽｿｽ蛯､ｿｽｿｽｿｽDｿｽｿｽｿｽ驍｢ｿｽﾍはゑｿｽｿｽRｿｽｿｽｿｽが作成ｿｽｿｽｿｽｿｽｿｽｿｽﾌでなゑｿｽｿｽﾄゑｿｽCｿｽCｿｽｿｽｿｽｿｽ
ｿｽﾂ能ｿｽﾈのでゑｿｽｿｽ蛯､ｿｽｿｽｿｽD
ｿｽJｿｽｿｽｿｽﾉ使ｿｽpｿｽｿｽｿｽﾄゑｿｽｿｽｿｽDelphiｿｽﾆ開ｿｽｿｽｿｽｿｽｿｽsｿｽﾂ具ｿｽｿｽｿｽWindowsｿｽﾌバｿｽ[ｿｽWｿｽｿｽｿｽｿｽｿｽｿｽ?
--------------------------
ｿｽzｿｽ闔ｿｿｽｿｽｿｽe(ｿｽﾛに撰ｿｽｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽﾍ使ｿｽpｿｽｿｽｿｽﾈゑｿｽ)
(1) Delphiｿｽﾅ作成ｿｽｿｽｿｽｿｽｿｽAｿｽvｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽDｿｽ¥ｿｽ[ｿｽXｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽCｿｽｿｽｿｽﾂ能
(2) ｿｽｿｽｿｽｿｽｿｽｿｽTEditｿｽﾌ難ｿｽｿｽﾍコｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽzｿｽuｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ
(3) ｿｽｿｽｿｽｿｽTEditｿｽﾉ，ｿｽﾊゑｿｽDelphiｿｽﾌアｿｽvｿｽｿｽｿｽｿｽｿｽ逡ｶｿｽｿｽｿｽｿｽｿｽZｿｽbｿｽgｿｽｿｽｿｽｿｽｿｽｿｽ
(4) ｿｽｿｽｿｽﾌ趣ｿｽｿｽCｿｽｿｽｿｽｿｽｿｽEditｿｽｿｽｿｽ迴ｿｽﾔにセｿｽbｿｽgｿｽｿｽｿｽｿｽｿｽｿｽ
(TabｿｽIｿｽ[ｿｽ_ｿｽ[ｿｽﾍ搾ｿｽｿｽ繧ｩｿｽ迴ｿｽﾔになゑｿｽｿｽﾄゑｿｽｿｽｿｽﾌで，ｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽ)
(5) Dephi7 Pro ｿｽCWindowsXP ｿｽﾅ開ｿｽｿｽｿｽｿｽ
--------------------------
ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆでゑｿｽしｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽD
ｿｽｿｽｿｽｿｽCｿｽﾈ擾ｿｽﾌ難ｿｽeｿｽﾅゑｿｽｿｽｿｽｿｽｿｽCｿｽｿｽｿｽ@ｿｽﾍゑｿｽｿｽﾂゑｿｽｿｽｿｽｿｽlｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽD
ｿｽﾍゑｿｽｿｽR 2006/03/12(ｿｽｿｽ) 16:36:16
Mr.XRAYｿｽlｿｽ@ｿｽｿｽｿｽXｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽtｿｽｿｽｿｽ轤ｸｿｽﾅゑｿｽｿｽｿｽｿｽｿｽけｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽ況でゑｿｽ
ｿｽ@ｿｽｿｽｿｽﾌアｿｽvｿｽｿｽｿｽPｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽﾍＶｿｽaｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽ¥ｿｽ[ｿｽXｿｽﾈどはゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽAｿｽｿｽｿｽｿｽｿｽｿｽEditｿｽｿｽｿｽﾍコｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽzｿｽuｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽBｿｽｿｽｿｽｿｽEditｿｽﾉ別ゑｿｽDelphiｿｽAｿｽvｿｽｿｽｿｽｿｽｿｽ逡ｶｿｽｿｽｿｽｿｽｿｽZｿｽbｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽCｿｽｿｽｿｽﾌ趣ｿｽｿｽAｿｽｿｽｿｽ繧ｩｿｽ迴ｿｽﾔになゑｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽﾌ擾ｿｽｿｽﾔでゑｿｽ
ｿｽDDelphi6 Pro,WindowsXPｿｽﾅ開ｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽﾇゑｿｽｿｽｿｽｿｽAｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽzｿｽｿｽOｿｽﾈゑｿｽｿｽｿｽ 2006/03/12(ｿｽｿｽ) 16:58:12
ｿｽ^ｿｽuｿｽIｿｽ[ｿｽ_ｿｽ[ｿｽｿｽｿｽzｿｽuｿｽｿｽｿｽﾉ包ｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾆ想ｿｽ閧ｳｿｽｿｽｿｽﾈゑｿｽAｿｽNｿｽｿｽｿｽXｿｽｿｽｿｽｿｽmｿｽFｿｽｿｽｿｽﾈゑｿｽｿｽｿｽA
GetWindow(hw, GW_HWNDFIRST);
GetWindow(hw, GW_HWNDNEXT);
ｿｽﾅ擾ｿｽｿｽﾉｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽ送ゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈ単ｿｽB
ｿｽｿｽH 2006/03/12(ｿｽｿｽ) 17:16:20
ｿｽQｿｽlｿｽﾜでに・ｿｽEｿｽE
http://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/jpwinui/html/_win32_getwindow.asp
> ｿｽｿｽｿｽﾗての子ｿｽEｿｽBｿｽｿｽｿｽhｿｽEｿｽｿｽ謫ｾｿｽｿｽｿｽｿｽ鼾ｿｽAEnumChildWindows ｿｽﾖ撰ｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
> GetWindow ｿｽﾖ撰ｿｽｿｽｿｽｿｽｿｽ[ｿｽvｿｽｿｽｿｽｿｽｿｽﾅ呼び出ｿｽｿｽｿｽｿｽｿｽｿｽMｿｽｿｽｿｽｿｽｿｽﾌ搾ｿｽｿｽｿｽｿｽｿｽｿｽﾊゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽ{ｿｽTｿｽCｿｽgｿｽﾌサｿｽｿｽｿｽvｿｽｿｽｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾆ抵ｿｽｿｽﾓ点(ｿｽH)
http://homepage1.nifty.com/MADIA/delphi/Win32API.htm
http://homepage1.nifty.com/MADIA/delphi/Win32API/EnumWindows.htm
http://homepage1.nifty.com/MADIA/delphi/Win32API/EnumChid.htm
http://hpcgi1.nifty.com/MADIA/DelphiBBS/wwwlng.cgi?print+200308/03080046.txt
Mr.XRAY 2006/03/12(ｿｽｿｽ) 17:18:24
ｿｽｿｽｿｽｿｽﾍゑｿｽｿｽｿｽｿｽｿｽﾆ難しｿｽｿｽｿｽﾅゑｿｽｿｽDｿｽﾅ擾ｿｽｿｽﾌ，ｿｽﾂまゑｿｽｿｽﾔ搾ｿｽｿｽｿｽｿｽEditｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽ
ｿｽﾜゑｿｽｿｽmｿｽｿｽKｿｽvｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽDｿｽｿｽｿｽｿｽCｿｽｿｽｿｽﾍフｿｽHｿｽ[ｿｽJｿｽXｿｽｿｽｿｽCｿｽｿｽｿｽﾌ茨ｿｽﾔ搾ｿｽｿｽｿｽﾉゑｿｽｿｽｿｽｿｽｿｽ
ｿｽﾆ会ｿｽｿｽ閧ｷｿｽｿｽﾎ，Tabｿｽﾌ移難ｿｽｿｽｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽｿｽｿｽｿｽﾔに托ｿｽｿｽｿｽCｿｽeｿｽLｿｽXｿｽgｿｽ送るだｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾆは思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ...
ｿｽｿｽｿｽｿｽVBｿｽﾅ搾ｿｽｿｽ黷ｽEditｿｽｿｽIDｿｽlｿｽﾍどゑｿｽｿｽﾈゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽD
ｿｽｿｽｿｽｿｽCIDｿｽlｿｽ調べゑｿｽｿｽﾌゑｿｽｿｽﾈゑｿｽｿｽｿｽﾎ，ｿｽﾈ会ｿｽｿｽｿｽDLｿｽｿｽｿｽﾄ抵ｿｽｿｽﾗてみて会ｿｽｿｽｿｽｿｽｿｽｿｽD
http://homepage2.nifty.com/Mr_XRAY/Halbow/ExeZip/WindowTree.lzh
Mr.XRAY 2006/03/12(ｿｽｿｽ) 17:21:47
ｿｽｿｽｿｽｿｽCIDｿｽlｿｽｿｽｿｽｿｽｿｽpｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽ況でゑｿｽｿｽｿｽﾎ，EnumChildWindowsｿｽｿｽgｿｽpｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽﾆになゑｿｽﾅゑｿｽｿｽ蛯､ｿｽﾋ．
(ｿｽJｿｽｿｽｿｽｿｽｿｽｿｽIDｿｽlｿｽｿｽｿｽｿｽｿｽｿｽｿｽIｿｽﾉ設定しｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽﾄ，ｿｽNｿｽｿｽｿｽｿｽｿｽﾆに変会ｿｽｿｽｿｽｿｽｿｽ鼾)
ｿｽﾍゑｿｽｿｽR 2006/03/12(ｿｽｿｽ) 17:41:04
ｿｽFｿｽｿｽｿｽｿｽAｿｽｿｽｿｽXｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽI
Mr.XRAYｿｽlｿｽAｿｽhｿｽcｿｽﾍ可変でゑｿｽｿｽBｿｽｿｽｿｽｿｽｿｽ繧ｰｿｽ驍ｽｿｽﾑに変会ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽB
Mr.XRAY 2006/03/12(ｿｽｿｽ) 18:22:32
>ｿｽhｿｽcｿｽﾍ可変でゑｿｽｿｽBｿｽｿｽｿｽｿｽｿｽ繧ｰｿｽ驍ｽｿｽﾑに変会ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ，ｿｽ闖ｿｽﾆゑｿｽｿｽﾄは以会ｿｽｿｽﾌようｿｽﾉなゑｿｽﾌではなゑｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽ
(1) ｿｽｿｽｿｽﾉｿｽｿｽXｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾉ，ｿｽｿｽｿｽﾌサｿｽCｿｽgｿｽﾌサｿｽｿｽｿｽvｿｽｿｽｿｽｿｽEnumChildWindows ｿｽｿｽ
ｿｽgｿｽpｿｽｿｽｿｽﾄ，ｿｽﾎ象のアｿｽvｿｽｿｽｿｽﾌフｿｽHｿｽ[ｿｽｿｽｿｽﾌハｿｽｿｽｿｽhｿｽｿｽｿｽｿｽｿｽｿｽCｿｽNｿｽｿｽｿｽXｿｽｿｽEditｿｽｿｽ
ｿｽnｿｽｿｽｿｽhｿｽｿｽｿｽｿｽ謫ｾｿｽｿｽｿｽｿｽDｿｽｿｽｿｽ黷ｪｿｽｿｽｿｽｿｽｿｽｿｽﾔ搾ｿｽｿｽｿｽｿｽEditｿｽﾉ托ｿｽｿｽｿｽｿｽD
(ｿｽｿｽｿｽｿｽｿｽｿｽｿｽCｿｽｿｽｿｽｿｽEditｿｽｿｽｿｽｿｽｿｽﾌフｿｽHｿｽ[ｿｽｿｽｿｽﾉなゑｿｽｿｽﾆ会ｿｽｿｽｿｽ)
(2) SendMessageｿｽﾈどでテｿｽLｿｽXｿｽgｿｽ送ゑｿｽ
(3) ｿｽｿｽｿｽﾉｿｽｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽﾅ趣ｿｽｿｽﾌコｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽﾉフｿｽHｿｽ[ｿｽJｿｽXｿｽﾚ難ｿｽｿｽｿｽｿｽｿｽ
SendMessage(H, WM_KEYDOWN, VK_TAB,0);
SendMessage(H, WM_KEYUP, VK_TAB,0);
ｿｽﾈ包ｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽ(ｿｽﾆ思ｿｽｿｽ)ｿｽD
(4) EditｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽﾌ撰ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽｿｽｿｽｿｽIｿｽｿｽ
ｿｽｿｽｿｽR 2006/03/12(ｿｽｿｽ) 18:55:36
ｿｽﾍゑｿｽｿｽR ｿｽｿｽｿｽｿｽｿｽ
Mr.XRAYｿｽｿｽｿｽが擾ｿｽﾌ包ｿｽｿｽｿｽ(ｿｽﾛに撰ｿｽｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽﾍ使ｿｽpｿｽｿｽｿｽﾈゑｿｽ)ｿｽﾆ擾ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽ
ｿｽ@ｿｽAｿｽAｿｽEｿｽEｿｽEｿｽｿｽｿｽﾍ機ｿｽｿｽﾋ托ｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅは使ｿｽpｿｽｿｽTｿｽｿｽｿｽﾜゑｿｽｿｽ蛯､
ｿｽuｿｽ@ｿｽｿｽﾋ托ｿｽｿｽｿｽｿｽｿｽｿｽvｿｽﾍ鯉ｿｽｿｽｿｽｿｽｿｽｿｽﾄ抵ｿｽｿｽﾗてみてゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽﾍゑｿｽｿｽR 2006/03/12(ｿｽｿｽ) 19:53:56
ｿｽFｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
Mr.XRAYｿｽlｿｽﾌ意鯉ｿｽｿｽｿｽQｿｽlｿｽﾉソｿｽ[ｿｽXｿｽｿｽｿｽｿｽｿｽﾄみゑｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽ
ｿｽuｿｽ@ｿｽｿｽﾋ托ｿｽｿｽｿｽｿｽｿｽｿｽvｿｽﾌ鯉ｿｽｿｽAｿｽｿｽﾏ趣ｿｽｿｽ轤ｵｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽCｿｽｿｽﾂゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
Mr.XRAY 2006/03/12(ｿｽｿｽ) 21:36:14
ｿｽｿｽｿｽﾉゑｿｽRｿｽ[ｿｽfｿｽBｿｽｿｽｿｽOｿｽﾌ包ｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽ驍ｩｿｽｿｽmｿｽｿｽﾜゑｿｽｿｽが，ｿｽQｿｽlｿｽﾌゑｿｽｿｽﾟゑｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽD
ｿｽｿｽｿｽｿｽmｿｽFｿｽﾍ，Delphi7 Pro,WindowwsXP(SP2)ｿｽﾅ，ｿｽけ趣ｿｽ髑､ｿｽﾌアｿｽvｿｽｿｽｿｽﾍ，Delphi
ｿｽﾅ作成ｿｽｿｽｿｽｿｽｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽTEditｿｽｿｽUｿｽﾂ配ｿｽuｿｽｿｽｿｽﾄ行ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽD
ｿｽQｿｽlｿｽﾉなゑｿｽﾎ幸ｿｽｿｽｿｽﾅゑｿｽｿｽD
type
TForm1 = class(TForm)
Button1: TButton;
Panel1: TPanel;
procedure Button1Click(Sender: TObject);
private
{ Private ｿｽ骭ｾ }
function GetFocusWindow(hTarget: HWND): HWND;
public
{ Public ｿｽ骭ｾ }
end;
var
Form1: TForm1;
FirstEditHandle : HWND;
implementation
{$R *.DFM}
//var
//=============================================================================
// ｿｽqｿｽEｿｽBｿｽｿｽｿｽhｿｽEｿｽﾌ暦ｿｽ
// ｿｽNｿｽｿｽｿｽXｿｽｿｽｿｽｿｽTEditｿｽﾌ最鯉ｿｽﾌウｿｽBｿｽｿｽｿｽhｿｽEｿｽｿｽ謫ｾｿｽDｿｽｿｽｿｽ黷ｪTabｿｽIｿｽ[ｿｽ_ｿｽ[ｿｽﾅは最擾ｿｽｿｽﾌコｿｽｿｽｿｽg
// ｿｽﾆなゑｿｽ(ｿｽｿｽｿｽoｿｽIｿｽﾉ逆)
//=============================================================================
function EnumChildProc(hWnd :integer;lData:LPARAM) : BOOL ;Stdcall;
var
Name :array[0..MAX_PATH] of Char;
begin
if IsWindowVisible(hWnd) then begin
GetClassName(hWnd,Name,MAX_PATH);
if (Name='TEdit') then begin
FirstEditHandle:=hWnd;
end;
end;
Result:=True;
end;
//=============================================================================
// ｿｽnｿｽｿｽｿｽhｿｽｿｽｿｽｿｽPHｿｽｿｽﾌ子ｿｽEｿｽBｿｽｿｽｿｽhｿｽEｿｽｿｽEditｿｽﾉ，TabｿｽIｿｽ[ｿｽ_ｿｽ[ｿｽﾌ擾ｿｽｿｽﾉ包ｿｽｿｽｿｽｿｽｿｽｿｽZｿｽbｿｽg
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
PH : HWND;
CH : HWND;
Str : String;
i : Integer;
begin
FirstEditHandle:=0;
PH:=FindWindow('TReceiveForm',nil);
if PH<>0 then begin
EnumChildWindows(PH,@EnumChildProc, 0);
Str:='ｿｽeｿｽXｿｽgｿｽｿｽｿｽｿｽｿｽｿｽ0';
CH :=FirstEditHandle;
Windows.SetFocus(CH);
SendMessage(CH,WM_SETFOCUS,0,0);
SendMessage(CH,WM_SETTEXT,0,LPARAM(PChar(Str)));
//GetFocusWindowｿｽﾌ托ｿｽｿｽﾌ包ｿｽｿｽ@ｿｽﾍクｿｽｿｽｿｽbｿｽvｿｽ{ｿｽ[ｿｽhｿｽoｿｽRｿｽｿｽlｿｽｿｽｿｽｿｽｿｽｿｽ
for i:=1 to 5 do begin
Str:='ｿｽeｿｽXｿｽg'+IntToStr(i);
//ｿｽ^ｿｽuｿｽIｿｽ[ｿｽ_ｿｽ[ｿｽﾌ趣ｿｽｿｽﾌコｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽﾉフｿｽHｿｽ[ｿｽJｿｽXｿｽﾚ難ｿｽ
SendMessage(PH,WM_NEXTDLGCTL,0,0);
//ｿｽｿｽｿｽﾌコｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽﾌハｿｽｿｽｿｽhｿｽｿｽｿｽｿｽ謫ｾ
CH:=GetFocusWindow(PH);
SendMessage(CH,WM_SETTEXT,0,LPARAM(PChar(Str)));
Application.ProcessMessages;
end;
end;
end;
//=============================================================================
// ｿｽｿｽｿｽAｿｽvｿｽｿｽｿｽPｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽﾌコｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽﾌハｿｽｿｽｿｽhｿｽｿｽｿｽﾍ，ｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽIDｿｽlｿｽｿｽｿｽかｿｽｿｽｿｽ
// IDｿｽlｿｽｿｽｿｽｿｽ謫ｾｿｽﾅゑｿｽｿｽ驍ｪｿｽCｿｽsｿｽｿｽｿｽﾌ場合ｿｽﾍフｿｽHｿｽ[ｿｽJｿｽXｿｽﾌゑｿｽｿｽｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾎゑｿｽｿｽｿｽ
// ｿｽﾖ撰ｿｽｿｽﾅ取得ｿｽﾅゑｿｽｿｽｿｽD
// GetForegroundWindowｿｽﾍトｿｽbｿｽvｿｽEｿｽBｿｽｿｽｿｽhｿｽEｿｽﾌ取得ｿｽCGetFocusｿｽPｿｽﾆでは托ｿｽｿｽﾌアｿｽvｿｽｿｽｿｽｿｽ
// ｿｽ鼾ｿｽｿｽｿｽ0ｿｽｿｽｿｽﾔゑｿｽｿｽﾄゑｿｽｿｽｿｽDAttachThreadInputｿｽｿｽgｿｽpｿｽｿｽｿｽｿｽﾆフｿｽHｿｽ[ｿｽJｿｽXｿｽﾌゑｿｽｿｽｿｽEｿｽBｿｽｿｽ
// ｿｽhｿｽE(ｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽ)ｿｽﾌハｿｽｿｽｿｽhｿｽｿｽｿｽｿｽ謫ｾｿｽﾅゑｿｽｿｽｿｽ
//=============================================================================
function TForm1.GetFocusWindow(hTarget: HWND): HWND;
var
dwTargetID: DWORD;
dwActiveID: DWORD;
begin
//ｿｽｿｽｿｽｿｽﾎ象ウｿｽBｿｽｿｽｿｽhｿｽEｿｽﾌスｿｽｿｽｿｽbｿｽhｿｽｿｽ謫ｾ
dwTargetID := GetWindowThreadProcessId(hTarget,nil);
//ｿｽｿｽｿｽﾝアｿｽNｿｽeｿｽBｿｽuｿｽﾈウｿｽBｿｽｿｽｿｽhｿｽE(ｿｽｿｽｿｽﾌアｿｽvｿｽｿｽ)ｿｽﾌスｿｽｿｽｿｽbｿｽhｿｽｿｽ謫ｾ
dwActiveID := GetCurrentThreadId;
//hTargetｿｽｿｽZｿｽIｿｽ[ｿｽ_ｿｽﾌトｿｽbｿｽvｿｽﾉゑｿｽｿｽﾄアｿｽNｿｽeｿｽBｿｽuｿｽｿｽ
BringWindowToTop(hTarget);
if AttachThreadInput(dwActiveID,dwTargetID,True) then begin
//ｿｽtｿｽHｿｽ[ｿｽJｿｽXｿｽEｿｽBｿｽｿｽｿｽhｿｽEｿｽﾌ取得
Result:=GetFocus;
//ｿｽAｿｽ^ｿｽbｿｽ`ｿｽｿｽﾘ暦ｿｽｿｽｿｽ
AttachThreadInput(dwActiveID,dwTargetID,False);
end else begin
Result:=0;
end;
end;
end.
ｿｽ痰｢ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽMｿｽｿｽｿｽﾉ… 2006/03/12(ｿｽｿｽ) 22:58:03
GetWindow(hw, GW_HWNDNEXT);
EnumChildWindows(hw, @EnumChildProc, 0);
ｿｽﾈどでフｿｽHｿｽ[ｿｽｿｽｿｽｿｽﾌコｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽ挙ゑｿｽｿｽ骼橸ｿｽAｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽ ZｿｽIｿｽ[ｿｽ_ｿｽ[ｿｽﾌ擾ｿｽｿｽﾉなゑｿｽBｿｽｿｽｿｽｿｽ ZｿｽIｿｽ[ｿｽ_ｿｽ[ｿｽｿｽ TABｿｽIｿｽ[ｿｽ_ｿｽ[ｿｽﾌ間には会ｿｽｿｽﾌ関連ｿｽｿｽﾈゑｿｽｿｽB
Delphiｿｽｿｽ IDEｿｽﾅフｿｽHｿｽ[ｿｽｿｽｿｽｿｽ TEdit(Edit1,Edit2,Edit3ｿｽｿｽ¥ｿｽｿｽﾂゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾆ、ｿｽﾈ会ｿｽｿｽﾌようｿｽﾉ逆ｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾗてのアｿｽvｿｽｿｽｿｽPｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾄゑｿｽｿｽｿｽけｿｽﾅはなゑｿｽｿｽB
ｿｽﾝ計ｿｽﾌ途ｿｽｿｽｿｽﾏ更ｿｽﾈどでコｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽﾇ会ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ除ｿｽｿｽｿｽｿｽｿｽ閧ｵｿｽﾄ、ｿｽ繧ｩｿｽｿｽTabｿｽIｿｽ[ｿｽ_ｿｽ[ｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ整暦ｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾆ、ｿｽｿｽｿｽﾒの関係ｿｽﾍまゑｿｽｿｽｿｽｿｽｿｽｿｽoｿｽｿｽｿｽoｿｽｿｽｿｽﾉなゑｿｽB
ｿｽﾊ擾ｿｽAｿｽｿｽｿｽﾌようｿｽﾈゑｿｽｿｽﾆに頓抵ｿｽｿｽｿｽｿｽｿｽKｿｽvｿｽﾍ厄ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾇ、ｿｽｿｽｿｽﾌスｿｽｿｽｿｽbｿｽhｿｽﾌケｿｽ[ｿｽXｿｽﾅゑｿｽ ZｿｽIｿｽ[ｿｽ_ｿｽ[ｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾉ暦ｿｽｿｽｿｽｿｽﾄソｿｽ[ｿｽXｿｽｿｽｿｽｿｽｿｽｿｽﾆ厄ｿｽｿｽﾆなゑｿｽﾋ。
Controlｿｽ@Tab-Orderｿｽ@Z-Order
Edit1ｿｽ@ｿｽ@ｿｽ@ｿｽ@0ｿｽ@ｿｽ@ｿｽ@ｿｽ@ 2
Edit2ｿｽ@ｿｽ@ｿｽ@ｿｽ@1ｿｽ@ｿｽ@ｿｽ@ｿｽ@ 1
Edit3ｿｽ@ｿｽ@ｿｽ@ｿｽ@2ｿｽ@ｿｽ@ｿｽ@ｿｽ@ 0
