 
			
				07.09.2008, 15:52
			
			
			
		  
	 | 
	
		
		
		
			
			| 
			
				
				
				 Активный 
				
				
			 | 
			  | 
			
				
				
					Регистрация: 25.02.2008 
					
					
					Сообщения: 395
 
				
					Репутация: -599 
					    
				 
				
			 | 
		 
		 
		
	 | 
	
	
	
		
			
			
			 
			
		
		
		
		
	Код: 
	USES ShellAPi;
...
procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key = #13 then
             ShellExecute(Form1.Handle, 
                            nil, 
                            combobox1.text, 
                            nil, 
                            nil, 
                            SW_SHOWNORMAL); 
end; 
  
		
	
		
		
		
		
		
	
		
		
	
	
	 |