Открытие файла (Excel,Access,txt и т.п.) из проекта Delphi

← →
Литейщик (2007-01-09 16:32) [0]

Необходимо открыть (запустить) файл с помощью другой программы Windows (программу выбирать необязательно, нужно использовать программу исходя из зарегистрированных расширений). Не могу нигде найти информацию... А сам не знаю... Помогите чем можете....

← →
Desdechado © (2007-01-09 16:34) [1]

ShellExecute

← →
Литейщик (2007-01-09 16:40) [2]

Если можно, чуть подробнее. В бейсике что-то такое есть, я уже попробовал.
Но у меня с синтаксисом какие-то нелады.Не получается

← →
kaZaNoVa © (2007-01-09 16:46) [3]

function Execute_By_kaZaNoVa(FileName:String;Param:String="";Dir:String="";ShowMode:Integ er=1):Cardinal; begin Result := ShellExecute(0, "open", PChar(FileName), PChar(Param), PChar(Dir), ShowMode); end;

← →
kaZaNoVa © (2007-01-09 16:49) [4]

Пример использования:

program Project1; uses Windows,ShellApi; {$R *.res} function Execute_By_kaZaNoVa(FileName:String;Param:String="";Dir:String="";ShowMode:Integ er=1):Cardinal; begin Result := ShellExecute(0, "open", PChar(FileName), PChar(Param), PChar(Dir), ShowMode); end; begin Execute_By_kaZaNoVa("calc.exe"); end.

← →
kaZaNoVa © (2007-01-09 16:50) [5]

p.s. убрать пробел в Integ er=Integer (непонятный глюк клиента/сайта)

← →
Литейщик (2007-01-09 17:11) [6]

Спасибо огромное! Еще немного и начну верить в людей ... :-)))

Литейщик (09.01.07 16:40) [2]
> В бейсике что-то такое есть, я уже попробовал. Но у меня с синтаксисом какие-то нелады
Бейсик тут с какого боку? Спавку по дельфи читать или MSDN. Тогда и синтаксис заладится.

Открытие файла (Excel,Access,txt и т.п.) из проекта Delphi Найти похожие ветки