|
ｿｽ@ｿｽｿｽｿｽｿｽｿｽCｿｽｿｽｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽApplication.Runｿｽｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉは？
|
ｿｽ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
E 2005/04/09(ｿｽy) 22:32:55
ｿｽｿｽｿｽCｿｽｿｽｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽApplication.Runｿｽｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽﾄ会ｿｽｿｽｿｽｿｽｿｽ
begin
Application.Initialize;
Application.CreateForm(TFormMain, FormMain);
Application.Run;
end;
Delphi7 Enterprise
E 2005/04/09(ｿｽy) 22:38:57
ｿｽﾇ記ｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽﾜではｿｽｿｽCｿｽｿｽｿｽtｿｽHｿｽ[ｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾌで、ｿｽｿｽｿｽCｿｽｿｽｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽVisibleｿｽｿｽfalseｿｽｿｽ
ｿｽｿｽｿｽｿｽApplication.RunｿｽｿｽﾉｿｽｿｽCｿｽｿｽｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽVisibleｿｽｿｽｿｽｿｽｿｽｿｽｿｽIｿｽｿｽTureｿｽﾉなゑｿｽﾌを利用ｿｽｿｽｿｽｿｽEOnShowｿｽCｿｽxｿｽｿｽｿｽgｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
begin
Application.Initialize;
Application.CreateForm(TFormMain, FormMain);
Application.ShowMainForm := False; // ｿｽﾇ記
Application.Run;
end;
E 2005/04/09(ｿｽy) 22:40:48
ｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
EOnShowｿｽCｿｽxｿｽｿｽｿｽgｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽ ｿｽｿｽｿｽｿｽｿｽO
OnShowｿｽCｿｽxｿｽｿｽｿｽgｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽ
Mr.XRAY 2005/04/09(ｿｽy) 23:22:20
ｿｽﾇのようｿｽﾈ鯉ｿｽｿｽﾛゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ驍ｩｿｽCｿｽﾚゑｿｽｿｽｿｽｿｽﾍわかｿｽｿｽﾜゑｿｽｿｽが，
ｿｽ痰ｦｿｽﾎ，Application.Runｿｽｿｽ除ｿｽｿｽｿｽﾄ，ｿｽｿｽｿｽｿｽｿｽﾉ趣ｿｽｿｽsｿｽｿｽｿｽｿｽｿｽｿｽｿｽR
ｿｽ[ｿｽhｿｽｿｽLｿｽqｿｽｿｽｿｽﾜゑｿｽｿｽD
(ｿｽ鼾ｿｽﾉゑｿｽｿｽｿｽﾄゑｿｽRunｿｽｿｽｿｽKｿｽvｿｽﾈ場合ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽDｿｽｿｽｿｽｿｽﾍゑｿｽｿｽｿｽｿｽﾜでゑｿｽ
ｿｽAｿｽvｿｽｿｽｿｽPｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽﾌ難ｿｽｿｽｿｽdｿｽlｿｽﾆゑｿｽｿｽRｿｽ[ｿｽfｿｽBｿｽｿｽｿｽOｿｽﾉゑｿｽｿｽｿｽﾜゑｿｽ)
[ｿｽｿｽ] FormMainｿｽｿｽAAAｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽｿｽｿｽsｿｽｿｽｿｽｿｽ鼾
begin
Application.Initialize;
Application.CreateForm(TFormMain, FormMain);
Application.ShowMainForm := False; // ｿｽﾇ記
FormMain.AAA;
end;
Mr.XRAY 2005/04/09(ｿｽy) 23:33:10
ｿｽｿｽｿｽｿｽｿｽﾆ趣ｿｽｿｽｿｽDRunｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾋ．
ｿｽｿｽﾊに，ｿｽAｿｽvｿｽｿｽｿｽPｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽｿｽRunｿｽﾍｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽｿｽｿｽ[ｿｽvｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽﾜで，
ｿｽｿｽｿｽﾌコｿｽ[ｿｽhｿｽﾉ移難ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽDｿｽｿｽｿｽｿｽﾍ通擾ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽﾂゑｿｽｿｽ驍ｱｿｽﾆに托ｿｽｿｽｿｽ
ｿｽｿｽｿｽﾜゑｿｽｿｽD
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ，ｿｽmｿｽｿｽｿｽｿｽRunｿｽﾌ趣ｿｽｿｽﾉコｿｽ[ｿｽhｿｽｿｽｿｽﾚ難ｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾈアｿｽvｿｽｿｽｿｽPｿｽ[ｿｽVｿｽｿｽｿｽｿｽ
ｿｽﾅゑｿｽｿｽｿｽﾎ，ｿｽPｿｽｿｽRunｿｽﾌ趣ｿｽｿｽﾉ趣ｿｽｿｽsｿｽｿｽｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽD
ｿｽｿｽｿｽｿｽｿｽﾅなゑｿｽｿｽﾆ場合ｿｽﾍ，ｿｽOｿｽﾌｿｽｿｽXｿｽﾌ様ｿｽｿｽRunｿｽﾌコｿｽ[ｿｽhｿｽﾍ削除ｿｽｿｽｿｽﾜゑｿｽｿｽD
ｿｽﾅなゑｿｽｿｽﾆ，Formｿｽﾌ費ｿｽ¥ｿｽｿｽｿｽﾌ場合ｿｽﾍ，ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾌ終ｿｽｿｽｿｽｿｽｿｽｿｽｿｽoｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽかゑｿｽC
ｿｽiｿｽvｿｽｿｽRunｿｽﾌ趣ｿｽｿｽﾉ趣ｿｽｿｽsｿｽｿｽｿｽﾚ難ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽD
ｿｽｿｽｿｽﾛにどゑｿｽﾈ厄ｿｽ閧ｪｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾎまゑｿｽｿｽｿｽｿｽXｿｽｿｽｿｽﾜゑｿｽｿｽD
E 2005/04/10(ｿｽｿｽ) 00:59:05
ｿｽyｿｽｿｽｿｽｿｽｿｽz
ｿｽPｿｽDｿｽｿｽﾊゑｿｽ¥ｿｽｿｽ
ｿｽQｿｽDApplication.Run
ｿｽRｿｽDOnShowｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽﾅｿｽｿｽCｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽSｿｽDｿｽAｿｽvｿｽｿｽｿｽﾌ趣ｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽﾈゑｿｽ
ｿｽyｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ】
ｿｽPｿｽDｿｽRｿｽ}ｿｽｿｽｿｽhｿｽｿｽｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾊ表ｿｽｿｽ
ｿｽ@ｿｽ@ｿｽRｿｽ}ｿｽｿｽｿｽhｿｽｿｽｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽLｿｽｿｽｿｽｿｽﾊ費ｿｽ¥ｿｽｿｽ
ｿｽQｿｽDApplication.Run
ｿｽRｿｽDｿｽｿｽｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽiｿｽｿｽﾊ費ｿｽ¥ｿｽｿｽｿｽﾌ場合OnShowｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾗ、ｿｽｿｽｿｽｿｽﾌイｿｽxｿｽｿｽｿｽgｿｽ竢茨ｿｽｿｽｿｽﾈど）ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽかｿｽｿｽﾜゑｿｽｿｽｿｽ
ｿｽSｿｽDｿｽRｿｽ}ｿｽｿｽｿｽhｿｽｿｽｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽvｿｽｿｽｿｽﾌ趣ｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽﾈゑｿｽ
ｿｽ@ｿｽ@ｿｽRｿｽ}ｿｽｿｽｿｽhｿｽｿｽｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽLｿｽｿｽｿｽAｿｽvｿｽｿｽｿｽﾌ趣ｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽﾅ一応ｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ擾ｿｽｿｽｿｽｿｽﾌ擾ｿｽｿｽﾔゑｿｽｿｽﾙなゑｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽﾆ難ｿｽｿｽｿｽｿｽｿｽｿｽﾔで趣ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽｿｽｿｽ竄ｵｿｽﾜゑｿｽｿｽｿｽｿｽB
begin
Application.Initialize;
Application.CreateForm(TFormMain, FormMain);
if ParamCount <> 0 then // ｿｽRｿｽ}ｿｽｿｽｿｽhｿｽｿｽｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
begin
Application.ShowMainForm := False; // ｿｽｿｽｿｽCｿｽｿｽｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽ¥ｿｽｿｽ
FormMain.MainSyori; // ｿｽｿｽｿｽCｿｽｿｽｿｽｿｽｿｽｿｽ ｿｽｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽﾗに最鯉ｿｽｿｽFormMain.Close
end;
Application.Run;
end;
ｿｽ閧ｨｿｽ閧ｨ 2005/04/10(ｿｽｿｽ) 01:01:59
Application.Run; ｿｽﾍｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽｿｽｿｽ[ｿｽvｿｽﾅゑｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽ除ｿｽｿｽｿｽｿｽｿｽｿｽ Windows ｿｽｿｽ
GUI ｿｽAｿｽvｿｽｿｽｿｽPｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽﾍ趣ｿｽｿｽﾛ上動ｿｽしｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽCｿｽｿｽｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽ驍ｩｿｽﾇゑｿｽｿｽｿｽｿｽﾆ、Application.Run; ｿｽﾌゑｿｽｿｽﾆに趣ｿｽｿｽsｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽ驍ｩｿｽﾇゑｿｽｿｽｿｽｿｽﾍ全ｿｽｿｽｿｽｿｽｿｽﾖ係ｿｽﾅゑｿｽｿｽB
ｿｽ閧ｨｿｽ閧ｨ 2005/04/10(ｿｽｿｽ) 01:13:41
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽB
> Application.RunｿｽｿｽﾉｿｽｿｽCｿｽｿｽｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽVisibleｿｽｿｽｿｽｿｽｿｽｿｽｿｽIｿｽｿｽTureｿｽﾉなゑｿｽﾌを利用ｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽﾍ間違いｿｽﾅゑｿｽｿｽBApplication.Run ｿｽｿｽｿｽｿｽsｿｽｿｽｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽBApplication.Run ｿｽｿｽｿｽ逕ｲｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾍ、ｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽ FormMain ｿｽﾌイｿｽｿｽｿｽXｿｽ^ｿｽｿｽｿｽX
ｿｽﾍゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽﾅゑｿｽｿｽｿｽｿｽｿｽAFormMain ｿｽﾌｿｽｿｽ¥ｿｽbｿｽhｿｽﾍゑｿｽｿｽﾌ鯉ｿｽﾉ趣ｿｽｿｽsｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽ閧ｨｿｽ閧ｨ 2005/04/10(ｿｽｿｽ) 01:32:38
OnShow ｿｽﾅゑｿｽ MainSyori ｿｽｿｽｿｽﾟゑｿｽ
begin
Application.Initialize;
Application.CreateForm(TFormMain, FormMain);
FormMain.MainSyori; // ｿｽｿｽｿｽCｿｽｿｽｿｽｿｽｿｽｿｽ ｿｽiFormMain.Close ｿｽｿｽﾜまなゑｿｽｿｽj
if ParamCount <> 0 then // ｿｽRｿｽ}ｿｽｿｽｿｽhｿｽｿｽｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
begin
FormMain.CloseｿｽG
end;
Application.Run;
end;
ｿｽﾌようｿｽﾉゑｿｽｿｽｿｽﾆパｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾉゑｿｽｿｽｿｽｿｽｿｽ轤ｸｿｽｿｽｿｽｿｽｿｽ^ｿｽCｿｽ‾ｿｽｿｽｿｽOｿｽｿｽ FormMain.MainSyori
ｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
Mr.XRAY 2005/04/10(ｿｽｿｽ) 02:04:44
>ｿｽPｿｽDｿｽRｿｽ}ｿｽｿｽｿｽhｿｽｿｽｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾊ表ｿｽｿｽｿｽDｿｽtｿｽHｿｽ[ｿｽｿｽCloseｿｽﾅ終ｿｽｿｽ
>ｿｽ@ｿｽ@ｿｽRｿｽ}ｿｽｿｽｿｽhｿｽｿｽｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽLｿｽｿｽｿｽｿｽﾊ費ｿｽ¥ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ驛ｿｽ¥ｿｽbｿｽhｿｽｿｽｿｽｿｽsｿｽｿｽｿｽﾄ終ｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽﾅゑｿｽｿｽD
ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽﾌ趣ｿｽｿｽﾍ，MainSyoriｿｽﾌ難ｿｽeｿｽﾉゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽCｿｽﾊ擾ｿｽ(?)
MainSyori ｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽﾎアｿｽvｿｽｿｽｿｽﾍ終ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽD
MainSyoriｿｽﾌ最鯉ｿｽｿｽMainForm.Closeｿｽﾍ必ｿｽvｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽDｿｽｿｽｿｽﾌなゑｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽﾈのでゑｿｽｿｽｿｽｿｽｿｽDｿｽ閧ｨｿｽ閧ｨｿｽｿｽｿｽｿｽﾌｿｽｿｽXｿｽﾆ搾ｿｽｿｽせｿｽﾄ会ｿｽﾇゑｿｽｿｽﾄ会ｿｽｿｽｿｽｿｽｿｽｿｽD
begin
Application.Initialize;
Application.CreateForm(TFormMain, FormMain);
if ParamCount=0 then begin
Application.Run;
end else begin
Application.ShowMainForm := False;
FormMain.MainSyori;
end;
end.
MainSyoriｿｽﾍ例えｿｽｿｽ...
procedure TFormMain.MainSyori;
begin
ShowMessage('ｿｽRｿｽ}ｿｽｿｽｿｽhｿｽｿｽｿｽCｿｽｿｽｿｽﾉ茨ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ');
end;
Mr.XRAY 2005/04/10(ｿｽｿｽ) 02:07:48
ｿｽtｿｽﾅゑｿｽｿｽｿｽﾋ．
procedure TFormMain.MainSyori;
begin
ShowMessage('ｿｽRｿｽ}ｿｽｿｽｿｽhｿｽｿｽｿｽCｿｽｿｽｿｽﾉ茨ｿｽｿｽｿｽｿｽﾍ指ｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽ');
end;
Mr.XRAY 2005/04/10(ｿｽｿｽ) 02:15:04
>ｿｽ閧ｨｿｽ閧ｨｿｽｿｽｿｽｿｽｿｽ
>OnShow ｿｽﾅゑｿｽ MainSyori ｿｽｿｽｿｽﾟゑｿｽ (ｿｽﾈ会ｿｽｿｽ@ｿｽｿｽ)
ｿｽﾈゑｿｽﾙど，ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾌ表ｿｽｿｽｿｽCｿｽｿｽ¥ｿｽｿｽｿｽﾉゑｿｽｿｽｿｽｿｽｿｽ轤ｸｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽ
ｿｽｿｽｿｽsｿｽｿｽｿｽｿｽﾉは，ｿｽ閧ｨｿｽ閧ｨｿｽｿｽｿｽｿｽﾌコｿｽ[ｿｽhｿｽﾅゑｿｽｿｽﾋ．
E 2005/04/10(ｿｽｿｽ) 02:22:27
Application.Runｿｽﾌ意厄ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽｿｽｿｽ{ｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽBｿｽｿｽｿｽﾝまゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾌ難ｿｽeｿｽﾉゑｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾌタｿｽCｿｽ‾ｿｽｿｽｿｽOｿｽｿｽ
ｿｽEApplication.Runｿｽﾌ趣ｿｽｿｽsｿｽｿｽ
ｿｽEApplication.Runｿｽﾌ趣ｿｽｿｽsｿｽｿｽｿｽﾈ外
ｿｽﾅの違いｿｽﾍゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽH
ｿｽﾅゑｿｽｿｽｿｽﾎｿｽｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ難ｿｽｿｽｿｽ
Application.Runｿｽｿｽｿｽsｿｽｿｽｿｽﾉ行ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
kkk 2005/04/10(ｿｽｿｽ) 02:29:45
ｿｽｿｽｿｽｿｽApplication.Runｿｽｿｽｿｽｿｽ痰｢ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ
>ｿｽEApplication.Runｿｽﾌ趣ｿｽｿｽsｿｽｿｽ
>ｿｽEApplication.Runｿｽﾌ趣ｿｽｿｽsｿｽｿｽｿｽﾈ外
>ｿｽﾅの違いｿｽﾍゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽH
ｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽKｿｽvｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽｿｽﾎどゑｿｽｿｽｿｽｿｽ痰｢ｿｽﾍなゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
kkk 2005/04/10(ｿｽｿｽ) 12:58:32
ｿｽ竭ｫ
Application.Runｿｽﾌ抵ｿｽｿｽｿｽ
ｿｽEｿｽEｿｽE
repeat
try
HandleMessage;
except
HandleException(Self);
end;
until Terminated;
ｿｽEｿｽEｿｽE
ｿｽﾆゑｿｽｿｽｿｽｿｽ謔､ｿｽﾉ単ｿｽﾉｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽｿｽｿｽ[ｿｽvｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ驍ｾｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽﾄｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽｿｽｿｽｿｽｿｽﾌ必ｿｽvｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽApplication.RunｿｽｿｽKｿｽvｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽ閧ｨｿｽ閧ｨ 2005/04/10(ｿｽｿｽ) 13:55:52
>ｿｽｿｽｿｽｿｽﾄｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽｿｽｿｽｿｽｿｽﾌ必ｿｽvｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽApplication.RunｿｽｿｽKｿｽvｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾇ、ｿｽｿｽｿｽﾛは暗黙に搾ｿｽｿｽｿｽｿｽ Apllication ｿｽﾌウｿｽBｿｽｿｽｿｽhｿｽEｿｽｿｽ FromMain ｿｽﾌウｿｽBｿｽｿｽｿｽhｿｽEｿｽｿｽ
ｿｽjｿｽｿｽｿｽｿｽｿｽ驍ｽｿｽﾟにゑｿｽ WM_QUIT ｿｽｿｽ WM_CLOSE ｿｽﾌｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽｿｽｿｽｿｽｿｽｿｽｿｽKｿｽvｿｽﾅゑｿｽｿｽB
kk 2005/04/10(ｿｽｿｽ) 14:13:02
ｿｽｿｽｿｽｿｽﾒの包ｿｽｿｽｿｽｿｽﾚゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽﾌで想ｿｽｿｽｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽ
ｿｽRｿｽ}ｿｽｿｽｿｽhｿｽｿｽｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ趣ｿｽｿｽﾍ会ｿｽﾊ表ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌゑｿｽVCLｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌゑｿｽｿｽﾈと擾ｿｽｿｽｿｽﾉ想ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB(ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽCreateｿｽｿｽｿｽｿｽKｿｽvｿｽｿｽｿｽﾈゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾓ厄ｿｽｿｽﾅゑｿｽ)
>ｿｽｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽｿｽｿｽｿｽｿｽﾌ必ｿｽvｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽ
ｿｽﾆゑｿｽｿｽｿｽｿｽﾌはゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾓ厄ｿｽｿｽﾅゑｿｽｿｽB
kkk 2005/04/10(ｿｽｿｽ) 14:31:27
ｿｽｿｽｿｽ`ｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽCｿｽｿｽｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽｿｽKｿｽvｿｽﾈゑｿｽｿｽﾄゑｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽXｿｽEｿｽBｿｽｿｽｿｽhｿｽEｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽｿｽｿｽｿｽ驍ｩｿｽB
ｿｽOｿｽｿｽｿｽPｿｽしまゑｿｽｿｽB
EｿｽｿｽｿｽｿｽYｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
deldel 2005/04/11(ｿｽｿｽ) 16:40:49
ｿｽｿｽｿｽｿｽﾈ奇ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
if ParamCount <> 0 then begin // ｿｽRｿｽ}ｿｽｿｽｿｽhｿｽｿｽｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
Application.ShowMainForm := False; // ｿｽｿｽｿｽCｿｽｿｽｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽ¥ｿｽｿｽ
end;
Application.Run;
end.
ｿｽ`ｿｽ`ｿｽ`ｿｽ`ｿｽ`ｿｽ`ｿｽ`ｿｽ`ｿｽ`ｿｽ`ｿｽ`ｿｽ`ｿｽ`ｿｽ`ｿｽ`ｿｽ`ｿｽ`ｿｽ`ｿｽ`ｿｽ`ｿｽ`ｿｽ`ｿｽ`ｿｽ`ｿｽ`ｿｽ`ｿｽ`ｿｽ`ｿｽ`ｿｽ`ｿｽ`ｿｽ`ｿｽ`
Timer1 ｿｽｿｽ Enabled ｿｽｿｽ False ｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽB
Interval ｿｽｿｽ 10 ｿｽｿｽｿｽxｿｽB
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled := True;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := False; //ｿｽｿｽｿｽﾌタｿｽCｿｽ}ｿｽ[ｿｽｿｽｿｽ[ｿｽ`ｿｽｿｽｿｽﾍ１ｿｽxｿｽｿｽｿｽｿｽｿｽｿｽｿｽしｿｽﾈゑｿｽ
ShowMessage('ｿｽｿｽｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽsｿｽｿｽ');
//ｿｽRｿｽ}ｿｽｿｽｿｽhｿｽｿｽｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽvｿｽｿｽｿｽﾌ趣ｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽﾈゑｿｽ
if ParamCount = 0 then begin
//ｿｽRｿｽ}ｿｽｿｽｿｽhｿｽｿｽｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽLｿｽｿｽｿｽAｿｽvｿｽｿｽｿｽﾌ趣ｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽ
end else begin
Close;
end;
end;
