Вопрос о запуске через делфи.

[Jleksern]

Здравствуйте уважаемые программисты и любители.

У меня возник вопрос.

Имею login.bat файл с содержанием

@echo off
title Server Console
:start


REM -------------------------------------
REM Default parameters for a basic server.
REM -------------------------------------

java -Xmx32m -XX:+UseParallelGC -XX:+AggressiveOpts -XX:ParallelGCThreads=2 -XX:MaxPermSize=68m -cp ./lib/*; com.it.br.server.Server

if ERRORLEVEL 1 goto error
goto exit
:error
echo ErrorLevel = 1 (error), please read log
:exit
pause
exit

Данный batник запускает сервер.
У меня вопрос как можно по средствам делфи запустить его.

Когда Я пользуюсь стандартным кодом запуска

ShellExecute(Handle, 'open',  'server\Login.bat', nil, nil, SW_SHOWNORMAL);

То Вылатает такая ошибка

Error: Could not find or load main class com.it.br.server.Server
ErrorLevel = 1 (error), please read log
Для продолжения нажмите любую клавишу . . .

Если Я запускаю курсором сам файл login.bat, запускается всё нормально.

Подкиньте пожалуйста варианты кода который сможет запустить полноценно данный файл.

Раньше (2 года назад) у меня был код который запускал этот батник нормально, но вот не углядел и потерял код.

[Человек_Борща]

Вы не указали рабочую папку, откуда будет запущен bat.
Подробнее: http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx

[Jleksern]

Сообщение от Человек_Борща

Вы не указали рабочую папку, откуда будет запущен bat.
Подробнее: http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx

Боюсь не имеет большого значения.
Но Я думаю Вы не даром спросили...
I:\Documents and Settings\XXX\Рабочий стол\Project\Login\login.bat
В папке Project находиться проект Delphi, дальше в папке login храниться сам батник который будет запущен.

По моей памяти помню что нужный мне код был в одну строчку.
Нашел его на просторах интернета, а сейчас хоть убей не могу найти.

З.Ы. ShellExecute я написал заранее чтоб Вы знали какая будет ошибка. Предыдущий код не на ShellExecute начинался 1оо%

[Человек_Борща]

Я вам дал ссылку, и вы даже не зашли. Пичально.
Подсказка: lpDirectory

[Jleksern]

Я перешел по вашей ссылки, но с английским чтением у меня явная проблема.

А вот с Ваша подсказка была мне помогла обнаружить в поиске такой код, который я адаптировал под себя.

В итоге нашел получилось вот такое...

Var
ShExecInfo:TShellExecuteInfo;
input:string;
begin
input:='Login/Login.bat' ;
ShExecInfo.cbSize := SizeOf (TShellExecuteInfo);
         ShExecInfo.fMask := 0;
         ShExecInfo.Wnd := 0;
         ShExecInfo.lpVerb :=nil;
         ShExecInfo.lpFile := Pchar (input);
         ShExecInfo.lpParameters := nil;
         ShExecInfo.lpDirectory := nil;
         ShExecInfo.nShow := SW_MAXIMIZE;
         ShExecInfo.hInstApp := 0;
ShellExecuteEx(@ShExecInfo);

При запуске в batнике пишется

Error: Could not find or load main class com.it.br.server.Server
ErrorLevel = 1 (error), please read log
Для продолжения нажмите любую клавишу . . .

Проще говоря, если Вашу подсказку Я понял правильно, то в открытии файла не наступило.
Прежняя ошибка.
Знаю есть и другие способы запустить файл кроме ShellExecute, но не знаю какие и какой подойдет мне должен помочь.
По этому прошу у Вас помощи.

[Человек_Борща]

HINSTANCE ShellExecute(
  _In_opt_  HWND hwnd,
  _In_opt_  LPCTSTR lpOperation,
  _In_      LPCTSTR lpFile,
  _In_opt_  LPCTSTR lpParameters,
  _In_opt_  LPCTSTR lpDirectory,
  _In_      INT nShowCmd
);

lpDirectory, - место, откуда запускается lpFile

У вас оно nil а значит из папки %system32% и там нет

Could not find or load main class com.it.br.server.Server

В вашем случае надо указать папку JS машины.

[Аватар]

Я бы все таки попробовал в ShellExecute задать полный путь батника и следующим параметром полный путь к рабочей папке.

Боюсь не имеет большого значения.
В папке Project находиться проект Delphi, дальше в папке login храниться сам батник который будет запущен.

Откуда уверенность, что текущий каталог будет соответствовать каталогу, из которого запущена программа? Много вариантов, что это будет не так. Попробуйте, попытка не пытка Да и ошибка кричит, что не может найти сервер

[Jleksern]

Всё решил...
Спасибо всем большое без Вас бы не получилось.

На будущее если у кого-то будут подобные проблемы.
Вот этот код работает как стрелки на Биг Бене.

ShellExecute(Application.mainform.Handle, Pchar('open'), Pchar('login.bat'), nil, Pchar('Login'),SW_SHOWMINIMIZED);