|
ｿｽ@ｿｽｿｽｿｽｿｽｿｽﾗてゑｿｽFormｿｽｿｽCreateFormｿｽｿｽｿｽIｿｽｿｽｿｽOｿｽﾉプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉは？
|
ｿｽ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
ｿｽｿｽｿｽｿｽﾆゑｿｽ 2010/04/06(ｿｽｿｽ) 18:54:07
ｿｽｿｽｿｽｿｽｿｽbｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽB
Delphi2007,XPｿｽﾅゑｿｽｿｽB
FormｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽﾗてゑｿｽFormｿｽｿｽCreateFormｿｽｿｽｿｽIｿｽｿｽｿｽOｿｽﾉプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽﾗてゑｿｽFormｿｽｿｽCreateFormｿｽｿｽｿｽIｿｽｿｽｿｽOｿｽｿｽ
Application.Terminate;
ｿｽｿｽｿｽｿｽsｿｽｿｽｿｽｿｽﾆ、
ｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
Halt;
ｿｽｿｽｿｽﾆ終ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽlｿｽbｿｽgｿｽﾅ抵ｿｽｿｽﾗゑｿｽﾆ、ｿｽｿｽｿｽﾜゑｿｽHalt;ｿｽﾍゑｿｽしｿｽｿｽｿｽﾈゑｿｽｿｽﾆ鯉ｿｽｿｽｿｽｿｽﾓ鯉ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽしｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾘ奇ｿｽ 2010/04/07(ｿｽｿｽ) 00:28:41
ｿｽvｿｽｿｽｿｽWｿｽFｿｽNｿｽgｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾌとゑｿｽｿｽｿｽﾅ、
Application.Run;ｿｽ@ｿｽ@ｿｽﾌ前ｿｽﾅ EXIT; ｿｽｿｽｿｽｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽﾅゑｿｽｿｽｿｽｿｽﾍ会ｿｽｿｽｿｽｿｽﾚ的ｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ判別ゑｿｽｿｽﾄ、ｿｽAｿｽvｿｽｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽｿｽｿｽ驍ｩｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾎ、
ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽ.....
ｿｽｿｽｿｽｿｽﾆゑｿｽ 2010/04/07(ｿｽｿｽ) 14:54:37
ｿｽｿｽｿｽｿｽｿｽXｿｽｿｽｿｽbｿｽhｿｽｿｽQｿｽﾂ搾ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾄゑｿｽｿｽﾝまゑｿｽｿｽｿｽB
ｿｽﾉゃさｿｽｿｽﾌ鯉ｿｽｿｽｿｽｿｽ謔､ｿｽﾉ、ｿｽﾅ擾ｿｽｿｽﾉ費ｿｽｿｽ閧ｵｿｽﾄ、ｿｽｿｽｿｽ黷ｩｿｽｿｽFormｿｽ生撰ｿｽｿｽｿｽｿｽ謔､ｿｽﾆゑｿｽｿｽﾄ、Form1ｿｽｿｽ
Application.Terminate;
ｿｽｿｽｿｽｿｽ黷ｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌ鯉ｿｽｿｽ
Application.CreateForm(TForm2, Form2);
ｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾉゃさｿｽｿｽﾌ鯉ｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽﾘ丸ゑｿｽｿｽｿｽﾌ鯉ｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾉ、
Application.Run;ｿｽ@ｿｽ@ｿｽﾌ前ｿｽﾅ EXIT; ｿｽｿｽｿｽｿｽｿｽｿｽﾆ、ｿｽKｿｽｿｽｿｽ¥ｿｽtｿｽgｿｽｿｽｿｽGｿｽｿｽｿｽ[ｿｽｿｽoｿｽｿｽｿｽﾄ終ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾌで、ｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽﾄはソｿｽtｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽﾚ的ｿｽｿｽｿｽﾌ的ｿｽﾉ擾ｿｽｿｽｿｽｿｽﾆ、
Form1ｿｽﾅイｿｽｿｽｿｽ^ｿｽ[ｿｽlｿｽbｿｽgｿｽｿｽﾊゑｿｽｿｽﾄサｿｽ[ｿｽoｿｽﾉ接托ｿｽｿｽｿｽｿｽAｿｽfｿｽ[ｿｽ^ｿｽｿｽ_ｿｽEｿｽｿｽｿｽｿｽｿｽ[ｿｽhｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽ_ｿｽEｿｽｿｽｿｽｿｽｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽlｿｽｿｽOKｿｽﾈゑｿｽﾎ、Form2ｿｽｿｽCreateFormｿｽｿｽｿｽAｿｽｿｽｿｽﾌままソｿｽtｿｽgｿｽｿｽNｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽ_ｿｽEｿｽｿｽｿｽｿｽｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽlｿｽｿｽNGｿｽﾈゑｿｽﾎ、Form2ｿｽｿｽCreateFormｿｽｿｽｿｽｿｽｿｽﾉ、ｿｽｿｽｿｽﾌままソｿｽtｿｽgｿｽｿｽIｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽiｿｽTｿｽ[ｿｽoｿｽﾆ通信ｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾉは厄ｿｽ閧ｪｿｽﾈゑｿｽｿｽﾌで、ｿｽPｿｽｿｽｿｽﾉソｿｽtｿｽgｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽmｿｽ閧ｽｿｽｿｽｿｽﾅゑｿｽｿｽj
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽﾈゑｿｽ 2010/04/07(ｿｽｿｽ) 15:55:45
>ｿｽ_ｿｽEｿｽｿｽｿｽｿｽｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽlｿｽｿｽNGｿｽﾈゑｿｽﾎ、Form2ｿｽｿｽCreateFormｿｽｿｽｿｽｿｽｿｽﾉ、ｿｽｿｽｿｽﾌままソｿｽtｿｽgｿｽｿｽIｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
>ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
Form2ｿｽｿｽuｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ対象」ｿｽｿｽｿｽｿｽuｿｽIｿｽｿｽﾂ能ｿｽﾈフｿｽHｿｽ[ｿｽｿｽｿｽvｿｽﾉ移ゑｿｽｿｽﾄ、
ｿｽ_ｿｽEｿｽｿｽｿｽｿｽｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽlｿｽｿｽOKｿｽﾈゑｿｽﾎ、Form2ｿｽｿｽRｿｽ[ｿｽhｿｽﾅ撰ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽじゑｿｽﾈゑｿｽｿｽH
ｿｽﾆゑｿｽｿｽｿｽﾅ、
>Form1ｿｽﾅイｿｽｿｽｿｽ^ｿｽ[ｿｽlｿｽbｿｽgｿｽｿｽﾊゑｿｽｿｽﾄサｿｽ[ｿｽoｿｽﾉ接托ｿｽｿｽｿｽｿｽAｿｽfｿｽ[ｿｽ^ｿｽｿｽ_ｿｽEｿｽｿｽｿｽｿｽｿｽ[ｿｽhｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽﾍどゑｿｽｿｽﾅ趣ｿｽｿｽsｿｽｿｽｿｽﾄゑｿｽﾌ？
ｿｽｿｽｿｽｿｽﾆゑｿｽ 2010/04/07(ｿｽｿｽ) 16:44:54
ｿｽiｿｽｿｽｿｽﾈゑｿｽﾈ暦ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾈ奇ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽBｿｽj
---------------------------------------------------
procedure TForm1.FormCreate(Sender: TObject);
Begin
if Dounload='OK' then
else if Dounload='NG' then
begin
Application.MessageBox(pchar('ｿｽｿｽｿｽOｿｽCｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽB'), pchar('softwarename'), MB_OK );
Application.Terminate;
//halt //haltｿｽﾈゑｿｽAｿｽｿｽｿｽｿｽｿｽﾅプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB;
End;
End;
function tForm1.Download:string;
Begin
result:=WinInetｿｽｿｽInternetReadFile()ｿｽﾅｿｽｿｽNｿｽGｿｽXｿｽgｿｽｿｽID,ｿｽpｿｽXｿｽｿｽｿｽ[ｿｽhｿｽﾈどゑｿｽGetｿｽﾅ托ｿｽｿｽMｿｽｿｽｿｽｿｽﾌで、ｿｽAｿｽhｿｽｿｽｿｽXｿｽﾈどゑｿｽｿｽｿｽｿｽﾅ詳ゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽｿｽｿｽﾝまゑｿｽｿｽｿｽBｿｽﾆにゑｿｽｿｽｿｽｿｽAOK ｿｽｿｽ NGｿｽｿｽｿｽAｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽ;
End;
-------------------------------------------------
ｿｽﾆにゑｿｽｿｽｿｽｿｽANGｿｽｿｽｿｽAｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽAFormｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽoｿｽｿｽｿｽｿｽｿｽﾉ、ｿｽｿｽｿｽｿｽｿｽﾌダｿｽCｿｽAｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽoｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽｿｽｿｽﾉプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽwForm2ｿｽｿｽuｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ対象」ｿｽｿｽｿｽｿｽuｿｽIｿｽｿｽﾂ能ｿｽﾈフｿｽHｿｽ[ｿｽｿｽｿｽvｿｽﾉ移ゑｿｽｿｽﾄ、
ｿｽ_ｿｽEｿｽｿｽｿｽｿｽｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽlｿｽｿｽOKｿｽﾈゑｿｽﾎ、Form2ｿｽｿｽRｿｽ[ｿｽhｿｽﾅ撰ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽじゑｿｽﾈゑｿｽｿｽHｿｽx
ｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾎ、ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽH
ｿｽiｿｽuｿｽIｿｽｿｽﾂ能ｿｽﾈフｿｽHｿｽ[ｿｽｿｽｿｽvｿｽﾉ移ゑｿｽｿｽﾄ、ｿｽｿｽｿｽAｿｽ謔ｭｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽj
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
KHE00221 2010/04/07(ｿｽｿｽ) 18:23:10
program Project1;
uses
Windows, Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
if Form1.Download = 'OK' then
begin
Application.Run;
end
else
begin
Application.MessageBox(pchar('ｿｽｿｽｿｽOｿｽCｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽB'), pchar('softwarename'), MB_OK );
end;
end.
ｿｽｿｽｿｽｿｽﾆゑｿｽ 2010/04/08(ｿｽｿｽ) 10:39:01
KHE00221ｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽJｿｽｿｽｿｽｿｽﾊの右ｿｽｿｽﾌフｿｽ@ｿｽCｿｽｿｽｿｽｿｽProject1.exeｿｽｿｽﾅ右ｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽﾄソｿｽ[ｿｽXｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽProject1ｿｽｿｽｿｽJｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾉ、ｿｽｿｽLｿｽﾌ通ゑｿｽﾉゑｿｽｿｽｿｽﾎよいｿｽｿｽﾅゑｿｽｿｽｿｽﾋ？
ｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽﾍ、ｿｽGｿｽｿｽｿｽｿｽｿｽ轤｢ｿｽｿｽｿｽﾈゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽｿｽｿｽRｿｽﾉ編集ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ。
ｿｽｿｽｿｽﾇ、ｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽNｿｽｿｽｿｽｿｽｿｽﾄゑｿｽA
Application.Run;
ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽﾎ、ｿｽｿｽｿｽｿｽｿｽIｿｽﾉプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾍ終ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽBｿｽﾆ考ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆでゑｿｽｿｽｿｽｿｽﾋ？
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽﾆゑｿｽ 2010/04/08(ｿｽｿｽ) 10:44:01
ｿｽﾈゑｿｽｿｽA
Halt;
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽRｿｽｿｽｿｽmｿｽ閧ｽｿｽｿｽｿｽﾈと思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾉゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
Haltｿｽﾅ厄ｿｽｿｽﾈゑｿｽ 2010/04/10(ｿｽy) 16:50:01
ｿｽｿｽﾌゑｿｽOSｿｽﾍ具ｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽﾆｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ[ｿｽNｿｽｿｽｿｽNｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽOSｿｽﾍどゑｿｽｿｽIｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽﾄなゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽOSｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾌで厄ｿｽｿｽﾈゑｿｽ
Haltｿｽﾅ厄ｿｽｿｽﾈゑｿｽ 2010/04/10(ｿｽy) 16:51:01
ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽnｿｽｿｽｿｽhｿｽｿｽｿｽｿｽｿｽﾌｿｽｿｽ¥ｿｽ[ｿｽXｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽｿｽOSｿｽｿｽｿｽﾓ任ｿｽｿｽｿｽｿｽﾂゑｿｽｿｽｿｽOK
ｿｽｿｽｿｽｿｽﾆゑｿｽ 2010/04/12(ｿｽｿｽ) 18:47:34
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ[ｿｽNｿｽﾌ鯉ｿｽｿｽﾍ、ｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾗてみまゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ蛯､ｿｽﾔな奇ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽありがｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
