копирование программы

[hacknet]

привет всем! делаю копирование своей программы вот таким образом

CopyFile(PChar(ParamStr(0)), PChar(memo1.Lines.Text +
 ExtractFileName(ParamStr(0))), True);

подскажите как узнать, что программа с копировалась и находится там, если нет то скопировать еще раз, если есть вывести сообщение)
заранее спасибо!

[Пепел Феникса]

может вас это удивит, но CopyFile возвращает результат

Return value

If the function succeeds, the return value is nonzero.

If the function fails, the return value is zero. To get extended error information, call GetLastError.

в данном случае читаем как, если успешно вернет true, иначе false.

намек понят?)

[hacknet]

Сообщение от Пепел Феникса

может вас это удивит, но CopyFile возвращает результат

Return value

If the function succeeds, the return value is nonzero.

If the function fails, the return value is zero. To get extended error information, call GetLastError.

в данном случае читаем как, если успешно вернет true, иначе false.

намек понят?)

понят)) спасибо, может кому то пригодиться)

if CopyFile(PChar(ParamStr(0)), PChar(memo1.Lines.Text +
 ExtractFileName(ParamStr(0))), True) = true then
 showmessage('копируем')
 else
 showmessage('уже есть');

Зачем вы отвечаете с цитированием всего предыдущего поста ?
Чтоб "простыня" подлиннее получилась ?
Чтоб ваш "драгоценнейший" пост занимал весь экран ?
Вы не видите кнопку справа от кнопки "Цитата" ?
Или вам почему-то не видно пустое окно редактора под последним сообщением, куда можно просто ввести ответ ?
За оверквотинг у нас штрафуют, имейте это ввиду.
Дабы не нарушать правила раздела, внимательно их почитайте...
А пока - штраф за флуд...

[Аватар]

Зачем сравнивать с True? Просто: if CopyFile(...) then ... else ... ;

[QunneD]

Зачем сравнивать с True? Просто: if CopyFile(...) then ... else ... ;

Так просто будет правильнее, и внешне всё это дело воспринимается лучше.

if CopyFile(PChar(ParamStr(0)), PChar(memo1.Lines.Text +
 ExtractFileName(ParamStr(0))), True) = true then
 showmessage('копируем')
 else
 showmessage('уже есть');

Лучше так:

if (CopyFileA(PChar(paramstr(0)), PChar(Memo1.Lines.Text + ExtractFileName(paramstr(0))), true) = true) then
begin
   MessageBoxA(0, 'Операция завершена', '', $00000040);
end
else
begin
   MessageBoxA(0, PChar('Провал'+#13#10+'Код ошибки: '+IntToStr(GetLastError)), '', $00000010);
end;

Зачем вы отвечаете с цитированием всего предыдущего поста ?
Чтоб "простыня" подлиннее получилась ?
Чтоб ваш "драгоценнейший" пост занимал весь экран ?
Вы не видите кнопку справа от кнопки "Цитата" ?
Или вам почему-то не видно пустое окно редактора под последним сообщением, куда можно просто ввести ответ ?
За оверквотинг у нас штрафуют, имейте это ввиду.
Дабы не нарушать правила раздела, внимательно их почитайте...
А пока - штраф за флуд...

[Пепел Феникса]

Так просто будет правильнее

из bool делать bool никапли не правильнее.
у нас итак bool, потому и нет смысла.
а в if выражение писать в скобках, вообще Сишный стиль

[Аватар]

QunneD, компилятору пофиг лишние скобки, сравнение Bool с Bool и лишние блоки begin end. Это все только затрудняет чтение программы. Можно и так писать (в случае если заработок идет от количества нарисованных строк кода):

if (1=1) then
begin
  a:=b;
end;

вместо

a:=b;

[Пепел Феникса]

лишние блоки begin end

а мне наоборот так более нравится.
(ну если не пустой блок без смысла)
я имею в виду в while, if, всегда стараюсь блоки писать.

[hacknet]

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

[NetSpace]

я делал такую программу - прыгалка по дискам. копирует себя в новое место, запускается, а старую удаляет. причём делает это постоянно, так что почти невозможно её поймать. поищите мою тему, где обсуждение программ или безопасность.