如何拷贝当前正在运行的程序?,
用copyfile总是报I/O错误,要求不关闭当前正在运行的程序。
用copyfile总是报I/O错误,要求不关闭当前正在运行的程序。
解决方案 »
- Delphi7的代码提示问题
- delphi 调用 winpcap 捕包 发包 的问题
- WebBrowser1的问题
- delphi7 做的程序如何在没有安装delphi7的机器上运行,各位大虾帮帮忙!
- 关于在dbgrid中显示数据内容的问题?
- 【100分】我在两个程序间用Sendmessage,想得到另外一个程序上的RichEdit里面的内容
- 求过掉这种验证码思路。
- 菜菜问题来了,请指出我下面代码有什么错误呀,在不同事件中运行,有的出错,有的没有,我快晕了!
- 初手请指教谢谢
- 如何在三层结构上把远处托管服务器上的数据库内容导入本地服务器的数据库上。
- sql语句执行后得到的数据是保存在哪里的.
- 大家好,请教一个关于接收UDP包的问题?
var Path:array [0..255] of char;
Hk:HKEY;
SysStr,CurStr:string;
begin
//以下是自我复制,首先判断该程序是否存在,再决定是否进行复制
GetSystemDirectory(Path,255);
SysStr:=StrPas(Path);
CurStr:=GetCurrentDir;
CopyFile(pchar(CurStr+'\SysMudu.exe'),pchar(SysStr+'\SysMudu.exe'),True);
SysMudu.exe是你的程序名
sfile:string;
begin
GetWindowsDirectory(newpath,255);
sfile:=newpath+'\aa.exe';
if not fileexists(sfile) then
copyfile(pchar(application.ExeName),pchar(newpath+'\Inter.exe'),True);
end;