Советы по Delphi. Версия 1.4.3 от 1.1.2001

  Destination := Destination + '\' + ExtractFileName(FileName); { ...clone file name }

 TimeStamp := FileAge(FileName); { get source's time stamp }

 GetMem(CopyBuffer, ChunkSize); { allocate the buffer }

 try

  Source := FileOpen(FileName, fmShareDenyWrite); { open source file }

  if Source < 0 then raise EFOpenError.Create(FmtLoadStr(SFOpenError, [FileName]));

  try

   Dest := FileCreate(Destination); { create output file; overwrite existing }

   if Dest < 0 then raise EFCreateError.Create(FmtLoadStr(SFCreateError, [Destination]));

   try

    repeat

     BytesCopied := FileRead(Source, CopyBuffer^, ChunkSize); { read chunk }

     if BytesCopied > 0 then { if we read anything... }

      FileWrite(Dest, CopyBuffer^, BytesCopied); { ...write chunk }

    until BytesCopied < ChunkSize; { until we run out of chunks }

   finally

    FileClose(Dest); { close the destination file }

{        SetFileTimeStamp(Destination, TimeStamp);} { clone source's time stamp }{!!!}

   end;

  finally

   FileClose(Source); { close the source file }

  end;

 finally

  FreeMem(CopyBuffer, ChunkSize); { free the buffer }

 end;

 FileSetDate(Dest,FileGetDate(Source));

end;

Хм. IMHO крутовато будет такие функции писать, когда в большинстве случаев достаточно что-нубудь типа нижеприводимого, причем оно даже гибче, так как позволяет скопировать как весь файл пpи From и Count = 0, так и произвольный его кусок.

function CopyFile(InFile, OutFile: String; From, Count: Longint): Longint;

var InFS, OutFS: TFileStream;

begin

 InFS  := TFileStream.Create(InFile, fmOpenRead);

 OutFS := TFileStream.Create(OutFile, fmCreate);

 InFS.Seek(From, soFromBeginning);

 Result := OutFS.CopyFrom(InFS, Count);

 InFS.Free;

 OutFS.Free;

end;

try..except расставляются по вкусу, а навороты вроде установки атрибутов, даты и времени файла и т.п. для ясности удалены, да и не нужны они в основном никогда.

Конечно, под Win32 имеет смысл использовать функции CopyFile, SHFileOperation.

Как получить имя папки pабочего стола (не чеpез registry)?

Nomadic советует:

Просто очень хочется поработать с shell functions.

В этом примере делается и это -

procedure TForm1.Button1Click(Sender: TObject);

 procedure madd(s:string);

 begin

  memo1.lines.add(s);

 end;

VAR

 ppmalloc:imalloc;

 id:ishellfolder;

 pi:pitemidlist;

 lpname:tstrret;

begin

 if succeeded(shgetspecialfolderlocation(0, CSIDL_PROGRAMS, pi)) then begin

  madd('Succeeded programs location');

  if succeeded(shgetdesktopfolder(id)) then begin

   madd('Succeeded get desktop folder');

   if succeeded(id.getdisplaynameof(pi, 0, lpname)) then begin

    madd('Succeeded get display name');

    if lpname.uType=2 then begin

     madd(lpname.cstr);

    end;

   end else madd('UnSucceeded get display name');

  end else madd('UnSucceeded get desktop folder');

 end else madd('UNSucceeded programs location');

end; 

Количество строк в текстовом файле

Если файлы не слишком велики, вы можете сделать так:

List := TStringList.Create;

try

 List.LoadFromFile('C:\FILE.TXT');

 Gauge.MaxValue := List.Count;

finally