Как скопировать самого себя

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Злобный юзверь приходит к админу:

— Вот, у меня Word повис… (уничтожил данные, потерял русские буквы… сами знаете) 🙁

— А что ты сделал?

— Ну, я (то-то и то-то)…

— А, так он всегда вешается.

— Ну, надо же было сообщение какое нибудь выдать… Или флажок какой поставить…

— Слушай, отстань. Ты когда грузился, большой такой флажок видел?

CopyFile(PChar(ParamStr(0)), PChar(‘Новый_путь’

ExtractFileName(ParamStr(0))), True);

{/codecitation}

Добавить комментарий