Сейчас на форуме: ManHunter, rmn, _MBK_, tyns777 (+10 невидимых)

 eXeL@B —› Программирование —› Запуск Java приложения на Delphi
Посл.ответ Сообщение

Ранг: 1.0 (гость)
Активность: 0=0
Статус: Участник

 Создано: 15 апреля 2012 00:34
· Личное сообщение · #1

Всем доброго времени суток. У меня есть небольшая программка, написанная на Delphi. И в ней хочу сделать возможно запуск Java приложения.

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

Вот собственно код в батнике
Code:
  1. java -Xms1024m -Xmx1024m -cp "%APPDATA%\logsfile\*" -Djava.library.path="%APPDATA%\logsfile\files" net.soft.client.progtam "Neom"



Подскажите, как возможно это осуществить, желательно через CreateProcess.




Ранг: 105.6 (ветеран), 36thx
Активность: 0.1↘0
Статус: Участник

 Создано: 15 апреля 2012 01:10 · Поправил: Dart Sergius
· Личное сообщение · #2

WinExec

CreateProcess("java.exe","-Xms1024m -Xmx1024m -cp "%APPDATA%\logsfile\*" -Djava.library.path="%APPDATA%\logsfile\files" net.soft.client.progtam "Neom",и остальные параметры)
Раз пишешь на делфи должен впринципе знать как устроить строку с параметрами.
http://www.vsokovikov.narod.ru/New_MSDN_API/Process_thread/fn_createprocess.htm



Ранг: 1.0 (гость)
Активность: 0=0
Статус: Участник

 Создано: 15 апреля 2012 02:25
· Личное сообщение · #3

Дак самое забавное, что вот код ))) но он не фурычит )

Code:
  1. procedure TFrame11.sButton3Click(Sender: TObject);
  2.  
  3. var
  4.   StartupInfo: TStartupInfo;
  5.   ProcessInfo: TProcessInformation;
  6. begin
  7.   FillChar(StartupInfo, sizeof(StartupInfo), 0);
  8.   StartupInfo.cb := Sizeof(StartupInfo);
  9.   StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
  10.   StartupInfo.wShowWindow := SW_SHOWNORMAL;
  11.  
  12.   FillChar(ProcessInfo, sizeof(ProcessInfo), 0);
  13.  
  14.   CreateProcess(nil,
  15.                 PChar('C:\Program Files\Java\jre6\bin\java.exe' + ' -Xms1024m -Xmx1024m -cp "%APPDATA%\logsfile\*" -Djava.library.path="%APPDATA%\logsfile\files" net.soft.client.progtam "Neom"'),
  16.                 nil,
  17.                 nil,
  18.                 False,
  19.                 CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,
  20.                 nil,
  21.                 '%APPDATA%\logsfile',
  22.                 StartupInfo,
  23.                 ProcessInfo);
  24. end;

Ранг: 3.0 (гость)
Активность: 0=0
Статус: Участник

 Создано: 15 апреля 2012 05:19 · Поправил: Dream_
· Личное сообщение · #4

Вынеси имя исполняемого файла в нужный параметр функции.
Code:
  1. CreateProcess(PChar('C:\Program Files\Java\jre6\bin\java.exe'),
  2.                 PChar('-Xms1024m -Xmx1024m -cp "%APPDATA%\logsfile\*" -Djava.library.path="%APPDATA%\logsfile\files" net.soft.client.progtam "Neom"'),
  3.                 nil,
  4.                 nil,
  5.                 False,
  6.                 CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,
  7.                 nil,
  8.                 '%APPDATA%\logsfile',
  9.                 StartupInfo,
  10.                 ProcessInfo);

Ранг: 114.8 (ветеран), 41thx
Активность: 0.1↘0
Статус: Участник

 Создано: 15 апреля 2012 05:45
· Личное сообщение · #5

ExpandEnvironmentStrings


 eXeL@B —› Программирование —› Запуск Java приложения на Delphi
:: Ваш ответ
Жирный  Курсив  Подчеркнутый  Перечеркнутый  {mpf5}  Код  Вставить ссылку 
:s1: :s2: :s3: :s4: :s5: :s6: :s7: :s8: :s9: :s10: :s11: :s12: :s13: :s14: :s15: :s16:


Максимальный размер аттача: 500KB.
Ваш логин: german1505 » Выход » ЛС
   Для печати Для печати