Модератор: Модераторы
Function Run_And_Wait (Const CurDir, Param: AnsiString): Integer;
var
  P: TProcess;
begin
  P := TProcess.Create(Nil);
  assert(p <> Nil);
  try
    P.Options := [poWaitOnExit, poNoConsole];
    P.ShowWindow := swoHIDE;
    P.CommandLine := Param;
    P.CurrentDirectory := CurDir;
    try
      P.Execute;
      Result := P.ExitStatus;
    finally
      FreeAndNil(P);
    end;
  except
    FreeAndNil(P);
  end;
end;
batment писал(а):Как сделать чтобы при нажатии на кнопку запускалось какое-то приложение или вызывалось URL? Интересует решение задачи под Windows.

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1