一个简单的问题,各位帮忙看看啊!(50分)

procedure TForm1.Button3Click(Sender: TObject);
var
syspath:array[1..176]of char;
begin
getsystemdirectory(@syspath,256);
if CopyFile(Pchar(ExtractFilePath(Paramstr(0))+'dll/midas.dll'),Pchar(syspath+'/midas.dll'),false) then
showmessage('success')
else
showmessage('failure');
end;

我想把文件目录下的midas.dll文件复制到系统目录下,可是无法复制过去,大家帮我看看错在哪里啊?老是showmessage('failure');路径是绝对正确的,就是复制不过去!是什么原因啊?

而用绝对路径却可以复制过去,真是想不通啊,是什么原因啊?

CopyFile()函数中最后一个参数设置为True!

你的方法我早就试过了,不行哦!各位帮帮忙啊!

>>getsystemdirectory(@syspath,256);
这句.
是不是syspath长度超过了256？

>>syspath:array[1..176]of char;
还有这句.
为什么一个是256一个是176？