function tAddFirstAttribForm.filemoveorcopy(oldfilename:string;copy:boolean):string;
var
newfilename:string;
begin
newfilename:=ExtractFilePath(Application.Exename)+linkDir+ExtractFileName(oldfilename);
if CopyFile(LPCTSTR(oldfilename),LPCTSTR(newfilename),False) then
begin
if copy =false then
begin
deletefile(oldfilename);
ShowMessage('移动完毕!');
end else
showmessage('复制完毕!');
end else
showMessage('复制失败!');
end;