• Что бы вступить в ряды "Принятый кодер" Вам нужно:
    Написать 10 полезных сообщений или тем и Получить 10 симпатий.
    Для того кто не хочет терять время,может пожертвовать средства для поддержки сервеса, и вступить в ряды VIP на месяц, дополнительная информация в лс.

  • Пользаватели которые будут спамить, уходят в бан без предупреждения. Спам сообщения определяется администрацией и модератором.

  • Гость, Что бы Вы хотели увидеть на нашем Форуме? Изложить свои идеи и пожелания по улучшению форума Вы можете поделиться с нами здесь. ----> Перейдите сюда
  • Все пользователи не прошедшие проверку электронной почты будут заблокированы. Все вопросы с разблокировкой обращайтесь по адресу электронной почте : info@guardianelinks.com . Не пришло сообщение о проверке или о сбросе также сообщите нам.

Как Программе Скопировать Саму Себя

Lomanu4 Оффлайн

Lomanu4

Команда форума
Администратор
Сообщения
1,163
Симпатии
222
Баллы
155
VK
Ниже пример кода, который позволяет программе на Delphi копировать саму себя.
Код:
function SelfCopy(const sPath : string) : boolean;
begin
Result:=True;
if NOT Windows.CopyFile(PChar(ParamStr(0)), PChar(sPath), true) then
begin
RaiseLastWin32Error;
Result:=False;
end;
end;

Выполнение:

procedure TForm1.Button1Click(Sender: TObject);
begin
SelfCopy('c:\Windows\Temp\myappcopy.exe')
end;
 
Вверх Снизу