Текущий архив: 2008.05.11;
Скачать: CL | DM;

Вниз

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

← →
Костик   (2008-04-14 11:19) [0]

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

---

← →
Palladin ©   (2008-04-14 11:20) [1]

а тебе зачем?

---

← →
Костик   (2008-04-14 11:21) [2]

Архив

---

← →
Palladin ©   (2008-04-14 11:24) [3]

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

---

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

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

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:32) [5]

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

---

← →
Костик   (2008-04-14 11:46) [6]

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

---

← →
Костик   (2008-04-14 11:49) [7]

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

---

← →
Anatoly Podgoretsky ©   (2008-04-14 11:50) [8]

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

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

---

← →
Palladin ©   (2008-04-14 11:53) [9]

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

IDE\Help\Windows SDK

---

← →
Костик   (2008-04-14 12:13) [10]

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

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


---

← →
Игорь Шевченко ©   (2008-04-14 12:14) [11]

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


убери ^

---

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

Убрал:

Incompatible types: "String" and "PAnsiChar"

---

← →
Palladin ©   (2008-04-14 12:19) [13]

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

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

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

---

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

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

---

Страницы: 1 вся ветка

Текущий архив: 2008.05.11;
Скачать: CL | DM;

Наверх

Память: 0.49 MB
Время: 0.019 c