Запуск исполняемых файлов из программы

[Dryg2009]

Всем привет!

У меня есть некая программа что-то типа java games-server!! чтобы ее запустить нужно запустить 2 batника gameserver.bat и loginserver.bat
код gameserver.bat

@echo off
title Game Server Console
:start
echo Starting L2J Game Server.
echo.
REM -------------------------------------
REM Default parameters for a basic server.
java -Xmx1024m -cp ./../libs/*;l2jserver.jar net.sf.l2j.gameserver.GameServer
REM
REM If you have a big server and lots of memory, you could experiment for example with
REM java -server -Xmx1536m -Xms1024m -Xmn512m -XX:PermSize=256m -XX:SurvivorRatio=8 -Xnoclassgc -XX:+AggressiveOpts
REM If you are having troubles on server shutdown (saving data),
REM add this to startup paramethers: -Djava.util.logging.manager=net.sf.l2j.L2LogManager. Example:
REM java -Djava.util.logging.manager=net.sf.l2j.util.L2LogManager -Xmx1024m -cp ./../libs/*;l2jserver.jar net.sf.l2j.gameserver.GameServer
REM -------------------------------------
if ERRORLEVEL 2 goto restart
if ERRORLEVEL 1 goto error
goto end
:restart
echo.
echo Admin Restart ...
echo.
goto start
:error
echo.
echo Server terminated abnormaly
echo.
:end
echo.
echo server terminated
echo.
pause

вот код loginserver.bat

@echo off
title Login Server Console
:start
echo Starting L2J Login Server.
echo.
java -Xmx128m  -cp ./../libs/*;l2jserver.jar net.sf.l2j.loginserver.L2LoginServer
if ERRORLEVEL 2 goto restart
if ERRORLEVEL 1 goto error
goto end
:restart
echo.
echo Admin Restart ...
echo.
goto start
:error
echo.
echo Server terminated abnormaly
echo.
:end
echo.
echo server terminated
echo.
pause

так вот мне надоело это фигня!!
хочу создать exe файл чтобы эти батники запускались из него!! какбы создать консоль в нутри программы с помощью RichEdit1 !!

так чет я сам написал и ничего не понял!!

смотри рис!!

[Роман Радер]

сделай батник например execute.bat

start /wait /b "gameserver.bat"
start /wait /b "loginserver.bat"

и кинь его в папку с этими бат-файлами

[Dryg2009]

Сообщение от Роман Радер

сделай батник например execute.bat

start /wait /b "gameserver.bat"
start /wait /b "loginserver.bat"

и кинь его в папку с этими бат-файлами

эти батники лежат в разных дериктория!! и так не работает кстате!!

[ArtInt]

как я понял нужно просто создать еxe, который запускал бы два файла,
значит можно использовать ShellAPi (обязательно прописать в uses)

shellExecute(handle,nil,ExtractFilePath(Application.ExeName)+'\'+ 'gameserver.bat',nil,nil,SW_RESTORE);
 shellExecute(handle,nil,ExtractFilePath(Application.ExeName)+'\'+ 'loginserver.bat',nil,nil,SW_RESTORE);

Потом размещаешь в ту директорию, где твоя программа и запускаешь

[Dryg2009]

Сообщение от ArtInt

как я понял нужно просто создать еxe, который запускал бы два файла,
значит можно использовать ShellAPi (обязательно прописать в uses)

shellExecute(handle,nil,ExtractFilePath(Application.ExeName)+'\'+ 'gameserver.bat',nil,nil,SW_RESTORE);
 shellExecute(handle,nil,ExtractFilePath(Application.ExeName)+'\'+ 'loginserver.bat',nil,nil,SW_RESTORE);

Потом размещаешь в ту директорию, где твоя программа и запускаешь

Спасибо вроде работает!!

Другой вопросик!!

как сделать чтобы программа настройки брала ну например из файла settings.ini а в самом файле бал прописан путь к батникам был

[main_0]
pyt = D:\l2j-server\gameserver\gameserver.bat

[main_1]
pyt2 = D:\l2j-server\login\loginserver.bat

[Dryg2009]

помогите с проблемой!!

procedure TForm1.sBitBtn1Click(Sender: TObject);
var Path1,Path2,Path3,Path4: string;
MyFile:TIniFile;
begin
MyFile:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'\'+ 'lin.ini');
 Path1:= MyFile.ReadString('gameserver','Path1','');
 Path2:= MyFile.ReadString('gameserver','Path2','');
 Path3:= MyFile.ReadString('loginserver','Path3','');
 Path4:= MyFile.ReadString('loginserver','Path4','');
ShellExecute(Application.mainform.Handle, Pchar('open'), Pchar('Path1'), nil, Pchar('Path2'),SW_SHOWMINIMIZED);
ShellExecute(Application.mainform.Handle, Pchar('open'), Pchar('Path3'), nil, Pchar('Path4'),SW_SHOWMINIMIZED);
end;

в ini файле написано вот это

[gameserver]
path1=startGameServer.bat
path2=D:\server\gameserver
[loginserver]
path3=startLoginServer.bat
path4=D:\server\login

Суть такая!! ошибок ни каких не выдает но при нажатии на sBitBtn1 батники не запускается!!

а если например написать

ShellExecute(Application.mainform.Handle, Pchar('open'), Pchar('startGameServer.bat'), nil, Pchar('D:\server\gameserver'),SW_SHOWMINIMIZED);
ShellExecute(Application.mainform.Handle, Pchar('open'), Pchar('startLoginServer.bat'), nil, Pchar('D:\server\login'),SW_SHOWMINIMIZED);

ТО ВСЕ РАБОТАЕТ ДАЖЕ ОЧЕНЬ ХОРОШО!!


проверял через

sEdit1.Text:=MyFile.ReadString('gameserver','Path1','');
sEdit3.Text:=MyFile.ReadString('gameserver','Path2','');

sEdit все заполняются из ini файла

что я не так написал ?

[Пепел Феникса]

procedure TForm1.sBitBtn1Click(Sender: TObject);
var Path1,Path2,Path3,Path4: string;
MyFile:TIniFile;
begin
MyFile:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'\'+ 'lin.ini');
 Path1:= MyFile.ReadString('gameserver','Path1','');
 Path2:= MyFile.ReadString('gameserver','Path2','');
 Path3:= MyFile.ReadString('loginserver','Path3','');
 Path4:= MyFile.ReadString('loginserver','Path4','');
ShellExecute(Application.mainform.Handle, Pchar('open'), Pchar(Path1), nil, Pchar(Path2),SW_SHOWMINIMIZED);
ShellExecute(Application.mainform.Handle, Pchar('open'), Pchar(Path3), nil, Pchar(Path4),SW_SHOWMINIMIZED);
end;

ты написал не переменную а строку

[Dryg2009]

Сообщение от Пепел Феникса

procedure TForm1.sBitBtn1Click(Sender: TObject);
var Path1,Path2,Path3,Path4: string;
MyFile:TIniFile;
begin
MyFile:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'\'+ 'lin.ini');
 Path1:= MyFile.ReadString('gameserver','Path1','');
 Path2:= MyFile.ReadString('gameserver','Path2','');
 Path3:= MyFile.ReadString('loginserver','Path3','');
 Path4:= MyFile.ReadString('loginserver','Path4','');
ShellExecute(Application.mainform.Handle, Pchar('open'), Pchar(Path1), nil, Pchar(Path2),SW_SHOWMINIMIZED);
ShellExecute(Application.mainform.Handle, Pchar('open'), Pchar(Path3), nil, Pchar(Path4),SW_SHOWMINIMIZED);
end;

ты написал не переменную а строку

Спасибо!! чет я ступил!!