Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Открытие файла (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


Наверх

Титульная страница Поиск, карта сайта Написать письмо