|
ｿｽ@ｿｽｿｽInputBoxｿｽｿｽｿｽOｿｽﾉ表ｿｽｿｽ
|
ｿｽ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
deldel 2005/08/29(ｿｽｿｽ) 16:50:14
ｿｽｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽ{ｿｽbｿｽNｿｽXｿｽﾅゑｿｽｿｽｿｽｿｽｿｽA
Application.MessageBox('AAA', 'BBB', MB_OK or MB_SYSTEMMODAL);
ｿｽﾆ擾ｿｽｿｽｿｽｿｽﾎ、ｿｽｿｽｿｽﾌアｿｽvｿｽｿｽｿｽPｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽOｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽｿｽﾆ難ｿｽｿｽｿｽｿｽ謔､ｿｽﾉ、InputBoxｿｽｿｽｿｽOｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ驍ｱｿｽﾆはでゑｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽﾞりじｿｽｿｽ 2005/08/30(ｿｽｿｽ) 08:43:51
ｿｽ_ｿｽｿｽｿｽiｿｽF ｿｽuｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾌデｿｽVｿｽｿｽｿｽoｿｽｿｽｿｽv
ｿｽｿｽｿｽｿｽｿｽqｿｽF ｿｽuｿｽｿｽHｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽﾆでゑｿｽｿｽｿｽｿｽｿｽｿｽHｿｽ_ｿｽｿｽｿｽiｿｽv
ｿｽ_ｿｽｿｽｿｽiｿｽF ｿｽuｿｽｿｽｿｽｿｽAｿｽｿｽｿｽさゑｿｽﾌ托ｿｽｿｽﾉはダｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅ」
ｿｽｿｽｿｽｿｽｿｽqｿｽF ｿｽuｿｽiｿｽｿｽｿｽｿｽｿｽｿｽｿｽpｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽ_ｿｽｿｽｿｽiｿｽv
ｿｽ_ｿｽｿｽｿｽiｿｽF ｿｽuｿｽWｿｽｿｽｿｽ}ｿｽｿｽAｿｽnｿｽｿｽｿｽDｿｽﾐゑｿｽｿｽｿｽｿｽｿｽﾅゑｿｽv
ｿｽｿｽｿｽｿｽｿｽqｿｽF ｿｽuｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽiｿｽjｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌアｿｽVｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ...ｿｽv
ｿｽ_ｿｽｿｽｿｽiｿｽF ｿｽuｿｽﾂまゑｿｽｿｽ_ｿｽWｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽHｿｽv
private
procedure WMSpecial(var Msg: TMessage); Message WM_APP;
procedure TForm1.Button1Click(Sender: TObject);
begin
PostMessage(Handle, WM_APP, 0, 0);
InputBox('ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ','ｿｽｿｽｿｽさゑｿｽﾌ厄ｿｽｿｽO','ｿｽﾞ々ｿｽｿｽ');
end;
procedure TForm1.WMSpecial(var Msg: TMessage);
var
aDlg: TForm;
begin
aDlg := nil;
for i:=0 to Screen.FormCount-1 do begin
if (Screen.Forms[i].ClassName = 'TForm')and
(Screen.Forms[i].Caption = 'ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ') then aDlg := Screen.Forms[i];
end;
if Assigned(aDlg) then
SetWindowPos(aDlg.Handle, HWND_TOPMOST, 0,0,0,0, SWP_NOSIZE or SWP_NOMOVE);
end;
deldel 2005/08/30(ｿｽｿｽ) 09:08:04
ｿｽﾞりじｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾎゑｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽﾏ勉具ｿｽｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽB
Screen.FormCount ｿｽｿｽｿｽﾄ知ｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽOｿｽOｿｽG
PostMessage ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽAInputBox ｿｽｿｽｿｽｿｽsｿｽｿｽｿｽｿｽﾌゑｿｽ
ｿｽ‾ｿｽ¥ｿｽﾈゑｿｽﾅゑｿｽｿｽﾋゑｿｽｿｽEｿｽEｿｽE
