Kopier filer

hmm hvad hvis den kopierede fil fik et andet filnavn...

var
  fileSource, fileDest: string;
begin
  fileSource := 'C:\SourceFile.txt';
  fileDest := 'G:\DestFile.txt';
  CopyFile(PChar(fileSource), PChar(fileDest), False);
end;
//false betyder at hvis filen existere bliver den overskrevet

Synes ikke den kopiere noget, men den fejler heller ikke.

Prøv med:

var
  fileSource, fileDest: string;
begin
  fileSource := 'C:\SourceFile.txt';
  fileDest := 'G:\DestFile.txt';
  if not CopyFile(PChar(fileSource), PChar(fileDest), False) then
      Showmessage('Fejl kode: '+inttostr(GetLastError));
end;

den kommer med fejl 33

33L      ERROR_LOCK_VIOLATION
I/O error 33(The process cannot access the file because another process has locked a portion of the file.

Hvordan kommer jeg uden om det?

Man skulle jo tro at hvis windows har en mulighed for at låse en fil således at andre programmer ikke kan få adgang til den så er der ingen ved uden om det da det jo ellers ikke vil have nogen værdi.
Men det skulle så alligevel ikke undre mig hvis der var en mulighed for at komme uden om det, det er jo windows vi snakker om, men det er ikke noget jeg har sat mig ind i.

Det ser ud til at det kan lade sig gører:
http://www.softpile.com/Internet/Server_Tools/Review_28350_index.html

Men hvordan gøres det i Delphi?

Lukker