Александр Полеванов
Просветленный
(44622)
5 лет назад
На каком языке?
Если файл ассоциирован с программой, то для Delphi 3 и выше сначала пишем отдельную процедуру на ассоциацию:
procedure WinShellExecute(const Operation, AssociatedFile: string);
var
a: string;
begin
a := Operation;
if a = '' then a:= 'open';
ShellExecute(application.handle, pchar(a), pchar(AssociatedFile), '', '', SW_NORMAL);
end;
Потом создаем проедуру на
procedure TForm1.Button1Click(Sender: TObject); // 90 %
begin
WinShellExecute('open', 'Put\do\Tvoego\fayla.pdf');
end;