急需，在Delphi如何调用WIN32 API函数(如：copyfile),多谢了！！

Question

我现在急需用到，就是在Delphi中要调用copyfile函数来拷贝文件，但是编译老是说没有定义copyfile这个函数，Delphi中怎样调用这个函数，在线急需等待！！多谢了！！

Answer 1

function CopyFile(lpExistingFileName, lpNewFileName: PChar; bFailIfExists: BOOL): BOOL; stdcall; external kernel32 name 'CopyFileA';
{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
//一般不会出现这样情况的，如果不行就加上上面一句
//CopyFile(.......)
end;

Answer 2

一般不会出现这样的情况的，在WINDOW。PAS中是这样定义的
function CopyFile; external kernel32 name 'CopyFileA';如果不行你就和楼上那样写
function CopyFile(lpExistingFileName, lpNewFileName: PChar; bFailIfExists: BOOL): BOOL; stdcall; external kernel32 name 'CopyFileA';
{$R *.dfm}这样肯定可以，但我想是你工程内部引用错误了，你新建立个APPLICATION，这样来用一下这个函数，如果可以，那就需要你看看自己的工程是不是有问题了