delphi 自我拷贝复制


本文整理自网络,侵删。

 这种方法的原理是程序运行时先查看自己是不是在特定目录下,如果是就继续运行,如果不是就把自己拷贝到特定目录下,然后运行新程序,再退出旧程序.
打开Delphi,新建一个工程,在窗口的Create事件中写代码:
procedure TForm1.FormCreate(Sender: TObject);
var myname: string;
begin
myname := ExtractFilename(Application.Exename); //获得文件名
if application.Exename <> GetWindir + myname then //如果文件不是在Windows\System\那么..
begin
copyfile(pchar(application.Exename), pchar(GetWindir + myname), False);{将自己拷贝到Windows\System\下}
Winexec(pchar(GetWindir + myname), sw_hide);//运行Windows\System\下的新文件
application.Terminate;//退出
end;
end;
其中GetWinDir是自定义函数,起功能是找出Windows\System\的路径.
function GetWinDir: String;
var
Buf: array[0..MAX_PATH] of char;
begin
GetSystemDirectory(Buf, MAX_PATH);
Result := Buf;
if Result[Length(Result)]<>'\' then Result := Result + '\';
end;

相关阅读 >>

Delphi通过setupapi.dll列举和停用硬件设备

Delphi 下载整个网站图片例子

Delphi downloadtomemory

Delphi datasnap中间件如何控制长连接的客户端连接?

Delphi 获取临时文件夹路径

Delphi 关于字符串的一些使用技巧

Delphi实现进制转化(2进制,8进制,10进制,16进制)

Delphi开发中子窗口不能置顶的问题

Delphi android调用授权管理打开通知监听服务

Delphi中文件名函数-路径、名称、子目录、驱动器、扩展名

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...