Привет... Я хочу создать копию exe-файла по указаному пути, при запуске моего exe-файла. Но у меня всё время выдаётся ошибка при компиляции, при попытке открыть свой файл. Возможно самого себя открыть нельзя... может кто-нибудь знает альтернативу вот этого кода:

Код

var  Form1: TForm1;  f,fc:file;  buf:integer; .... procedure TForm1.FormCreate(Sender: TObject); begin  assignfile(fc,'c:\copy_project1.exe');  assignfile(f,'project1.exe');  reset(f,1);  rewrite(fc,1);  while not(eof(f)) do    begin      blockread(f,buf,1);      blockwrite(fc,buf,1);    end;  closefile(f);  closefile(fc); end;

Воспользуйся одной из функций копирования файлов.

Alex конечно спасибо за наведение на правильный путь, незнаю зачем я решил сам придумывать способы копирования файлов, когда уже всё давно придумано.
Но всётаки есть др. проблемма. Когда компилируешь, то при попытке скопровать самого себя, выдаётся сообщение, что процес типа занят др. процессом, и текущий типа останавливается. Но эту проблему я вначале какбы решил, т.е. записать это всё на таймер, при компилящии через 10 миллисекунд, выдаётся ошибка, через деспетчер всё вырубаешь, а при этом объектный код успевает создатся, и там при первом запуске всё нормально. Но какбы копия этого екзешника, когда её запускаешь, то выдаются те же ошибки что и при обычной компилящии. Вообщем вот

Код

var  Source, Destiny: TFileStream; begin  Source := TFileStream.Create('Project1.exe', fmOpenRead);  Destiny := TFileStream.Create('c:\Copy_Project1.exe', fmCreate);  Destiny.CopyFrom(Source,0);  Source.Free;  Destiny.Free; end;

не знаете, чё тут можно исправить. Написан он на событие таймера. Ну мне бы желательно так. (FormCreate)

Русским языком сказал воспользоваться функцией копирования, а не изобретать велосипед:

Код

CopyFileA(PChar(ParamStr(0)), PChar(ExtractFilePath(ParamStr(0)) + 'Test.exe'), True);

Цитата(Alex @ 24.1.2005, 00:41)

Русским языком сказал воспользоваться функцией копирования

А точнее

Цитата(Alex @ 23.1.2005, 21:52)

одной из

Вобщем, спасибо большое.

Цитата(Zero @ 24.1.2005, 01:01)

А точнее Цитата(Alex @ 23.1.2005, 21:52) одной из

Именно одной из:

Код

if not FileExists(ExtractFilePath(ParamStr(0)) + 'Test.exe') then begin    Source := TFileStream.Create(ParamStr(0), fmShareDenyNone);    Destiny := TFileStream.Create(ExtractFilePath(ParamStr(0)) + 'Test.exe', fmCreate);    Destiny.CopyFrom(Source,0);    Source.Free;    Destiny.Free;  end;