Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.11.2012, 18:24   #1
Kapitan4ik
Пользователь
 
Регистрация: 25.10.2011
Сообщений: 47
По умолчанию Pansichar и string

Пишу небольшую программу под одну игру. Для запуска игры требуется выполнить команду в командной строке, для этого я использую WinExec.
Но вот дальше возникают проблемы, вот весь код кнопки:
Код:

  Appdata := GetWin('%AppData%') + '\.minecraft\';
  AllString :='java -Xms512m -Xmx1024m -cp "' + Appdata +
    'bin\*" -Djava.library.path="' + Appdata +
    'bin\natives" net.minecraft.client.Minecraft' + Edit1.Text;
   WinExec('cmd.exe /c '+AllString, sw_hide);
Соответственно, в оллстринг вся команда, через какую запускать.
Но, при компиляции вылетает вот такая штука:


и ругается на строку:
Код:
WinExec('cmd.exe /c '+AllString, sw_hide);
Список переменных:
Код:
  Appdata: String;
  Nickname: String;
  AllString: String;
  p: PAnsiChar;

Пробывал делать так:
Код:
 p:=Pansichar(allstring);
Но чет тоже как то не получилось. Заранее спасибо за ответы
Kapitan4ik вне форума Ответить с цитированием
Старый 09.11.2012, 18:29   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Код:
WinExec(PAnsiChar('cmd.exe /c '+AllString), sw_hide);
Ферштеен?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 09.11.2012, 18:31   #3
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,426
По умолчанию

1. WinExec древнейший динозавр, замените его на Shellxecute
2. В целом принимается PAnsiChar а не кусок строки с включенным в него PAnsiChar'ом, т.е. правильно так:
Код:
WinExec(PAnsiChar('cmd.exe /c '+AllString), sw_hide);
Человек_Борща вне форума Ответить с цитированием
Старый 09.11.2012, 18:33   #4
Kapitan4ik
Пользователь
 
Регистрация: 25.10.2011
Сообщений: 47
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
Код:
WinExec(PAnsiChar('cmd.exe /c '+AllString), sw_hide);
Ферштеен?
во, теперь повеселее, да только чето не запускается команда(
UPD. А, это уже у меня команда кривая, спасибо огромное, можно крыть

Последний раз редактировалось Kapitan4ik; 09.11.2012 в 18:36.
Kapitan4ik вне форума Ответить с цитированием
Старый 09.11.2012, 21:25   #5
Kapitan4ik
Пользователь
 
Регистрация: 25.10.2011
Сообщений: 47
По умолчанию

так, чтоб темку новую не создавать, возник ещё вопрос. Уже по командной строке. Есть команда:
Код:
start javaw -Xmx512m -Djava.library.path=%APPDATA%/.minecraft/bin/natives -cp %APPDATA%/.minecraft/bin/minecraft.jar;%APPDATA%/.minecraft/bin/jinput.jar;%APPDATA%/.minecraft/bin/lwjgl.jar;%APPDATA%/.minecraft/bin/lwjgl_util.jar net.minecraft.client.Minecraft NickName
я пытаюсь это все дело провернуть в делфи, вот что у меня получается:
Код:
allstring:='start javaw -Xmx512m -Djava.library.path=%APPDATA%/.minecraft/bin/natives -cp %APPDATA%/.minecraft/bin/minecraft.jar;%APPDATA%/.minecraft/bin/jinput.jar;'
  +'%APPDATA%/.minecraft/bin/lwjgl.jar;%APPDATA%/.minecraft/bin/lwjgl_util.jar net.minecraft.client.Minecraft '+edit1.text;
Запускаю я это все вот так:
Код:
WinExec(PAnsiChar('cmd.exe /c ' + AllString), sw_hide);
И в итоге нихрена не выходит. Мб кто подскажет, в чем моя ошибка?

UPD:Вот теперь точно все, можно крыть

Последний раз редактировалось Kapitan4ik; 09.11.2012 в 21:44.
Kapitan4ik вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проблемы с переводом из string в pansichar Tip.the.besT Общие вопросы Delphi 4 03.07.2012 17:34
String и PAnsiChar nls Общие вопросы Delphi 12 27.12.2011 23:50
Конвертация String в PAnsiChar в Delphi vandrouny Помощь студентам 5 28.10.2010 22:27
из String в Pansichar пауэрлифтинг Общие вопросы Delphi 10 05.02.2010 02:40
pansichar to string Toxa Общие вопросы Delphi 16 31.05.2007 13:40