| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как скопировать свой собственный exe

banderas ©   (2004-07-18 17:19:00) 

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

---

DeadMeat   (2004-07-18 21:12:00) [1]

А ещё здесь посмотри
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1089766612&n=3&web=1
;)

---
...Death Is Only The Begining...

---

banderas   (2004-07-18 18:58:00) [2]

За Application.Exename большое спасибо!

---

Dolt   (2004-07-18 17:58:00) [3]

procedure TForm1.CopyMyExe(dir:String);
begin
 if dir[Length(dir)]<>'\' then dir:=dir+'\';
 CopyFile(PChar(Application.Exename),PChar(dir+ExtractFileName(Application.exe name)),False);
end;

---

Наверх