![]()  | 
	
 
  | 
		
			
  | 	
	
	
		
		|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны | 
![]()  | 
	
	
| 
		 | 
	Опции темы | Поиск в этой теме | Опции просмотра | 
| 
		 
			 
			#1  
			
			
			
			
		 
		
		
	 | 
|||
		
		
  | 
|||
| 
	
	
		
			
			 У меня такой вопрос: Какой может быть обработчик для кнопки Button1? 
		
	
		
		
		
		
			
		
		
		
		
	
		
		
	
	
	Нужно чтобы при нажатии Button1 в системную командную строку прописалась какая нибудь команда, ну к примеру "ping"??? Подскажите пожалуйста обработчик??? Заранее спасибо!  | 
| 
		 
			 
			#2  
			
			
			
			
		 
		
		
	 | 
||||
		
		
  | 
||||
| 
	
	
		
			
			 Код: 
	CreateProcess('cmd.exe', '/K ping',...)Последний раз редактировалось Bargest, 14.05.2012 в 20:31.  | 
| Этот пользователь сказал Спасибо Bargest за это полезное сообщение: | ||
 
Hunter US (14.05.2012)
  | ||
| 
		 
			 
			#3  
			
			
			
			
		 
		
		
	 | 
||||
		
		
  | 
||||
| 
	
	
		
			
			 как понять 
		
	
		
		
		
		
		
	
		
		
	
	
	Цитата: 
	
 опять опередили ![]()  | 
| Этот пользователь сказал Спасибо cotseec за это полезное сообщение: | ||
 
Hunter US (14.05.2012)
  | ||
| 
		 
			 
			#4  
			
			
			
			
		 
		
		
	 | 
|||
		
		
  | 
|||
| 
	
	
		
			
			 Ну нужно уже в запущенный процесс передать команду. Например работает cmd и туда кнопкой нужно прописать команду.. 
		
	
		
		
		
		
			
		
		
		
		
	
		
		
	
	
	так сказать автоматизировать ввод команды вручную  | 
| 
		 
			 
			#5  
			
			
			
			
		 
		
		
	 | 
||||
		
		
  | 
||||
| 
	
	
		
			
			 Цитата: 
	
 Код: 
	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  
			
			
			
			
		 
		
		
	 | 
|||
		
		
  | 
|||
| 
	
	
		
			
			 да спасибо!! А вот как вбивать команды в процесс 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  
			
			
			
			
		 
		
		
	 | 
||||
		
		
  | 
||||
| 
	
	
		
			
			 Цитата: 
	
  | 
| 
		 
			 
			#8  
			
			
			
			
		 
		
		
	 | 
|||
		
		
  | 
|||
| 
	
	
		
			
			 Цитата: 
	
  |