|
ｿｽ@ｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽﾉプｿｽｿｽｿｽ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
Delｿｽﾓ厨ｿｽｿｽｿｽｿｽｿｽSｿｽｿｽ 2005/03/13(ｿｽｿｽ) 22:10:09
ｿｽｿｽｿｽﾟまゑｿｽｿｽﾄ、Delｿｽﾓ厨ｿｽｿｽｿｽｿｽｿｽSｿｽﾒでゑｿｽｿｽB
WinXPsp1ｿｽﾌ、Delphi6Personalｿｽｿｽgｿｽpｿｽｿｽｿｽﾄ、WindowsｿｽpGUIｿｽAｿｽvｿｽｿｽｿｽPｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽｿｽ成ｿｽｿｽｿｽﾄまゑｿｽ(,,ｿｽLｿｽ[`)
ｿｽｿｽｿｽｿｽｿｽﾅ趣ｿｽｿｽｿｽﾈゑｿｽﾅゑｿｽｿｽｿｽｿｽ成ｿｽｿｽｿｽｿｽｿｽAｿｽvｿｽｿｽｿｽPｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ、ｿｽｿｽｿｽﾌアｿｽvｿｽｿｽｿｽPｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽｿｽ除ｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽﾄ厄ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽBｿｽB
ｿｽｿｽｿｽﾊゑｿｽ Erase();ｿｽ@ｿｽｿｽｿｽﾆ、ｿｽ¥ｿｽzｿｽﾊゑｿｽtｿｽ@ｿｽCｿｽｿｽｿｽAｿｽNｿｽZｿｽXｿｽｿｽｿｽoｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽvｿｽｿｽｿｽZｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ、ｿｽAｿｽNｿｽZｿｽXｿｽｿｽｿｽﾂ能ｿｽﾈ趣ｿｽｿｽﾅの擾ｿｽｿｽｿｽｿｽｿｽｿｽﾄ鯉ｿｽｿｽｿｽｿｽﾌは不ｿｽﾂ能ｿｽﾈゑｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽBｿｽB
Fusa 2005/03/13(ｿｽｿｽ) 22:39:30
Batｿｽtｿｽ@ｿｽCｿｽｿｽｿｽ利用ｿｽｿｽｿｽｿｽｿｽ
ｿｽﾈ単ｿｽﾉ削除ｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽB
procedure TForm1.Button1Click(Sender: TObject);
var
BatFileName: String;
EraseBatFile: TStringList;
begin
BatFileName := ChangeFileExt(Application.ExeName, '.bat');
EraseBatFile := TStringList.Create;
try
EraseBatFile.Add(':TOP');
EraseBatFile.Add('@DEL '+Application.ExeName);
EraseBatFile.Add('IF EXIST '+Application.ExeName+' GOTO TOP');
EraseBatFile.Add('@DEL '+BatFileName);
EraseBatFile.SaveToFile(BatFileName);
finally
EraseBatFile.Free;
end;
WinExec(PChar(BatFileName), SW_HIDE);
Application.MainForm.Close;
Delｿｽﾓ厨ｿｽｿｽｿｽｿｽｿｽSｿｽｿｽ 2005/03/13(ｿｽｿｽ) 23:29:30
ｿｽvｿｽｿｽｿｽﾈ対会ｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽoｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽ{ｿｽｿｽｿｽﾉ奇ｿｽｿｽﾓゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽOｿｽ|ｿｽO
ｿｽﾅゑｿｽ 2005/03/13(ｿｽｿｽ) 23:37:44
ｿｽoｿｽbｿｽ`ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾍ残ｿｽｿｽじゑｿｽﾈゑｿｽｿｽﾌ？
Delｿｽﾓ厨ｿｽｿｽｿｽｿｽｿｽSｿｽｿｽ 2005/03/13(ｿｽｿｽ) 23:41:21
>ｿｽoｿｽbｿｽ`ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾍ残ｿｽｿｽじゑｿｽﾈゑｿｽｿｽﾌ？
ｿｽﾍゑｿｽｿｽAｿｽmｿｽｿｽｿｽﾉ残ｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽB
Mr.XRAY 2005/03/14(ｿｽｿｽ) 00:42:55
>ｿｽﾍゑｿｽｿｽAｿｽmｿｽｿｽｿｽﾉ残ｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽB
ｿｽoｿｽbｿｽ`ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾅ趣ｿｽｿｽｿｽｿｽｿｽｿｽgｿｽｿｽ除ｿｽｿｽｿｽｿｽﾉは，ｿｽﾅ鯉ｿｽﾌ行ｿｽｿｽ
EraseBatFile.Add('DEL %0');
ｿｽﾆゑｿｽｿｽﾜゑｿｽｿｽDFusaｿｽｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽﾔ違いｿｽﾅゑｿｽｿｽ蛯､ｿｽD
(ｿｽ字ｿｽEｿｽｿｽｿｽｿｽMr.XRAYｿｽｿｽｿｽﾍひどゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽ... ｿｽSｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽFusaｿｽｿｽｿｽｿｽ)
Fusa 2005/03/14(ｿｽｿｽ) 13:41:44
ｿｽｿｽｿｽｿｽHｿｽｿｽｿｽｿｽｿｽﾌ環具ｿｽｿｽﾅゑｿｽ
EraseBatFile.Add('@DEL '+BatFileName);
ｿｽｿｽｿｽｿｽﾅバｿｽbｿｽ`ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽﾂ具ｿｽｿｽﾋ托ｿｽｿｽｿｽｿｽ驍ｩｿｽｿｽ...ｿｽﾆ思ｿｽｿｽｿｽﾄ抵ｿｽｿｽﾗゑｿｽｿｽｿｽ
ｿｽXｿｽyｿｽ[ｿｽXｿｽｿｽﾜむフｿｽｿｽｿｽpｿｽXｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽI
ｿｽｿｽｿｽﾌようｿｽﾉゑｿｽｿｽｿｽﾆフｿｽHｿｽｿｽｿｽ_ｿｽｿｽ
ｿｽXｿｽyｿｽ[ｿｽXｿｽｿｽﾜむ、ｿｽﾜまなゑｿｽｿｽﾉゑｿｽｿｽｿｽｿｽｿｽ轤ｸｿｽｿｽｿｽしｿｽﾜゑｿｽｿｽB
procedure TForm1.Button1Click(Sender: TObject);
var
BatFileName: String;
EraseBatFile: TStringList;
begin
BatFileName := ChangeFileExt(Application.ExeName, '.bat');
EraseBatFile := TStringList.Create;
try
EraseBatFile.Add(':TOP');
EraseBatFile.Add('@DEL '+ '"'+Application.ExeName+'"' );
EraseBatFile.Add('IF EXIST "'+Application.ExeName+'" GOTO TOP');
EraseBatFile.Add('@DEL '+ '"'+ BatFileName + '"');
// EraseBatFile.Add('@DEL %0');
EraseBatFile.SaveToFile(BatFileName);
finally
EraseBatFile.Free;
end;
WinExec(PChar(BatFileName), SW_HIDE);
Application.MainForm.Close;
end;
%0ｿｽﾌ記ｿｽqｿｽﾍ知ｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽｿｽ黷｢ｿｽﾅゑｿｽｿｽB
ｿｽﾗ具ｿｽｿｽﾉなゑｿｽﾜゑｿｽｿｽB
Mr.XRAY 2005/03/14(ｿｽｿｽ) 17:33:54
FusaｿｽｿｽｿｽｿｽCｿｽｿｽﾏ趣ｿｽｿｽ轤ｵｿｽﾜゑｿｽｿｽｿｽｿｽD
>%0ｿｽﾌ記ｿｽqｿｽﾍ知ｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
%0ｿｽﾆゑｿｽｿｽｿｽｿｽﾌは，ｿｽRｿｽ}ｿｽｿｽｿｽhｿｽｿｽｿｽCｿｽｿｽｿｽﾌ托ｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾌで，Fusaｿｽｿｽｿｽｿｽﾌコｿｽ[ｿｽh
ｿｽﾆ難ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ．ｿｽｿｽｿｽﾍスｿｽyｿｽ[ｿｽXｿｽｿｽﾜむフｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ．
ｿｽKｿｽｿｽｿｽIｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽgｿｽpｿｽｿｽｿｽﾄゑｿｽｿｽ驍ｽｿｽﾟに，ｿｽｿｽｿｽ痰｢ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽD
Delｿｽﾓ厨ｿｽｿｽｿｽｿｽｿｽSｿｽｿｽ 2005/03/15(ｿｽｿｽ) 17:12:15
>FusaｿｽTｿｽｿｽ
>Mr.XrayｿｽTｿｽｿｽ
ｿｽ{ｿｽｿｽｿｽﾉゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽoｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
