Копирование приложения, и запуск его после этого

← →
XRMiPO (2007-11-12 14:35) [0]

Что здесь неправильно? По таймеру должна создаваться папка, затем в нее должно копироваться мое приложение и запускаться в той папке. Delphi ненравится строчка, где я указываю, какой файл должен копироваться.

procedure TForm1.Timer1Timer(Sender: TObject); begin CreateDir(spinedit1.text); CopyFile("/"application.exename,"/"spinedit1.Text"/"application.exename,true); winexec("/"spinedit1.Text"/"application.exename,SW_Show); Spinedit1.Value:=spinedit1.Value+1; end;

← →
Сергей М. © (2007-11-12 14:39) [1]

Потому что она не соответствует языковым требованиям Паскаля.

← →
XRMiPO (2007-11-12 14:40) [2]

А что здесь не так?

← →
Сергей М. © (2007-11-12 14:56) [3]

А разве компилятор тебе об этом не сказал ?

← →
XRMiPO (2007-11-12 15:02) [4]

[Ошибка] Unit1.pas(37): Not enough actual parameters
Курсор ставит после application там где имя файла, который копироваться будет.

← →
XRMiPO (2007-11-12 15:03) [5]

Подскажите, что нужно исправить, или вообще не так надо выполнять эту операцию?

← →
Сергей М. © (2007-11-12 15:07) [6]

В Паскале конкатенация элементов в выражении строкового типа осуществляется с помощью оператора +

← →
XRMiPO (2007-11-12 15:10) [7]

CopyFile("/"+application.exename,"/"+spinedit1.Text+"/"+application.exename,true);

Неужели так??

← →
XRMiPO (2007-11-12 15:12) [8]

Всеравно неработает

← →
Reindeer Moss Eater © (2007-11-12 15:12) [9]

потому что понедельник

← →
авыф (2007-11-12 15:15) [10]

CopyFile("/"+application.exename,"/"+spinedit1.Text+"/"application.exename,true);

> Неужели так?

ты что, испытал шок при этом ?)

> Всеравно неработает

Потому что 1-й и 2-й параметр должни иметь тип PChar.
А у тебя они AnsiString.

CopyFile(PChar("абракадабра" + Объект.СтроковоеЗначение), ....)

← →
XRMiPO (2007-11-12 15:22) [12]

Теперь место, где название файла, который копируется все нормально, а вот в том месте, где файл, который будет после копирования опять неполучается))

> опять неполучается

Если [11] не помогло, смирись - по понедельникам это никогда получится.
Влияние Луны, панимаишь ли.

← →
XRMiPO (2007-11-12 15:25) [14]

CopyFile(PChar("/"+application.exename), PChar("/"+spinedit1.Text+"/"+application.exename),true);

Все, получилось, спс. огромное)))

← →
XRMiPO (2007-11-12 15:25) [15]

Там плюсика нехватало))

Копирование приложения, и запуск его после этого Найти похожие ветки