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

Оформил: DeeCo


 uses
   ComObj;

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

Похожие по теме исходники

Нейросеть для распознавания образов

Механизм станка качалки для нефти

Весы для взвешивания

Кувшины для воды

Доска для игры Реверси

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 96 • TDictionary Custom Sort 3 293 • Fast Watermark Sources 3 043 • 3D Designer 4 799 • Sik Screen Capture 3 293 • Patch Maker 3 513 • Айболит (remote control) 3 610 • ListBox Drag & Drop 2 969 • Доска для игры Реверси 81 418 • Графические эффекты 3 897 • Рисование по маске 3 209 • Перетаскивание изображений 2 594 • Canvas Drawing 2 712 • Рисование Луны 2 540 • Поворот изображения 2 147 • Рисование стержней 2 150 • Paint on Shape 1 556 • Генератор кроссвордов 2 214 • Головоломка Paletto 1 754 • Теорема Монжа об окружностях 2 193 • Пазл Numbrix 1 675 • Заборы и коммивояжеры 2 046 • Игра HIP 1 270 • Игра Go (Го) 1 219 • Симулятор лифта 1 463 • Программа укладки плитки 1 204 • Генератор лабиринта 1 534 • Проверка числового ввода 1 340 • HEX View 1 481 • Физический маятник 1 347