Подписаться на RSS рассылку
Главная » Статьи по Delphi » Файлы » Запустить любой файл

Запустить любой файл

Автор: Борисов Сергей

Uses ShellAPI;
...
Var S : String;
S:='Путь к файлу';
ShellExecute(Handle,'open', PAnsiChar(S),nil,nil,SW_Normal);

Просмотров: 4866

Обсудить на форуме

0   Спам
(10.11.2011)
3. Макса
не любой файл... Если запускать сервер ява игры который основан на ядре JAVA и запускать файл в формате bat (стандарт). Он не запустит, но при этом его откроет, будет ошибка при запуске типо, ява может найти указанные файлы.
Чуть изменить код и вуаля всё работает.
Оно ток приложения может открыть

0   Спам
(26.06.2009)
2. small keds
спс женек помогло!

0   Спам
(24.01.2009)
1. Евгений (жека)
запустить файл из папки с проектом

procedure TForm3.N13Click(Sender: TObject);
var s:string;
begin
S:=ExtractFileDir(Application.ExeName)+'\1.txt';
ShellExecute(Handle,'open', PAnsiChar(S),nil,nil,SW_Normal);
end;

файл запускае



Имя *:
Email:


Код *:

Copyright © 2008-2016 Программирование на Delphi для начинающих и не только

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации

Хостинг от uCoz

Автор проекта: Борисов Сергей

e-mail: save-x@yandex.ru

Связь с администрацией сайта