Запуск Java приложения

[-Jack-]

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

java -Xms1024m -Xmx1024m -cp "%APPDATA%\logsfile\*" -Djava.library.path="%APPDATA%\logsfile\files" net.soft.client.progtam "Neom"

Пробывал через Createprocess - не выходит ...

Кто может, помогите )

[Shouldercannon]

Должно помочь java

[-Jack-]

ShellExecute(0, 'open', PChar('java'), PChar('-Xms1024m -Xmx1024m -cp "%APPDATA%\logsfile\*" -Djava.library.path="%APPDATA%\logsf ile\files" net.soft.client.progtam "Neom"'), nil, SW_SHOWNORMAL);

ShellExecute(0, 'open', PChar('java'), PChar('-Xms1024m -Xmx1024m -cp "%APPDATA%\logsfile\*" -Djava.library.path="%APPDATA%\logsf ile\files" net.soft.client.progtam "Neom"'), '%APPDATA%\logsfile\', SW_SHOWNORMAL);

Попробывал и так и так запускать, выдаёт ошибку ...

А если это прописывать в батник, то всё нормально загружается

java -Xms1024m -Xmx1024m -cp "%APPDATA%\logsfile\*" -Djava.library.path="%APPDATA%\logsf ile\files" net.soft.client.progtam "Neom"

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

гм ShellExecute, как минимум, не яввляется коммандной строкой!

Если уж так надо программно, то используйте CreateProcess(не WinExec).
т.к. winexec в скором времени должна отвалиться

Да и зачем вам геморой?

var
 fText:TextFile;
begin
AssignFile(fText,'Bath.cmd');
try
  Rewrite(fText);
  Write(f,'java -Xms1024m -Xmx1024m -cp "%APPDATA%\logsfile\*" -Djava.library.path="%APPDATA%\logsf ile\files" net.soft.client.progtam "Neom"');
finally
 CloseFile(fText);
end;
ShellExecute(0,PChar('Open'),PChar('Bath.cmd'),nil,nil,SW_HIDE);
end;

Смысл ясен?

[-Jack-]

Да я не особо горю использовать ShellExecute, т.к. помнится с ним были проблемы на Win7 ...

Если не сложно, можно по подробней, как вот это всё можно сделать через CreateProcess ?

[Shouldercannon]

#

ShellExecute(0, 'open', 'C:\Program Files\Java\jre6\bin\java.exe' {путь до Java. Укажи свой путь, если он отличается от текущего}, 'java -Xms1024m -Xmx1024m -cp "%APPDATA%\logsfile\*" -Djava.library.path="%APPDATA%\logsfile\files" net.soft.client.progtam "Neom"' {передаваемые параметры}, 'D:\PROJECT' {папка в которой лежит, запускаемая через java, программа. Укажи свой путь}, SW_SHOWNORMAL);

#

var
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
begin
  FillChar(StartupInfo, sizeof(StartupInfo), 0);
  StartupInfo.cb := Sizeof(StartupInfo);
  StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
  StartupInfo.wShowWindow := SW_HIDE; // Или SW_SHOWNORMAL, зависит от ситуации

  FillChar(ProcessInfo, sizeof(ProcessInfo), 0);

  CreateProcess(nil,
                PChar('C:\Program Files\Java\jre6\bin\java.exe' {путь до Java. Укажи свой путь, если он отличается от текущего} + 'java -Xms1024m -Xmx1024m -cp "%APPDATA%\logsfile\*" -Djava.library.path="%APPDATA%\logsfile\files" net.soft.client.progtam "Neom"' {передаваемые параметры}),
                nil,
                nil,
                False,
                CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,
                nil,
                'D:\PROJECT' {папка в которой лежит, запускаемая через java, программа. Укажи свой путь},
                StartupInfo,
                ProcessInfo);

[-Jack-]

procedure TFrame11.sButton3Click(Sender: TObject);

var
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
begin
  FillChar(StartupInfo, sizeof(StartupInfo), 0);
  StartupInfo.cb := Sizeof(StartupInfo);
  StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
  StartupInfo.wShowWindow := SW_SHOWNORMAL;

  FillChar(ProcessInfo, sizeof(ProcessInfo), 0);

  CreateProcess(nil,
                PChar('C:\Program Files\Java\jre6\bin\java.exe' + 'java -Xms1024m -Xmx1024m -cp "%APPDATA%\logsfile\*" -Djava.library.path="%APPDATA%\logsf ile\files" net.soft.client.progtam "Neom"'),
                nil,
                nil,
                False,
                CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,
                nil,
                '%APPDATA%\logsfile\',
                StartupInfo,
                ProcessInfo);
end;

И тишина ... Ничего не грузится, ничего не открывается ...

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

Создайте BAT пропишите туда команды, сохраните, и через ShellExecute запустите.
ВСЕ.

Пример уже приводил 2 постами выше.

[-Jack-]

да хотелось, чтобы без батника было ... (

С батником то у меня проблем нету ... команда есть,в батнике работает на отлично ... Но хотелось бы чтобы всё программно было

[Shouldercannon]

Рабочая папка точно верно указана?