Запуск сторонней программы

@Zwelenewskiy · Регистрация: 09.01.2017

Author24 — интернет-сервис помощи студентам

Как запустить стороннюю программу (.exe)?

@Joy · 13.07.2017, 19:21

Запуск стороннего приложения из лазаруса

@volvo · 13.07.2017, 19:23

@Zwelenewskiy · 13.07.2017, 19:46 **[ТС]**

Вот один из вариантов. Как указать полный путь к вызываемой программе? Я написал,например, так: C:\Program Files\Core Temp\CoreTemp.exe - выходит ошибка

Delphi

AProcess := TProcess.Create(nil);
  AProcess.Options := [poWaitOnExit];
  AProcess.Executable := '...';
  AProcess.Execute;

@Joy · 13.07.2017, 20:08

нет никакой ошибки

Pascal

procedure TForm1.Button1Click(Sender: TObject);
var
  AProcess: TProcess;
begin
  AProcess := TProcess.Create(nil);
  AProcess.Executable:= 'C:\Program Files\Windows NT\Accessories\wordpad.exe';
  AProcess.Options := [poWaitOnExit];
  AProcess.Execute;
  AProcess.Free;
end;

@volvo · 14.07.2017, 16:55

Сообщение от Zwelenewskiy

C:\Program Files\Core Temp\CoreTemp.exe - выходит ошибка

Да. Потому что CoreTemp требует полномочий администратора. Чтобы запустить стороннюю программу с повышением полномочий -используй ShellExecuteEx (пример есть по моей ссылке выше, функция RunAsAdmin). Только что попробовал

Pascal

procedure TForm1.Button1Click(Sender: TObject);
begin
  RunAsAdmin(0, '"F:\Program Files\Core Temp\Core Temp.exe"', '');
end;

- все прекрасно запустилось. Хотя TProcess.Execute давал ошибку №2.

@Andrey_IT2005 · 14.08.2019, 09:09

Joy, Не работает выдает ошибку
вот мой код который не хочет работать

Pascal

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
 
  public
 
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
  procedure TForm1.Button1Click(Sender: TObject);
  var
    AProcess: TProcess;
  begin
    AProcess := TProcess.Create(nil);
    AProcess.Executable:= 'C:\Program Files\Windows NT\Accessories\wordpad.exe';
    AProcess.Options := [poWaitOnExit];
    AProcess.Execute;
    AProcess.Free;
  end;
 
end.

@volvo · 14.08.2019, 09:44

Какую именно ошибку выдает код? Насколько я вижу, у тебя не подключен модуль Process в разделе unit, может быть в этом все дело?

P.S. Вообще-то не нужно полностью указывать путь к WordPad-у, достаточно написать:

Pascal

1	AProcess.Executable := FindDefaultExecutablePath('write'); // это в модуле FileUtil

@Andrey_IT2005 · 16.08.2019, 11:26

Ошибку выдет вот эту unit1.pas(33,19) Fatal: Syntax error, ";" expected but "." found

@DmiMukh · 16.08.2019, 13:26

Pascal

1 2	procedure TForm1.Button1Click(Sender: TObject); procedure TForm1.Button1Click(Sender: TObject);

Вас ничего не смущает в этих 2-х идущих подряд строках?

Запуск сторонней программы

Решение

Решение

@Zwelenewskiy 129 / 127 / 107 Регистрация: 09.01.2017 Сообщений: 1,651
		1
	Запуск сторонней программы 13.07.2017, 19:16. Показов 8979. Ответов 9 Метки нет (Все метки) Как запустить стороннюю программу (.exe)? 0

@Joy 2386 / 1298 / 1492 Регистрация: 29.08.2014 Сообщений: 4,661
	13.07.2017, 19:21	2
	Сообщение было отмечено Joey как решение Решение Запуск стороннего приложения из лазаруса 1

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,432 Записей в блоге: 8
	13.07.2017, 19:23	3
	Сообщение было отмечено Joey как решение Решение Executing External Programs 1

@Andrey_IT2005 0 / 0 / 0 Регистрация: 14.08.2019 Сообщений: 9
	16.08.2019, 11:26	9
	Ошибку выдет вот эту unit1.pas(33,19) Fatal: Syntax error, ";" expected but "." found 0

	16.08.2019, 13:26