
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;
|