Здравствуйте, k0l0t00n, Вы писали:
K>нужно скопировать самого себя , причем имя и расположение произвольные
K>плз помогите кто чем может : очень надо
Гм. В такой постановке напрашивается совет начать с подбора девушки с произвольным именем, согласной поучаствовать в процессе копирования в произвольном расположении.
Уточнение задачи может привести к появлению более конкретных рекомендаций. См. здесь.
... << RSDN@Home 1.0 beta 6 >>
Уйдемте отсюда, Румата! У вас слишком богатые погреба.
Файл программы своей скопировать, что ли? А то иначе тебе куда-нибудь на Кроватку
Delphi:
CopyFile(
paramstr(0), //Источник (0-й аргумент командной строки)'c:\newfile.exe', //Приемник
true //Облом, если приемник уже есть; если "false", то он перезаписывается
);
см. также CopyFileEx.
Slicer.
Специалист — это варвар, невежество которого не всесторонне :)
Здравствуйте, k0l0t00n, Вы писали:
K>нужно скопировать самого себя , причем имя и расположение произвольные
K>плз помогите кто чем может : очень надо
Ты слышал, что сестра овечки Долли (клона для тех кто не в курсе) скончалась, так что такие эксперименты опасны для жизни! Советую не пробовать на себе, скопируй для начала кого-нибудь другого и посмотри на результат.
Внимательность, внимательность и еще раз ..... забыл, про что я?
SW>CopyFile(
SW> paramstr(0), //Источник (0-й аргумент командной строки)
SW> 'c:\newfile.exe', //Приемник
SW> true //Облом, если приемник уже есть; если "false", то он перезаписывается
SW>);
SW>
SW>Slicer.
У меня возникает ошибка "[Error] Unit1.pas(1368): Incompatible types: 'String' and 'PChar'" (paramstr(0) возвращает string а надо PChar (( )
Здравствуйте, k0l0t00n, Вы писали:
K>У меня возникает ошибка "[Error] Unit1.pas(1368): Incompatible types: 'String' and 'PChar'" (paramstr(0) возвращает string а надо PChar (( K>как енто можно обойти???
Выполнить приведение типа:
CopyFile(
PChar(paramstr(0)), //Источник (0-й аргумент командной строки)
'c:\newfile.exe', //Приемник
true //Облом, если приемник уже есть; если "false", то он перезаписывается
);
... << RSDN@Home 1.0 beta 6 >>
Уйдемте отсюда, Румата! У вас слишком богатые погреба.