Rambler's Top100
"Knowledge itself is power"
F.Bacon
Поиск | Карта сайта | Помощь | О проекте | ТТХ  
 Круглый стол
  
Правила КС
>> Настройки

Фильтр вопросов
>> Новые вопросы
отслеживать по
>> Новые ответы

Избранное

Страница вопросов
Поиск по КС


Специальные проекты:
>> К л ю к в а
>> Г о л о в о л о м к и

Вопрос №

Задать вопрос
Off-topic вопросы

Помощь

 
 К н и г и
 
Книжная полка
 
 
Библиотека
 
  
  
 


Поиск
 
Поиск по КС
Поиск в статьях
Яndex© + Google©
Поиск книг

 
  
Тематический каталог
Все манускрипты

 
  
Карта VCL
ОШИБКИ
Сообщения системы

 
Форумы
 
Круглый стол
Новые вопросы

 
  
Базарная площадь
Городская площадь

 
   
С Л С

 
Летопись
 
Королевские Хроники
Рыцарский Зал
Глас народа!

 
  
ТТХ
Конкурсы
Королевская клюква

 
Разделы
 
Hello, World!
Лицей

Квинтана

 
  
Сокровищница
Подземелье Магов
Подводные камни
Свитки

 
  
Школа ОБЕРОНА

 
  
Арсенальная башня
Фолианты
Полигон

 
  
Книга Песка
Дальние земли

 
  
АРХИВЫ

 
 

Сейчас на сайте присутствуют:
 
  
 
Во Флориде и в Королевстве сейчас  19:18[Войти] | [Зарегистрироваться]
Ответ на вопрос № 37557

10-11-2005 02:58
Поскажите пожалуйста как мне вызвать диалоговое окно "Открыть с помощью..." для графического файла.

[+] Добавить в избранные вопросы

Отслеживать ответы на этот вопрос по RSS

Ответы:


Уважаемые авторы вопросов! Большая просьба сообщить о результатах решения проблемы на этой странице.
Иначе, следящие за обсуждением, возможно имеющие аналогичные проблемы, не получают ясного представления об их решении. А авторы ответов не получают обратной связи. Что можно расценивать, как проявление неуважения к отвечающим от автора вопроса.

16-11-2005 01:59 | Сообщение от автора вопроса
Всем спасибо за помощь а особенно _MaSteR_NN_

14-11-2005 01:59
Как мне вызвать окно "ткрыть с помощью" для этого файла
Рассказать как строку формировать, что ли? :)

st:AnsiString;
...
st:='rundll32 shell32.dll,OpenAs_RunDLL '+Label4.Caption;
WinExec(PChar(st),0);


Или так не фурычит?

11-11-2005 15:46 | Сообщение от автора вопроса
Адрес файла находиться на Метке Label4 в свойстве caption. Как мне вызвать окно "ткрыть с помощью" для этого файла

10-11-2005 06:10
Вот очень интересный сборник полезных DOS вызовов, думаю он поможет многим найти ответы на вопросы...

