Delphi ошибка unable to create process

Craw

238 / 49 / 6

Регистрация: 10.06.2012

Сообщений: 268

Записей в блоге: 1

Метки нет (Все метки)

В моем проекте часто при компиляции программа не запускается, пишет «Unable to create process: Отказано в доступе». Отдельный исполняемый файл при запуске пишет, что возможно нет прав доступа.

В чем может быть дело?

Ошибок в коде вроде нет:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    editResult: TEdit;
    btnPlus: TButton;
    btnDivison: TButton;
    btnMinus: TButton;
    btnMultiplication: TButton;
    btnResult: TButton;
    btn1: TButton;
    btn0: TButton;
    btn7: TButton;
    btn8: TButton;
    btn4: TButton;
    btn5: TButton;
    btn3: TButton;
    btn2: TButton;
    btn6: TButton;
    btn9: TButton;
    btnPoint: TButton;
    btnRoot: TButton;
    btnSqr: TButton;
    btnLog: TButton;
    btnSin: TButton;
    btnCos: TButton;
    btnExp: TButton;
    btnAbs: TButton;
    btnTg: TButton;
    btnCtg: TButton;
    btnSec: TButton;
    btnCosec: TButton;
    btnArcsin: TButton;
    btnArccos: TButton;
    btnArctg: TButton;
    btnArcctg: TButton;
    btnArcsec: TButton;
    btnArccosec: TButton;
    btnPi: TButton;
    btnE: TButton;
    procedure btn0Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure btn4Click(Sender: TObject);
    procedure btn5Click(Sender: TObject);
    procedure btn6Click(Sender: TObject);
    procedure btn7Click(Sender: TObject);
    procedure btn8Click(Sender: TObject);
    procedure btn9Click(Sender: TObject);
    procedure btnPointClick(Sender: TObject);
    procedure editResultKeyPress(Sender: TObject; var Key: Char);
    procedure btnAbsClick(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
// при нажатии на кнопки btn0-btn9 и btnPoint - вывести нужный знак
 
procedure TForm1.btn0Click(Sender: TObject);
begin
     editResult.Text := editResult.Text + Chr(48);
end;
 
procedure TForm1.btn1Click(Sender: TObject);
begin
     editResult.Text := editResult.Text + Chr(49);
end;
 
procedure TForm1.btn2Click(Sender: TObject);
begin
     editResult.Text := editResult.Text + Chr(50);
end;
 
procedure TForm1.btn3Click(Sender: TObject);
begin
     editResult.Text := editResult.Text + Chr(51);
end;
 
procedure TForm1.btn4Click(Sender: TObject);
begin
     editResult.Text := editResult.Text + Chr(52);
end;
 
procedure TForm1.btn5Click(Sender: TObject);
begin
     editResult.Text := editResult.Text + Chr(53);
end;
 
procedure TForm1.btn6Click(Sender: TObject);
begin
     editResult.Text := editResult.Text + Chr(54);
end;
 
procedure TForm1.btn7Click(Sender: TObject);
begin
     editResult.Text := editResult.Text + Chr(55);
end;
 
procedure TForm1.btn8Click(Sender: TObject);
begin
     editResult.Text := editResult.Text + Chr(56);
end;
 
procedure TForm1.btn9Click(Sender: TObject);
begin
     editResult.Text := editResult.Text + Chr(57);
end;
 
procedure TForm1.btnPointClick(Sender: TObject);
begin
     // если в строке editResult уже есть запятая, то вторую не отображать
     If Pos(',',editResult.Text) <> 0 then
         begin
         editResult.Text := editResult.Text + Chr(0);
         end
     Else
         begin
         editResult.Text := editResult.Text + Chr(44);
         end
     end;
 
procedure TForm1.editResultKeyPress(Sender: TObject; var Key: Char);
begin
    case Key of
    '0'..'9':  ;   // цифры
    ',','.' :      // точка или запятая
    begin
         if Key = '.' then Key := ','; // подмена точки
         if Pos(',',editResult.Text) <> 0  // если есть запятая
            then Key :=Char(0);   // вторую не отображать
    end;
  #8:  ;  // backspace
  #13: btnResult.SetFocus    ;  // фокус на кнопку "Равно"
 
  else Key :=Chr(0);  // остальные символы запрещены
  end;
end;
 
 
procedure TForm1.btnAbsClick(Sender: TObject);
// абсолютное значение числа (модуль)
var
   x : Real;
begin
    x := StrToFloat(editResult.Text);
    x := Abs(x);
    editResult.Text := FloatToStr(x);
end;
 
end.

2999 / 2998 / 391

Регистрация: 26.07.2011

Сообщений: 11,459

Записей в блоге: 1

а тебе это ни о чем не говорит? может, стоит от Админа запускать?

238 / 49 / 6

Регистрация: 10.06.2012

Сообщений: 268

Записей в блоге: 1

У меня один пользователь на компьютере. Потому он всегда и админ, тут не в этом дело.

Не по теме:

О-о-о как! И в системных папках файлы можешь создавать без проблем?

238 / 49 / 6

Регистрация: 10.06.2012

Сообщений: 268

Записей в блоге: 1

Добавлено через 8 минут
Переписал последнюю процедуру, теперь уже пишет при компиляции «[Fatal Error] Could not create output file ‘D:ÏðîãðàììèðîâàíèåDelphiCalcProject1.exe'». На ошибки в синтаксисе кода не указывает.

993 / 521 / 102

Регистрация: 19.03.2013

Сообщений: 3,113

Записей в блоге: 19

Может быть процесс запущен и не киляется.
Пересохрани в другой папке, просто пересохрани проект.
Перезагрузи комп.

Также находим вот:

238 / 49 / 6

Регистрация: 10.06.2012

Сообщений: 268

Записей в блоге: 1

Согласно диспетчеру, нет.

Проблема была ещё позавчера, только начал (первоначальный вариант расположения объектов на форме сделал и совсем немного кода), а пришлось завершить! Сегодня опять не могу продолжить.

Делал, проблема осталась.

А вот за это спасибо! Сейчас попробую и напишу результаты. Хотя сразу могу сказать — ничего не отключал…

421 / 351 / 19

Регистрация: 14.05.2012

Сообщений: 1,437

238 / 49 / 6

Регистрация: 10.06.2012

Сообщений: 268

Записей в блоге: 1

Миниатюры

993 / 521 / 102

Регистрация: 19.03.2013

Сообщений: 3,113

Записей в блоге: 19

1.
Обычно такого характера ошибка у меня возникает, когда пытаюсь компилировать что-либо в Делфи при открытых 2-3 окнах LineAge2. Попробуй закрыть/открыть заново и откомпилировать еще раз.
Помогло,спасибо,паралелльно игра открыта была.

2. Ошибка «Unable to create process» происходи из-зи того, что путь к проекту содержит русские буквы.
То есть — «C:Documents and SettingsUserМои документыBorland Studio Projects».
Для того чтобы все заработало, нужно зразу сохранить проект например в C:project

238 / 49 / 6

Регистрация: 10.06.2012

Сообщений: 268

Записей в блоге: 1

Сменил на «D:ProgrammingDelphiCalc», проблема осталась. И, что самое интересное, проблема только с одним проектом, остальные нормально работают.

993 / 521 / 102

Регистрация: 19.03.2013

Сообщений: 3,113

Записей в блоге: 19

Craw

238 / 49 / 6

Регистрация: 10.06.2012

Сообщений: 268

Записей в блоге: 1

Это один из тех случаев «магии». Я удалил все процедуры и восстанавливал по частям. В итоге все работало, пока я не добавил самую последнюю процедуру:

1
2
3
4
5
6
7
8

procedure TForm1.btnAbsClick(Sender: TObject);
var
   x : Real;
begin
    x := StrToFloat(editResult.Text);
    x := Abs(x);
    editResult.Text := FloatToStr(x);
end;

После неё появилась ошибка. Ясно вроде — что-то не нравится компилятору в этом куске кода (хоть и не знаю), нужно его убрать. Удалил, ошибка осталось. Хотя только что он работал без этой процедуры!

Процедура вычисляет модуль. Можно вместо

1

x := Abs(x);

однако записать

1

if x < 0 then  x := x * (-1);

, разницы нет, не работает.

993 / 521 / 102

Регистрация: 19.03.2013

Сообщений: 3,113

Записей в блоге: 19

238 / 49 / 6

Регистрация: 10.06.2012

Сообщений: 268

Записей в блоге: 1

Не знаю уже, как и называть это «магию»! Пару дней на Delphi, а такие проблемы!

Double эквивалентен Real, потому заменил и… запустил нормально и без ошибок! Не всё так просто оказалось. У меня в одном поле запрещен ввод любых символов, кроме цифр. Процедура, которая это делала, раньше работала полностью исправно. Сейчас не было никакой реакции почему-то при тестировании, я смог ввести и буквы, почти ничего не работало из старого (до этого исправного!) кода, хотя изменений кроме типа переменной вообще не было.
Как в предыдущем посте, попробовал назад вернуть x := Abs(x); вместо конструкции с if…then (разницы нет вообще-то, просто короче в два раза), запустил — ошибка. Вернул все как было — опять не запускается! Пару секунд назад в таком виде запускалось же.

Завтра загружу проект, посмотрите, у вас такая же ерунда. В любом случае, мне это на долго запомнится.

2999 / 2998 / 391

Регистрация: 26.07.2011

Сообщений: 11,459

Записей в блоге: 1

421 / 351 / 19

Регистрация: 14.05.2012

Сообщений: 1,437

993 / 521 / 102

Регистрация: 19.03.2013

Сообщений: 3,113

Записей в блоге: 19

Исправил один баг, появилось еще два

238 / 49 / 6

Регистрация: 10.06.2012

Сообщений: 268

Записей в блоге: 1

993 / 521 / 102

Регистрация: 19.03.2013

Сообщений: 3,113

Записей в блоге: 19

Это у тебя UAC включен по полной

Это сообщение отредактировал(а) ZBugz — 22.4.2013, 12:58

Легко  
http://deldev.blogspot.ru/2009/05/uac-dlja…botchika-2.html

Это сообщение отредактировал(а) ZBugz — 23.4.2013, 18:17

———————

Обижено школьников: 8

———————

Обижено школьников: 8