求救... 就是把//server/gameslist/setting.ini copy到 c:\gameslist並且覆蓋本地巳經存在的文件 如果可以的話,可不可以先判決2個setting.ini是不是相同,相同的話不要做任何動作,不相同才由網路上copy到本地...

豬寶寶是比對二個檔案的日期及時間是否相同  如果不符就直接蓋掉

IF FileDateToDateTime(FileAge(SERVER_FILE)) > FileDateToDateTime(FileAge(LOCAL_FILE)) THEN
  BEGIN
     DELETEFILE(LOCAL_FILE);
     CopyFile(PChar(SERVER_FILE),PChar(LOCAL_FILE),false);
  End;

文件复制直接用：

CopyFile('\\server\gameslist\setting.ini','c:\gameslist\setting.ini',false);
//False 选项表示直接覆盖

复制前可以进行判断，判断文件是否存在并一样：

if FileExists('c:\gameslist\setting.ini') then
begin
    //文件存在，判断是否相同，相同时跳过。
    if CompFile('\\server\gameslist\setting.ini','c:\gameslist\setting.ini') then  
        Exit;//相同，跳过。
end;

至于必要文件是否相同，有很多种方法，不建议使用Delphi自带的文件比较函数。你可以去通过读取文件的修改时间及大小来判断。 提供给你一个函数：

function CompFile(File1,File2:String):Boolean;
var
  SearchRec1, SearchRec2 : TSearchRec;
begin
  try
    if (FindFirst(File1,faAnyFile,SearchRec1) = 0)
        and (FindFirst(File2,faAnyFile,SearchRec2) = 0) then
      Result := (SearchRec1.Time=SearchRec2.Time) And (SearchRec1.Size=SearchRec2.Size);
    else
      Result := False;
  finally
    FindClose(SearchRec);
  end;  
end;

最后，还请注意网络权限问题，在复制远程计算机文件时，可能需要先与目标计算机建立连接。请用 WNetAddConnection2 作为关键字在站上搜索，有很多范例哦。 發表人 - vicen 於 2005/05/19 09:16:19 發表人 - vicen 於 2005/05/19 09:17:55

procedure TForm1.Button2Click(Sender: TObject); begin IF FileDateToDateTime(FileAge(edit2.Text 'Link.ini')) > FileDateToDateTime(FileAge(edit3.Text 'Link.ini')) THEN BEGIN DELETEFILE(edit3.Text 'Link.ini'); CopyFile(PChar(edit2.Text 'Link.ini'),PChar(edit3.Text 'Link.ini'),false); End; listTitle; end; //edit2.text和edit3.text是文件的路徑,例如:c:\game