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

Delphi Sources



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

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 14.05.2012, 20:15
Hunter US Hunter US вне форума
Новичок
 
Регистрация: 19.12.2011
Сообщения: 60
Репутация: 10
Вопрос Делфи и командный рядок (cmd)

У меня такой вопрос: Какой может быть обработчик для кнопки Button1?
Нужно чтобы при нажатии Button1 в системную командную строку прописалась какая нибудь команда, ну к примеру "ping"???
Подскажите пожалуйста обработчик??? Заранее спасибо!
__________________
Я ведь только учусь...
Ответить с цитированием
  #2  
Старый 14.05.2012, 20:27
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

Код:
CreateProcess('cmd.exe', '/K ping',...)
__________________
jmp $ ; Happy End!
The Cake Is A Lie.

Последний раз редактировалось Bargest, 14.05.2012 в 20:31.
Ответить с цитированием
Этот пользователь сказал Спасибо Bargest за это полезное сообщение:
Hunter US (14.05.2012)
  #3  
Старый 14.05.2012, 20:28
Аватар для cotseec
cotseec cotseec вне форума
Активный
 
Регистрация: 16.07.2008
Сообщения: 353
Версия Delphi: D7,TDE06,RAD09
Репутация: 1443
По умолчанию

как понять
Цитата:
Нужно чтобы при нажатии Button1 в системную командную строку прописалась какая нибудь команда, ну к примеру "ping"???
если речь идет о запуске процесса (программы) с какими-либо параметрами (как ping в данном случае - программа 'ping.exe'), то запуск процесса а если интересует передача каких-либо параметров в окно консоли, то посмотрите тут

опять опередили
Ответить с цитированием
Этот пользователь сказал Спасибо cotseec за это полезное сообщение:
Hunter US (14.05.2012)
  #4  
Старый 14.05.2012, 20:38
Hunter US Hunter US вне форума
Новичок
 
Регистрация: 19.12.2011
Сообщения: 60
Репутация: 10
По умолчанию

Ну нужно уже в запущенный процесс передать команду. Например работает cmd и туда кнопкой нужно прописать команду..
так сказать автоматизировать ввод команды вручную
__________________
Я ведь только учусь...
Ответить с цитированием
  #5  
Старый 15.05.2012, 06:53
Аватар для Kailon
Kailon Kailon вне форума
Активный
 
Регистрация: 06.06.2010
Сообщения: 340
Версия Delphi: 11.3
Репутация: 429
Сообщение

Цитата:
Сообщение от Hunter US
Ну нужно уже в запущенный процесс передать команду. Например работает cmd и туда кнопкой нужно прописать команду..
так сказать автоматизировать ввод команды вручную
Так пойдет?
Код:
var
  Wnd: HWND;
  Text: String;
  i: Byte;
begin
  Text := 'ping 127.0.0.1';
  Wnd := FindWindow('ConsoleWindowClass', nil);
  if Wnd <> 0 then
    for i := 1 to Length(Text) do
      SendMessage(Wnd, WM_CHAR, Ord(Text[i]), 0);
__________________
Всегда пишите код так, будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете.
Ответить с цитированием
Этот пользователь сказал Спасибо Kailon за это полезное сообщение:
Hunter US (17.05.2012)
  #6  
Старый 17.05.2012, 00:06
Hunter US Hunter US вне форума
Новичок
 
Регистрация: 19.12.2011
Сообщения: 60
Репутация: 10
По умолчанию

да спасибо!! А вот как вбивать команды в процесс xrEngiene???
Код:
var
  Wnd: HWND;
  Text: String;
  i: Byte;
begin
  Text := 'ping 127.0.0.1';
  Wnd := FindWindow('ConsoleWindowClass', nil);
  if Wnd <> 0 then
    for i := 1 to Length(Text) do
      SendMessage(Wnd, WM_CHAR, Ord(Text[i]), 0);
Я так понял эту строчку нужно изменить??? Просто прописать дуда процесс в памяти?
Подскажите пожалуйста плиз..
__________________
Я ведь только учусь...

Последний раз редактировалось Hunter US, 17.05.2012 в 00:31.
Ответить с цитированием
  #7  
Старый 17.05.2012, 08:25
Аватар для Kailon
Kailon Kailon вне форума
Активный
 
Регистрация: 06.06.2010
Сообщения: 340
Версия Delphi: 11.3
Репутация: 429
Сообщение

Цитата:
Сообщение от Hunter US
А вот как вбивать команды в процесс xrEngiene???
А что это за процесс и что ты вообще хочешь сделать?
__________________
Всегда пишите код так, будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете.
Ответить с цитированием
  #8  
Старый 17.05.2012, 16:30
Hunter US Hunter US вне форума
Новичок
 
Регистрация: 19.12.2011
Сообщения: 60
Репутация: 10
По умолчанию

Цитата:
Сообщение от Kailon
А что это за процесс и что ты вообще хочешь сделать?
Это консоль сервера, (игровой). Хочу сделать так чтобы не вводить команды вручную. а при нажатии одной кнопки туда вводилась одна команда или несколько команд с n-ным интервалом времени. Ктонибуть знает как это можно сделать?
__________________
Я ведь только учусь...
Ответить с цитированием
Ответ


Delphi Sources

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

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

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

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


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


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

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