WinExec('rundll32 shell32.dll,Control_RunDLL ',1);        //Выводит панель управления
WinExec('rundll32 shell32.dll,OpenAs_RunDLL ',1);          //Выводит окошко «Открыть с помощью...»
WinExec('rundll32 shell32.dll,ShellAboutA Info-Box',1);    //Показать окно «About Windows»
WinExec('rundll32 shell32.dll,Control_RunDLL desk.cpl',1); //Открыть свойства экранa
WinExec('rundll32 user,cascadechildwindows ',1);          //Сортировка окон каскадом
WinExec('rundll32 user,tilechildwindows ',1);              //Сортировка окон вниз
WinExec('rundll32 user,repaintscreen ',1);                //Обновить рабочий стол
WinExec('rundll32 shell,shellexecute Explorer ',1);        //Запустить проводник Windows
WinExec('rundll32 keyboard,disable ',1);                  //Вырубить клавиатуру
WinExec('rundll32 mouse,disable',1);                      //Вырубить мышь
WinExec('rundll32 user,swapmousebutton ',1);              //Поменять местами кнопки мыши
WinExec('rundll32 user,setcursorpos',1);                  //Сместить курсор крысы в левый верхний угол
WinExec('rundll32 user,wnetconnectdialog',1);              //Вызвать окно «Подключение сетевого диска»
WinExec('rundll32 user,wnetdisconnectdialog',1);          //Вызвать окно «Отключение сетевого диска»
WinExec('rundll32 user,disableoemlayer',1);                //Спровоцировать сбой
WinExec('rundll32 diskcopy,DiskCopyRunDll ',1);            //Показать окно «Copy Disk>>
WinExec('rundll32 maui.dll,RnaWizard',1);                  //Вывод окна «Установка связи», с ключом «/1» - без окна
WinExec('rundll32 shell32,SHFormatDrive',1);              //Вызвать окно «Форматирование диск 3,5(А)»
WinExec('rundll32 shell32,SHExitWindowsEx-1',1);          //Перегрузить explorer
WinExec('rundll32 shell32,SHExitWindowsEx 1',1);          //Выключение компьютера
WinExec('rundll32 shell32,SHExitWindowsEx 0',1);          //Завершить работу текущего пользователя
WinExec('rundll32 shell32,SHExitWindowsEx 2',1);          //Windows-98-PC boot
WinExec('rundll32 krnl386.exe,exitkernel ',1);            //Выход из Windows без любых вопросов
WinExec('rundll maui.dll,RnaDial”MyConnect”',1);          //Вызвать окно «Установка связи» с соединением «MyConnect»
WinExec('rundll32 msprint2.dll,RUNDLL_PrintTestPage ',1);  //Выбрать в появившемся окне принтер и послать на него тест
WinExec('rundll32 user,setcaretblinktime',1);              //Установить новую частоту мигания курсора
WinExec('rundll32 user,setdoubleclicktime',1);            //Установить новую скорость двойного нажатия
WinExec('rundll32 sysdm.cpl,InstallDevice_Rundll ',1);    //Установить non-Plug&Play оборудование


10-11-2005 05:38
Привет!
Вот решение вашей проблемы.... 

WinExec('rundll32 shell32.dll,OpenAs_RunDLL D:\net\Renamed\NarimanCPU.JPG',0);


Удачи!

10-11-2005 04:44
Не совсем то, но может сгодится :)
API'шная ShellExecute открывает файл прог-мой по умолчанию, а если таковой нет, то выкидывает нужное Вам окошко.

Добавьте свое cообщение

Вашe имя:  [Войти]
Ваш адрес (e-mail):На Королевстве все адреса защищаются от спам-роботов
контрольный вопрос:
Кто съел Красную шапочку?
в качестве ответа на вопрос или загадку следует давать только одно слово в именительном падеже и именно в такой форме, как оно используется в оригинале.
Надоело отвечать на странные вопросы? Зарегистрируйтесь на сайте.
Тип сообщения:
Текст:
Жирный шрифт  Наклонный шрифт  Подчеркнутый шрифт  Выравнивание по центру  Список  Заголовок  Разделительная линия  Код  Маленький шрифт  Крупный шрифт  Цитирование блока текста  Строчное цитирование
  • вопрос Круглого стола № XXX

  • вопрос № YYY в тесте № XXX Рыцарской Квинтаны

  • сообщение № YYY в теме № XXX Базарной площади
  • обсуждение темы № YYY Базарной площади
  •  
     Правила оформления сообщений на Королевстве

    Страница избранных вопросов Круглого стола.
      
    Время на сайте: GMT минус 5 часов

    Если вы заметили орфографическую ошибку на этой странице, просто выделите ошибку мышью и нажмите Ctrl+Enter.
    Функция может не работать в некоторых версиях броузеров.

    Web hosting for this web site provided by DotNetPark (ASP.NET, SharePoint, MS SQL hosting)  
    Software for IIS, Hyper-V, MS SQL. Tools for Windows server administrators. Server migration utilities  

     
    © При использовании любых материалов «Королевства Delphi» необходимо указывать источник информации. Перепечатка авторских статей возможна только при согласии всех авторов и администрации сайта.
    Все используемые на сайте торговые марки являются собственностью их производителей.

    Яндекс цитирования