Форум: "Начинающим";
Текущий архив: 2007.01.28;
Скачать: [xml.tar.bz2];
Вниз
Открытие файла (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 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.01.28;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.041 c
