![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Открытие файла (Excel,Access,txt и т.п.) из проекта Delphi [D7, D2005]
Литейщик © (2007-01-09 16:32:00)Необходимо открыть (запустить) файл с помощью другой программы Windows (программу выбирать необязательно, нужно использовать программу исходя из зарегистрированных расширений). Не могу нигде найти информацию... А сам не знаю... Помогите чем можете....
Desdechado (2007-01-09 18:11:00) [1]Литейщик (09.01.07 16:40) [2]
> В бейсике что-то такое есть, я уже попробовал. Но у меня с синтаксисом какие-то нелады
Бейсик тут с какого боку? Спавку по дельфи читать или MSDN. Тогда и синтаксис заладится.
Литейщик (2007-01-09 17:11:00) [2]Спасибо огромное! Еще немного и начну верить в людей ... :-)))
kaZaNoVa (2007-01-09 16:50:00) [3]p.s. убрать пробел в
Integ er=Integer(непонятный глюк клиента/сайта)
kaZaNoVa (2007-01-09 16:49:00) [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:46:00) [5]
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;
Литейщик (2007-01-09 16:40:00) [6]Если можно, чуть подробнее. В бейсике что-то такое есть, я уже попробовал.
Но у меня с синтаксисом какие-то нелады.Не получается
Desdechado (2007-01-09 16:34:00) [7]ShellExecute