delphi 编程技巧

				Delphi中的自毁程序 (2001年4月13日) 
				
				网友更新  分类:文件系统   作者:Boolean  推荐:Boolean   阅读次数:769  
				(http://www.codesky.net)  
				
				--------------------------------------------------------------------------------
				procedure TForm1.OnClose;
				var tfTmp:TextFile;
				begin
				...
				//当然是满足一定条件后才执行一下代码
				Assignfile(tfTmp,'delself.bat');
				Rewrite(tfTmp);
				Writeln(tfTmp,'@echo off');
				Writeln(tfTmp,':loop');
				Writeln(tfTmp,'del '''+Application.ExeName+'''');
				Writeln(tfTmp,'If Exist'+Application.ExeName+'Goto loop');
				Writeln(tfTmp,'del delself.bat');
				Closefile(tfTmp); 
				Winexec('delself.bat', SW_HIDE);
				Close;
				end;