急，求解，局域网网文件操作的问题

[yangdear]

部分代码：
if not CopyFile(PChar(ASourDir +
sr.Name), pChar(ADestDir + sr.Name), false) then
begin
FService.RecordLog('拷贝文件' + ASourDir + sr.Name +
'到' + ADestDir + sr.Name+ #13#10'失败 ');
ErrorCode := GetLastError;
FService.RecordLog(FormatErrMsg(ErrorCode));
end;
日志：
10:54:22-->拷贝文件d:\oldindustrydata\15993\15993\005F2.jpg到\\I
dc112\UDSPictures\ImageSer\www\15993\005F2.jpg
失败
2004-10-12 10:54:22-->操作成功完成。
确实没有目标文件， 在一个线程中操作的， 那个共享目录是完全共享的，共享目录的权限是everyone完全控制
以前也写了一个同样的程序没问题，也是copy到网络，那个的共享机器是linux
运行服务的用户是 localsystem
目标路径是本地没有问题
单独的一个程序运行也没有问题

[masterjames]

if not DirectoryExists(aFilename) then begin

CopyFile(pChar).....
end else begin
showmessage('is not a dir');
end ;

[masterjames]

写错了
if DirectoryExists(aFilename) then begin

CopyFile(pChar).....
end else begin
showmessage('is not a dir');
end ;

[yangdear]

前面本来有一个创建dir的函数，也出错
没有写出来

procedure TPressDataThread.CopyFiles(ASourDir, ADestDir: String);
var sr: TSearchRec;
var
ErrorCode: DWORD; // holds our error code value
begin
if not DirectoryExists(ADestDir) then
CreateDestDir(ADestDir);
//先清空目标文件夹
if FindFirst(ADestDir + '*.*', faAnyFile, sr) = 0 then
begin
repeat
if FService.Terminated then
Break;
if (sr.Name <> '.') and (sr.Name <> '..') and (sr.Attr <> faDirectory) then
if not DeleteFile(pChar(ADestDir + sr.Name)) then
begin
FService.RecordLog('删除文件' + ADestDir + sr.Name+ '失败 ');
ErrorCode := GetLastError;
FService.RecordLog(FormatErrMsg(ErrorCode));
end;
until FindNext(sr) <> 0;
SysUtils.FindClose(sr);
end;

if FindFirst(ASourDir + '\*.*', faAnyFile, sr) = 0 then
begin
repeat
if FService.Terminated then
Break;
if (sr.Name <> '.') and (sr.Name <> '..') and (sr.Attr <> faDirectory) then
begin
if not CopyFile(PChar(ASourDir + sr.Name), pChar(ADestDir + sr.Name), true) then
begin
FService.RecordLog('拷贝文件' + ASourDir + sr.Name + '到' + ADestDir + sr.Name+ #13#10'失败 ');
ErrorCode := GetLastError;
FService.RecordLog(FormatErrMsg(ErrorCode));
end;
DeleteFile(PChar(ASourDir + sr.Name));
end;
until FindNext(sr) <> 0;
SysUtils.FindClose(sr);
end;

end;

[yangdear]

procedure TPressDataThread.CopyFiles(ASourDir, ADestDir: String);
var sr: TSearchRec;
var
ErrorCode: DWORD; // holds our error code value
begin
if not DirectoryExists(ADestDir) then
CreateDestDir(ADestDir);
//先清空目标文件夹
if FindFirst(ADestDir + '*.*', faAnyFile, sr) = 0 then
begin
repeat
if FService.Terminated then
Break;
if (sr.Name <> '.') and (sr.Name <> '..') and (sr.Attr <> faDirectory) then
if not DeleteFile(pChar(ADestDir + sr.Name)) then
begin
FService.RecordLog('删除文件' + ADestDir + sr.Name+ '失败 ');
ErrorCode := GetLastError;
FService.RecordLog(FormatErrMsg(ErrorCode));
end;
until FindNext(sr) <> 0;
SysUtils.FindClose(sr);
end;

if FindFirst(ASourDir + '\*.*', faAnyFile, sr) = 0 then
begin
repeat
if FService.Terminated then
Break;
if (sr.Name <> '.') and (sr.Name <> '..') and (sr.Attr <> faDirectory) then
begin
if not CopyFile(PChar(ASourDir + sr.Name), pChar(ADestDir + sr.Name), true) then
begin
FService.RecordLog('拷贝文件' + ASourDir + sr.Name + '到' + ADestDir + sr.Name+ #13#10'失败 ');
ErrorCode := GetLastError;
FService.RecordLog(FormatErrMsg(ErrorCode));
end;
DeleteFile(PChar(ASourDir + sr.Name));
end;
until FindNext(sr) <> 0;
SysUtils.FindClose(sr);
end;

end;

[yangdear]

下面这个是函数原形

[jinzhili]

http://blog.csdn.net/jinzhili/archive/2004/11/05/168220.aspx

[yangdear]

作为一个程序运行没问题，可是放到服务里就不行了。怎么回事？服务的启动用户是Administrator