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

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

Как экзэшнику скопировать себя?....

Костик ©   (2008-04-14 11:19:00) 

Уважаемые  мастера, как скоприровать экзэшнику себя... Пробую-пробую  - ниче не выходит. Винда не дает или что... Уже и так и сяк... Запарился...

---

Костик   (2008-04-14 12:26:00) [1]

)))Кулыбин, а все кулыбины с указателями мало работали...)))
Благодарю...

---

Palladin   (2008-04-14 12:19:00) [2]

> Костик   (14.04.08 12:13) [10]

ну ты Кулибин...

CopyFile(PChar(application.ExeName),PChar(ExtractFilePath(application.ExeN ame)+'1'+ExtractFileName(Application.ExeName)),false);

---

Костик   (2008-04-14 12:17:00) [3]

Убрал:

Incompatible types: 'String' and 'PAnsiChar'

---

Игорь Шевченко   (2008-04-14 12:14:00) [4]

> Чето не могу разобраться с типами:


убери ^

---

Костик   (2008-04-14 12:13:00) [5]

Чето не могу разобраться с типами:

var s1,s2:PAnsiChar;
begin
s1^:=(application.ExeName);
s2^:=(ExtractFilePath(application.ExeName)+'1'+ExtractFileName(Application.ExeName));
CopyFile(s1,s2,false);


---

Palladin   (2008-04-14 11:53:00) [6]

> Костик   (14.04.08 11:49) [7]

IDE\Help\Windows SDK

---

Anatoly Podgoretsky   (2008-04-14 11:50:00) [7]

> Palladin  (14.04.2008 11:32:05)  [5]

Да и дельфи тоже не нужен, с этим справляется и обычный файл, не говоря уже о других штатных методах.

---

Костик   (2008-04-14 11:49:00) [8]

а у Вас нет описаеия а то я не могу в хелпе най ти

---

Костик   (2008-04-14 11:46:00) [9]

эта... неа... ща позырю..

---

Palladin   (2008-04-14 11:32:00) [10]

эта... а тебе рассказывали про волшебную функцию CopyFile из модуля Windows?

---

Костик   (2008-04-14 11:27:00) [11]

Это все что осталось я с психами все удалял)))

var F_R, F_W : file of Byte;
   c : byte;
   SourceSize, i : integer;
begin
AssignFile(F_R,Application.ExeName);
{$I-}
reset(F_R);
{$I+}
if IOResult<>0 then
 begin
  showmessage('Ошибка '+inttostr(IOResult));
  raise EAbort.Create('');
 end;
showmessage('Источник '+inttostr(FileSize(F_R))+' байт');
SourceSize:=FileSize(F_R);


AssignFile(F_W,ExtractFilePath(Application.ExeName)+'1'+ExtractFileName(Application.ExeName));
Rewrite(F_W);

i:=0;
while i<>SourceSize do
begin
 read(F_R,c);
 inc(i);
 write(F_W,c);
end;
showmessage('Скопировано '+inttostr(i)+' символов');
showmessage('Приемник '+inttostr(FileSize(F_W))+' байт');
CloseFile(F_W);
CloseFile(F_R);
end;



---

Palladin   (2008-04-14 11:24:00) [12]

показывай как парился

---

Костик   (2008-04-14 11:21:00) [13]

Архив

---

Palladin   (2008-04-14 11:20:00) [14]

а тебе зачем?

---

Наверх