Показать диалог для запуска приложения

Delphi , Программа и Интерфейс , Диалоги и Фреймы

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

 uses
   ComObj;

 procedure TForm1.FormCreate(Sender: TObject);
 var
   ShellApplication: Variant;
 begin
   ShellApplication := CreateOleObject('Shell.Application');
   ShellApplication.FileRun;
 end;

Программа DialogForRunningApp - это пример кода на языке программирования Pascal, который использует модуль ComObj для взаимодействия с объектами Windows Explorer. Метод CreateOleObject('Shell.Application') создает объект класса Shell.Application, а метод FileRun вызывает диалоговое окно для выбора файла для запуска.

Когда программа запущена, она покажет сообщение о выборе файла для запуска. После выбора файла, указанная программа будет запущена.

Пример кода:

program DialogForRunningApp;

uses
  ComObj;

procedure TForm1.FormCreate(Sender: TObject);
var
  ShellApplication: Variant;
begin
  ShellApplication := CreateOleObject('Shell.Application');
  ShowMessage('Please select a file to run:');
  ShellApplication.FileRun;
end;

var
  Form1: TForm1;

{$R *.dfm}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, 'Form1');
  Application.Run;
end.

Обратите внимание, что код должен быть помещен в класс формы и скомпилирован в исполняемый файл.

В статье описывается код на Delphi, который позволяет запустить диалог для запуска приложения с помощью интерфейса Shell.

Комментарии и вопросы

:: Главная :: Диалоги и Фреймы ::