delphi 笔记
摘要:这种方法的原理是程序运行时先查看自己是不是在特定目录下,如果是就继续运行,如果不是就把自己拷贝到特定目录下,然后运行新程序,再退出旧程序. 打开Delphi,新建一个工程,在窗口的Create事件中写代码: procedureTForm1.FormCreate(Sender:TObject); var myname:string; begin myname:=ExtractFilename(Application.Exename);//获得文件名 ifapplication.Exename<>GetWindir+mynamethen//如果文件不是在Windows\System\.
阅读全文
posted @ 2013-06-15 11:05