Как става в Делфи копирането на един файл - например от c:\Temp\1.txt в c:\2.txt? Четох хелпа но там има обяснение само за копиране на стриймове или създаване - отваряне - попълване - затваряне на файл, все неща които не вършат особена работа за exe-та.

Ами можеш да ползваш функцията CopyFile например.

var FailIfExists: Boolean;

FailIfExists := True;

if CopyFile('c:\temp\1.txt', 'c:\2.txt', FailIfExists) then

  ShowMessage('Success')

else

  ShowMessage('Failure');

Съдържаниет е скрито
Влезте за да го видите

Благодаря за съвета

Съдържаниет е скрито
Влезте за да го видите

Ето пример за копиране със Stream - взет е от Help на Delphi

procedure TForm1.Save1Click(Sender: TObject);

var
NewFileName: string;
Msg: string;
NewFile: TFileStream;
OldFile: TFileStream;
begin
NewFileName := ExtractFilePath(Application.ExeName) + ExtractFileName(Edit1.Text);
Msg := Format('Copy %s to %s?', [Edit1.Text, NewFileName]);
if MessageDlg(Msg, mtCustom, mbOKCancel, 0) = mrOK then
begin
OldFile := TFileStream.Create(Edit1.Text, fmOpenRead or fmShareDenyWrite);
try
NewFile := TFileStream.Create(NewFileName, fmCreate or fmShareDenyRead);

try
NewFile.CopyFrom(OldFile, OldFile.Size);
finally
FreeAndNil(NewFile);
end;
finally
FreeAndNil(OldFile);
end;
end;

end;