Как показать Open With диалогDelphi , Программа и Интерфейс , Диалоги и ФреймыКак показать Open With диалогАвтор: http://www.swissdelphicenter.ch { This code displays the application/file "Open With" dialog Passing the full file path and name as a parameter will cause the dialog to display the line "Click the program you want to use to open the file 'filename'". } uses ShellApi; procedure OpenWith(FileName: string); begin ShellExecute(Application.Handle, 'open', PChar('rundll32.exe'), PChar('shell32.dll,OpenAs_RunDLL ' + FileName), nil, SW_SHOWNORMAL); end; procedure TForm1.Button1Click(Sender: TObject); begin if Opendialog1.Execute then OpenWith(Opendialog1.FileName); end; Here's a translation of the provided text into Russian: Код, который вы предоставили, написан на Delphi и использует API Shell для отображения диалога "Открой с помощью". Вот разбивка того, что он делает:
Эта строка импортирует API Shell, который предлагает функции для взаимодействия с оболочкой Windows.
Эта процедура принимает имя файла в качестве входного параметра и использует функцию
Эта процедура связана с событием клика кнопки на форме. Когда кнопка нажата, она проверяет, был ли выполнен диалог открытия файла (т.е., была выбрана файл). Если файл был выбран, она вызывает процедуру Чтобы отобразить диалог "Открой с помощью" в вашем программе, вы можете создать кнопку на форме и связать эту процедуру с ее событием клика. Когда кнопка нажата, будет отображен диалог открытия файла, позволяющий пользователю выбрать файл. Затем диалог "Открой с помощью" появится, перечисляя все приложения, которые могут открывать файл. Вот альтернативное решение с использованием другого подхода:
В этом коде мы создаем экземпляр интерфейса В статье описывается способ отображения диалога "Открыть с помощью" в приложении Delphi, используя функцию ShellExecute из библиотеки ShellApi. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Диалоги и Фреймы ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |