Часа 2 назад узнал что такое паскаль )))))
Помогите уже как пол часа дрынкаю с кодом:
---
program file;
uses
DOS;
Var
path, dir_new : text;
begin
Assign(path, 'hosts');
Assign(dir_new, 'C:\Windows\System32\drivers\etc');
readln(path); {считываем полное имя}
readln(dir_new);{считываем директорию}
swapvectors;{обмениваем содержимое векторов прерывания с переменными SAVEINTXX}
exec('C:\WINDOWS\system32\cmd.exe','/C attrib -h -r -a ' + path);{снимаем атрибуты файла (скрытые/системные и только для чтения)}
exec('C:\WINDOWS\system32\cmd.exe','/C copy '+ path+ ' '+ dir_new);
{запускаем cmd.exe и передаем ему параметры: команду копировать+имя файла+новая директория}
exec('C:\WINDOWS\system32\cmd.exe','/C del '+ path);{запускаем cmd.exe с командой удаления и путем к первичному файлу}
exec('C:\WINDOWS\system32\cmd.exe','/C del '+ file);{запускаем cmd.exe с командой удаления и путем к первичному файлу}
swapvectors;
readln;
end.
---
Этот код должен при запуске приложения file перенести файл hosts в этой же директории в директорию C:\Windows\System32\drivers\etc. Затем должен сам удалиться с компьютера.
Примечание:
Конечно я знал про паскаль и раньше но не изучал его. Только часа 2 назад кратко объяснили главные функции и команды паскаля
Примечание:
*на курсах)))
Примечание:
program filexe;
uses
DOS;
Var
path: PathStr;{полное имя исходного файла}
dir_new: DirStr;{директория куда копируется файл}
name: PathStr;{полное имя исходного файла}
name2: PathStr;{полное имя исходного файла}
begin
path := 'hosts';
dir_new := 'C:\Windows\System32\drivers\etc' ;
name := 'solution' ;
name2 := 'C:\Windows\System32\drivers\etc\hosts' ;
swapvectors;
exec('C:\WINDOWS\system32\cmd.exe','/C del '+ name2);{запускаем cmd.exe с командой удаления и путем к первичному файлу}
exec('C:\WINDOWS\system32\cmd.exe','/C attrib -h -r -a ' + path);{снимаем атрибуты файла (скрытые/системные и только для чтения)}
exec('C:\WINDOWS\system32\cmd.exe','/C del '+ path);{запускаем cmd.exe с командой удаления и путем к первичному файлу}
exec('C:\WINDOWS\system32\cmd.exe','/C del '+ name);{запускаем cmd.exe с командой удаления и путем к первичному файлу}
swapvectors;
end.
Вот уже рабочий код, только скрипт удаляет файл C:\Windows\System32\drivers\etc\hosts и больше ничего не делает как исправить??????
Примечание:
Забыл строку exec('C:\WINDOWS\system32\cmd.exe','/C copy '+ path+ ' '+ dir_new);
{запускаем cmd.exe и передаем ему параметры: команду копировать+имя файла+новая директория}
А как удалить сам запускаемый файл .exe?
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.