freepascal.ru

Код: Выделить всё

procedure runapp;
var
   AProcess: TProcess;
begin
   AProcess := TProcess.Create(nil);
   AProcess.CommandLine := 'C:\Program Files\Internet Explorer\iexplore.exe';
   AProcess.Options := AProcess.Options + [poWaitOnExit];
   AProcess.Execute;
   AProcess.Free;
end;

KOL48 писал(а):Подскажите, как правильно запускать внешние программы с пробелами в путях.

Код: Выделить всё

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, process, FileUtil, Forms, Controls, Graphics, Dialogs,
  StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}
Procedure RunProg(Const ProgName:String);
var
   AProcess: TProcess;
begin
   AProcess := TProcess.Create(nil);
   AProcess.CommandLine := UTF8ToSys(ProgName);
   AProcess.Options := AProcess.Options + [poWaitOnExit];
   AProcess.Execute;
   AProcess.Free;
end;

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
  //RunProg('c:\wavGenerator_ver1.1\WaveGenerator.exe')
   //RunProg('C:\Program Files\Internet Explorer\iexplore.exe http://yandex.ru')
   RunProg('C:\Program Files\Internet Explorer\iexplore.exe')
   //RunProg('c:\привет\WaveGenerator.exe')
end;

end.


Maxizar писал(а):Очень странно... а можете выложить свой проект

Код: Выделить всё

procedure TForm1.Button1Click(Sender: TObject);
var
   AProcess: TProcess;
begin
  AProcess := TProcess.Create(nil);
  AProcess.CommandLine := UTF8ToSys(Edit1.Text);
  AProcess.Options := AProcess.Options + [poWaitOnExit];
  AProcess.Execute;
  AProcess.Free;
end;

KOL48 писал(а):Попробуйте запустить его у себя.

Maxizar писал(а):Так я его для вас и написал И я же прошу выложить ваш проект ...

Maxizar писал(а):Там оставил exe скомпиленный, и добавил Edit, в который вводишь путь к программе и кликаешь кнопку.

Код: Выделить всё

'"C:\Programm Files\trojan.exe"'

Код: Выделить всё

procedure runapp;
var
   AProcess: TProcess;
begin
   AProcess := TProcess.Create(nil);
   AProcess.CommandLine := QuotedStr('C:\Program Files\Internet Explorer\iexplore.exe');
   AProcess.Options := AProcess.Options + [poWaitOnExit];
   AProcess.Execute;
   AProcess.Free;
end;

Сквозняк писал(а):Чего только люди не изобретут чтобы не писать строку с путями в кавычках

Код: Выделить всё

'"C:\Programm Files\trojan.exe"'

Код: Выделить всё

   c:\wavGenerator_ver1.1\WaveGenerator.exe
   C:\Program Files\Internet Explorer\iexplore.exe http://yandex.ru
   C:\Program Files\Internet Explorer\iexplore.exe
   c:\привет\WaveGenerator.exe'


Padre_Mortius писал(а):Maxizar
Ваш пример вполне нормально будет работать на системах MS Windows Vista и выше, на MS Windows XP пробелы нужно обязательно экранировать двойными кавычками