Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ] > Код на шару!
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 03.06.2013, 17:53
serega6531 serega6531 вне форума
Начинающий
 
Регистрация: 03.03.2013
Сообщения: 106
Версия Delphi: Delphi 7, XE5
Репутация: 10
По умолчанию Запуск minecraft

Мне нужео запустить minecraft примерно следующим кодом:
Код:
start javaw -Xms512m -Xmx2048m
-Djava.library.path="C:\Users\serega6531\AppData\Roaming\.happyminers\bin\natives" 
-cp "C:\Users\serega6531\AppData\Roaming\.happyminers\bin\minecraft.jar;C:\Users\serega6531\AppData\Roaming\.happyminers\bin\lwjgl.jar;
C:\Users\serega6531\AppData\Roaming\.happyminers\bin\lwjgl_util.jar;C:\Users\serega6531\AppData\Roaming\.happyminers\bin\jinput.jar;" 
net.minecraft.client.Minecraft username
Сделать это надо через любую возможную функцию(WinExec, ShellExecute, CreateProcess). По возможности дайте проверенный код.
Ответить с цитированием
  #2  
Старый 03.06.2013, 18:53
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Почти все разделы уже перебраны, даже не знаю, какой без подобной темы ещё остался Может путь не тот, может нужно это?
Ответить с цитированием
  #3  
Старый 03.06.2013, 19:12
serega6531 serega6531 вне форума
Начинающий
 
Регистрация: 03.03.2013
Сообщения: 106
Версия Delphi: Delphi 7, XE5
Репутация: 10
По умолчанию Нет

Цитата:
Сообщение от Alegun
Почти все разделы уже перебраны, даже не знаю, какой без подобной темы ещё остался Может путь не тот, может нужно это?
Батник с этим кодом работает. И мне не нужен лаунчер, я сам его делаю.
Ответить с цитированием
  #4  
Старый 03.06.2013, 19:13
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

Цитата:
Сообщение от Alegun
Почти все разделы уже перебраны, даже не знаю, какой без подобной темы ещё остался Может путь не тот, может нужно это?
Все темы в разделе " [ "Начинающим" ] "))

Ты так и не осилил ShellExecute/CreateProcess? Вон тот лайнчер через Cerateprocess как раз запускает.

Вот стек при вызове ф-ии:
Код:
00287C90   00000000  |ModuleFileName = NULL
00287C94   00287CD0  |CommandLine = ""C:\Program Files\Java\jre7\bin\javaw.exe" -Xms512m -Xmx1024m -jar "C:\Users\***\Desktop\Minecraft.exe""
00287C98   00000000  |pProcessSecurity = NULL
00287C9C   00000000  |pThreadSecurity = NULL
00287CA0   00000001  |InheritHandles = TRUE
00287CA4   00000020  |CreationFlags = NORMAL_PRIORITY_CLASS
00287CA8   00000000  |pEnvironment = NULL
00287CAC   00000000  |CurrentDir = NULL
00287CB0   0028FCD0  |pStartupInfo = 0028FCD0
00287CB4   00410C80  \pProcessInfo = Minecraf.00410C80

Или пипец все плохо и надо объяснять на пальцах?
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию

Последний раз редактировалось M.A.D.M.A.N., 03.06.2013 в 19:20.
Ответить с цитированием
  #5  
Старый 03.06.2013, 19:38
serega6531 serega6531 вне форума
Начинающий
 
Регистрация: 03.03.2013
Сообщения: 106
Версия Delphi: Delphi 7, XE5
Репутация: 10
По умолчанию Да

Цитата:
Сообщение от M.A.D.M.A.N.
Все темы в разделе " [ "Начинающим" ] "))

Ты так и не осилил ShellExecute/CreateProcess? Вон тот лайнчер через Cerateprocess как раз запускает.

Вот стек при вызове ф-ии:
Код:
00287C90   00000000  |ModuleFileName = NULL
00287C94   00287CD0  |CommandLine = ""C:\Program Files\Java\jre7\bin\javaw.exe" -Xms512m -Xmx1024m -jar "C:\Users\***\Desktop\Minecraft.exe""
00287C98   00000000  |pProcessSecurity = NULL
00287C9C   00000000  |pThreadSecurity = NULL
00287CA0   00000001  |InheritHandles = TRUE
00287CA4   00000020  |CreationFlags = NORMAL_PRIORITY_CLASS
00287CA8   00000000  |pEnvironment = NULL
00287CAC   00000000  |CurrentDir = NULL
00287CB0   0028FCD0  |pStartupInfo = 0028FCD0
00287CB4   00410C80  \pProcessInfo = Minecraf.00410C80

Или пипец все плохо и надо объяснять на пальцах?
Да, если можно. Я так понял надо эти данные запихнуть в функцию:
Цитата:
Сообщение от M.A.D.M.A.N.
Код:
function RunMyAppHidden(my_app : string; my_wait : bool) : bool; // по идее можно в процедуру переписать
  var
    si : TStartupInfo;
    pi : TProcessInformation;
  begin
    Result := false;
    try
      ZeroMemory(@si,SizeOf(si));
      si.cb := SizeOf(si);
      si.dwFlags := STARTF_USESHOWWINDOW;
      si.wShowWindow := SW_SHOWNORMAL;  // <--- обрати внимание на этот флаг
      if CreateProcess(nil,PChar(my_app),nil,nil,False,0,nil,nil,si,pi)=true then Result := true;
      try CloseHandle(pi.hThread); except ; end;
      if my_wait = true then WaitForSingleObject(pi.hProcess, INFINITE);
      try CloseHandle(pi.hProcess); except ; end;
    except
      Result := false;;
    end;
  end;
И пожалуйста, ругайтесь не очень сильно. Это же раздел для начинающих.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 06:11.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter