安装程序为什么不用制作工具做呢？网上又很多这类工具
拷贝文件可以试试下面的代码
procedure TForm1.Button1Click(Sender: TObject);
var
F:TSHFILEOPSTRUCT;
begin
F.wnd:=Handle;
F.wFunc:=FO_COPY;
F.pFrom:=pchar(edit1.text);
F.pTo:=pchar(edit2.text);
F.fFlags:=FOF_ALLOWUNDO OR FOF_RENAMEONCOLLISION ;
if ShFileOperation(F)<>0 then ShowMessage('文件拷贝失败');
end;
