| Цитата(FRAGNATIC @ 1.4.2005, 04:02) | вообщем CopyFile('что копировать','куда копировать',false)
последний параметр если файл сушествует перезаписывать его или нет)
Добавлено @ 04:09
тогда попробуй так (думаю далеко не самый лучший вариант)
| Код |
program Project1;
uses
Forms, Windows, SysUtils,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
begin
Application.Initialize;
if ExtractFilePath(Application.ExeName)=Path then{где path директория в котороя должна находится прога }
begin
Application.CreateForm(TForm1, Form1);
Application.Run;
end
else begin
{копируем прогу а куда те надо затем вырубаем её и запускаем уже откуда надо}
CopyFile(PChar(Application.ExeName), PChar(Path+'nameofmyprog.exe'), False);
Application.Run;
application.Terminate;
WinExec(PChar(Path+'nameofmyprog.exe'),0);
end;
end.
|
|
Спасибо те за все ты мне оч помог!!!!!! |
