Скачать: CL | DM;

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

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

---

← →
Desdechado ©   (2007-01-09 18:11) [7]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.03 c