Подписаться на RSS рассылку
Главная » Статьи по Delphi » Файлы » Как скопировать программе саму себя

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

Автор: Борисов Сергей

Просто используем функцию:

function CopyFile(lpExistingFileName, lpNewFileName: PChar; 
bFailIfExists: BOOL):BOOL;

Пример использования:

procedure TForm1.Button1Click(Sender: TObject);
begin
CopyFile(PChar(ParamStr(0)), PChar('C:\'+ExtractFileName(ParamStr(0))), True);
end;

ParamStr(0) - путь к программе, включая файл;

ExtractFileName - функция извлечения имени файла из пути к нему

Просмотров: 5270

Обсудить на форуме


Имя *:
Email:


Код *:

Copyright © 2008-2016 Программирование на Delphi для начинающих и не только

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации

Хостинг от uCoz

Автор проекта: Борисов Сергей

e-mail: save-x@yandex.ru

Связь с администрацией сайта