Форум: "Начинающим";
Текущий архив: 2008.05.11;
Скачать: [xml.tar.bz2];
Вниз
Как экзэшнику скопировать себя?.... Найти похожие ветки
← →
Костик (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;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.008 c
