Копирование самого себя

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

Почему, если щапустить эту программу, то только создаются папки, а программа в них не копируется и уж тем более не запускается, никаких ошибок Delphi здесь не находит?

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

← →
XRMiPO (2007-11-12 16:04) [1]

Всмысле Delphi ошибок как раз ненаходит, вопрос, почему не копируется программа)

← →
DimOk (2007-11-12 16:06) [2]

У тебя back слэши в место обычных, хотя может у тебя Linux.....:)

← →
Рамиль © (2007-11-12 16:07) [3]

Сделайте
ShowMessgae(application.exename);
ShowMessage(spinedit1.Text+"/"+application.exename)
И подумайте.

← →
XRMiPO (2007-11-12 16:08) [4]

Нет, у меня не линукс, ну поменял я слэши, а всеравно не копируется(

← →
DimOk (2007-11-12 16:10) [5]

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

CopyFile(PChar(ExtractFilePath(application.exename)),PChar(spinedit1.Text+"/"+application.
> exename),true);
Может быть так......

← →
Reindeer Moss Eater © (2007-11-12 16:10) [6]

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

А с чего бы оно копировалось?

"1" + "c:\MyDir\MyExename.exe";

И главное куда?

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

Да, я понял свою ошибку, всем спасибо)

← →
DimOk (2007-11-12 16:12) [8]

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

Извеняюсь лажу спарол
FileName := ExtractFilePath(application.exename) + "\" + application.exename;
CopyFile(PChar(FileName),PChar(spinedit1.
> Text+"/"+application.exename.......

← →
XRMiPO (2007-11-12 16:32) [9]

если делать, так как вы написали, то путь к этому приложению(FileName) выглядит так : W:\Delphi\delv32\\W:\Delphi\delv32\Project1.exe

← →
XRMiPO (2007-11-12 16:35) [10]

FileName := ExtractFilePath("\") + application.ExeName;

← →
Anatoly Podgoretsky © (2007-11-12 16:35) [11]

> Всмысле Delphi ошибок как раз ненаходит, вопрос, почему
> не копируется программа)

CoрyFile это функция!

← →
Anatoly Podgoretsky © (2007-11-12 16:37) [12]

> XRMiPO (12.11.2007 16:32:09) [9]

А ты так не делай.

← →
XRMiPO (2007-11-12 16:50) [13]

Выручайте люди, ниче не копируется.

CopyFile(PChar(ExtractFilePath("") + application.ExeName),PChar(ExtractFilePath(application.ExeName) + spinedit1.text + "\"), true);
Что здесь не так?

← →
XRMiPO (2007-11-12 16:55) [14]

Итак, программа копируется, и даже запускается, но во всех копиях программы таймер останаваливается, как только запускается следующая копия программы(

← →
XRMiPO (2007-11-13 14:34) [15]

Почему, все запущенные копии программы, кроме первоначально запущенной не создают папки и некопируются в них??

← →
Dimaxx © (2007-11-13 14:51) [16]

> Выручайте люди, ниче не копируется

> ExtractFilePath("") + application.ExeName

Это как? Метод научного тыка?

← →
XRMiPO (2007-11-13 15:05) [17]

Да) Сейчас эта строка выглядит так:

CopyFile(PChar(ExtractFilePath("") + application.ExeName),PChar(ExtractFilePath(application.ExeName) + spinedit1.text + "\" + "delv32" + spinedit1.text + ".exe"), true);

← →
XRMiPO (2007-11-13 15:06) [18]

Вопрос сейчас не в этом

← →
Palladin © (2007-11-13 15:13) [19]

Мне кажется, что ты что то плохое пишешь

← →
XRMiPO (2007-11-13 15:15) [20]

во первых ничего плохого в этом нет, т.к. я пока что просто учусь, а во вторых никто мне не запрещает что-то плохое делать, если бы я что-то реально плохое задумал, я бы не на этот форум пошел

← →
KSergey © (2007-11-13 15:19) [21]

> XRMiPO (13.11.07 15:15) [20]
> что-то реально плохое задумал, я бы не на этот форум пошел

А зря. Тут много чего полезного народ знает. Только выудить надо :)

Я предлагаю автору присвоить каким-либо переменным параметры функции CopyFile(PChar(application.exename),PChar spinedit1.Text+"/"+application.exename),true); и распечатать их. Или в отладчике посмотреть чего у него получается.
Ну и подумать что тама должно быть и как этого добиться.
а не ждать, пока кто-нибудь за него это сделает.

← →
XRMiPO (2007-11-13 15:28) [23]

> KSergey © (13.11.07 15:19) [21]
</I
> А зря. Тут много чего полезного народ знает. Только выудить
> надо :)

>

Вот когда что-нибудь нехорошее задумаю, тогда и посмтрим))

> во первых ничего плохого в этом нет, т.к. я пока что просто
> учусь, а во вторых никто мне не запрещает что-то плохое
> делать, если бы я что-то реально плохое задумал, я бы не
> на этот форум пошел

Ошибаешься, здесь и не такие бывали, правда кончали плохо.

http://misoft.ru/project1.zip (4Кб)

наслаждайся... запусти, только, проверь, вдруг ошибку напишет

> Вот когда что-нибудь нехорошее задумаю, тогда и посмтрим))

Не угрожай, ты пока не в состояние обычную функцию копирования выполнить, куда уж остальное, разве что сам без компьютера останешься.

← →
Malik (2007-11-13 16:12) [27]

Слышь хакер самоучка какое значение тебе выдаст функция Application.Exename???

← →
XRMiPO (2007-11-13 20:56) [28]

> Palladin © (13.11.07 15:48) [25]
> http://misoft.ru/project1.zip (4Кб)наслаждайся... запусти,
> только, проверь, вдруг ошибку напишет

И что это?

> XRMiPO (13.11.2007 20:56:28) [28]

А ты проверь :-)))

← →
XRMiPO (2007-11-14 16:38) [30]

ну да, с радостью

Копирование самого себя Найти похожие ветки