![]()  | 
	
 
  | 
		
			
  | 	
	
	
		
		|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны | 
![]()  | 
	
	
| 
		 | 
	Опции темы | Поиск в этой теме | Опции просмотра | 
| 
	 | 
| 
		 
			 
			#1  
			
			
			
			
		 
		
		
	 | 
|||
		
		
  | 
|||
| 
	
	
		
			
			 как запустить exe-файл из delphi7 
		
	
		
		
		
		
		
	
		
		
	
	
	 | 
| 
		 
			 
			#2  
			
			
			
			
		 
		
		
	 | 
||||
		
		
  | 
||||
| 
	
	
		
			
			 ShellExecute 
		
	
		
		
		
		
			
		
		
		
		
	
		
		
	
	
	 | 
| 
		 
			 
			#3  
			
			
			
			
		 
		
		
	 | 
|||
		
		
  | 
|||
| 
	
	
		
			
			 и чё дальше 
		
	
		
		
		
		
		
	
		
		
	
	
	 | 
| 
		 
			 
			#4  
			
			
			
			
		 
		
		
	 | 
||||
		
		
  | 
||||
| 
	
	
		
			
			 Код: 
	Uses ShellAPI;
...
implementation
Procedure RunFile(FileName:String);
begin
    ShellExecute (Application.mainform.Handle, nil, PChar(FileName), nil, nil, SW_RESTORE);
end;Пример использования Код: 
	... if OpenDialog1.execute then RunFile(Opendialog1.FileName); ...  | 
| 
		 
			 
			#5  
			
			
			
			
		 
		
		
	 | 
||||
		
		
  | 
||||
| 
	
	
		
			
			 Код: 
	ShellExecute(Handle, 'open', 'путь к программе',nil,nil,SW_SHOW); Есть ещё способ: Код: 
	WinExec('путь к программе', SW_SHOW);P.S.<<D>>, опередил. Гы ![]()  | 
| 
		 
			 
			#6  
			
			
			
			
		 
		
		
	 | 
|||
		
		
  | 
|||
| 
	
	
		
			
			 Дальше - куришь справку. 
		
	
		
		
		
		
		
	
		
		
	
	
	в общем виде делается так: Код: 
	uses ShellAPI;
...
If ShellExecute(Application.Handle,
               PChar('open'),
               PChar('path\file.exe'),
               Nil,
               Nil,
               SW_SHOW) < 32 Then ShowMessage('Error'); | 
| 
		 
			 
			#7  
			
			
			
			
		 
		
		
	 | 
|||
		
		
  | 
|||
| 
	
	
		
			
			 А еще есть функция API - createprocess 
		
	
		
		
		
		
		
	
		
		
	
	
	 |