С Новым годом! Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Форум программистов и сисадминов Киберфорум > Форум программистов > Delphi > Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
1 / 1 / 4
Регистрация: 24.10.2014
Сообщений: 200
1

Ошибка в коде программы для её авто запуска вместе с Windows

08.03.2016, 17:12. Показов 989. Ответов 11
Метки нет (Все метки)
Author24 — интернет-сервис помощи студентам
Delphi
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

procedure TForm1.Button8Click(Sender: TObject);
begin
Form4.Show;
end;
 
procedure TForm1.CheckBox3Click(Sender: TObject);
var Reg: TRegistry;
if Flag then
begin
Reg := TRegistry.create;
//Reg.Acess := $100 or KEY_ALL_ACCESS;
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run', false);
Reg.WriteString('Project1', 'D:\ВСЕ МОИ ПАПКИ И ФАЛЫ КОТОРЫЕ ЕСТЬ ТУТ НА НОУТЕ\Курсач по ТРПО (Delphi)\Win32\Debug');
Reg.Free;
end;
else
begin
Reg:= TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run', false);
Reg.WriteString('Project1');
Reg.Free;
 
end.
Вот код, сейчас выводит только 8 ошибок... Как мне их убрать?

Это полный код формы:
Delphi
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

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons, Vcl.ToolWin,
  Vcl.ActnMan, Vcl.ActnCtrls, Vcl.ExtCtrls, Vcl.ComCtrls, Registry;
 
type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    TrackBar1: TTrackBar;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Memo1: TMemo;
    Label1: TLabel;
    Panel1: TPanel;
    Edit1: TEdit;
    Button1: TButton;
    Label2: TLabel;
    Button2: TButton;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    Timer1: TTimer;
    CheckBox3: TCheckBox;
    Button3: TButton;
    Panel2: TPanel;
    Label3: TLabel;
    CheckBox4: TCheckBox;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    ToolBar1: TToolBar;
    Edit2: TEdit;
    Edit3: TEdit;
    Image1: TImage;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Edit4: TEdit;
    Panel3: TPanel;
    Label4: TLabel;
    procedure BitBtn2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit9, Unit10;
 
procedure TForm1.BitBtn2Click(Sender: TObject);
var
H: HRGN;
begin
H := CreateEllipticRgn(0, 0, BitBtn1.Width - 5, bitbtn1.Height - 5);
  SetWindowRgn(Bitbtn1.Handle, H, True);
  BitBtn1.Hide;
  BitBtn2.Show;
end;
 
procedure TForm1.BitBtn4Click(Sender: TObject);
var
Canvas: TCanvas;
ScreenV: HDC;
begin
ScreenV:= GetDC(0);
Canvas:= TCanvas.Create;
Canvas.Handle:= ScreenV;
Image1.Canvas.CopyRect(Rect(0, 0, Image1.Width, Image1.Height),
Canvas, Rect(0, 0, Screen.Width, Screen.Height));
ReleaseDC(0, ScreenV);
Image1.Picture.SaveToFile(Edit2.Text + Edit3.Text); //сохроняем
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
Form1.Hide;
Form2.Show;
end;
 
procedure TForm1.Button5Click(Sender: TObject);
begin
Form1.Hide;
Form6.Show;
end;
 
procedure TForm1.Button6Click(Sender: TObject);
begin
Form1.Hide;
Form7.Show;
end;
 
procedure TForm1.Button7Click(Sender: TObject);
begin
Form1.Hide;
Form5.Show;
end;
 
procedure TForm1.Button8Click(Sender: TObject);
begin
Form4.Show;
end;
 
procedure TForm1.CheckBox3Click(Sender: TObject);
var Reg: TRegistry;
if Flag then
begin
Reg := TRegistry.create;
//Reg.Acess := $100 or KEY_ALL_ACCESS;
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run', false);
Reg.WriteString('Project1', 'D:\ВСЕ МОИ ПАПКИ И ФАЛЫ КОТОРЫЕ ЕСТЬ ТУТ НА НОУТЕ\Курсач по ТРПО (Delphi)\Win32\Debug');
Reg.Free;
end;
else
begin
Reg:= TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run', false);
Reg.WriteString('Project1');
Reg.Free;
 
end.
Сам делфи: Delphi XE3
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 08.03.2016, 17:12
Ответы с готовыми решениями:

Ошибка в коде программы для кв. уравнений
вопрос такой почему у меня все время ошибки в этом коде (Квадратное уравнение) Пишу в этот раздел...

Ошибка In function `int main()': Разберемся в коде вместе
Программировать только начал, столкнулся с такой проблемой. ;)

Запуск программы вместе с Windows
Ребят, может кто подсказать, как организовать запуск программы вместе с Windows?

Запуск программы вместе с Windows
Как сделать что бы программа запускалась вместе с Windows?

11
Модератор
9628 / 6239 / 2422
Регистрация: 21.01.2014
Сообщений: 26,643
Записей в блоге: 3
08.03.2016, 17:14 2
Цитата Сообщение от ITALIANO Посмотреть сообщение
сейчас выводит только 8 ошибок...
каких?
0
1 / 1 / 4
Регистрация: 24.10.2014
Сообщений: 200
08.03.2016, 17:57  [ТС] 3
D1973,
[dcc32 Error] Unit1.pas(123): E2029 Declaration expected but 'IF' found
[dcc32 Error] Unit1.pas(132): E2029 Declaration expected but 'ELSE' found
[dcc32 Error] Unit1.pas(134): E2003 Undeclared identifier: 'Reg'
[dcc32 Error] Unit1.pas(135): E2066 Missing operator or semicolon
[dcc32 Error] Unit1.pas(136): E2066 Missing operator or semicolon
[dcc32 Error] Unit1.pas(137): E2066 Missing operator or semicolon
[dcc32 Error] Unit1.pas(138): E2066 Missing operator or semicolon

вроде как-то так
0
5574 / 4425 / 1079
Регистрация: 29.08.2013
Сообщений: 27,691
Записей в блоге: 3
08.03.2016, 19:11 4
вы begin забыли после 122 строки
0
1 / 1 / 4
Регистрация: 24.10.2014
Сообщений: 200
08.03.2016, 19:48  [ТС] 5
Вот обновлённый код:
Delphi
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

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons, Vcl.ToolWin,
  Vcl.ActnMan, Vcl.ActnCtrls, Vcl.ExtCtrls, Vcl.ComCtrls, Registry;
 
type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    TrackBar1: TTrackBar;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Memo1: TMemo;
    Label1: TLabel;
    Panel1: TPanel;
    Edit1: TEdit;
    Button1: TButton;
    Label2: TLabel;
    Button2: TButton;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    Timer1: TTimer;
    CheckBox3: TCheckBox;
    Button3: TButton;
    Panel2: TPanel;
    Label3: TLabel;
    CheckBox4: TCheckBox;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    ToolBar1: TToolBar;
    Edit2: TEdit;
    Edit3: TEdit;
    Image1: TImage;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Edit4: TEdit;
    Panel3: TPanel;
    Label4: TLabel;
    procedure BitBtn2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit9, Unit10;
 
procedure TForm1.BitBtn2Click(Sender: TObject);
var
H: HRGN;
begin
H := CreateEllipticRgn(0, 0, BitBtn1.Width - 5, bitbtn1.Height - 5);
  SetWindowRgn(Bitbtn1.Handle, H, True);
  BitBtn1.Hide;
  BitBtn2.Show;
end;
 
procedure TForm1.BitBtn4Click(Sender: TObject);
var
Canvas: TCanvas;
ScreenV: HDC;
begin
ScreenV:= GetDC(0);
Canvas:= TCanvas.Create;
Canvas.Handle:= ScreenV;
Image1.Canvas.CopyRect(Rect(0, 0, Image1.Width, Image1.Height),
Canvas, Rect(0, 0, Screen.Width, Screen.Height));
ReleaseDC(0, ScreenV);
Image1.Picture.SaveToFile(Edit2.Text + Edit3.Text); //сохроняем
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
Form1.Hide;
Form2.Show;
end;
 
procedure TForm1.Button5Click(Sender: TObject);
begin
Form1.Hide;
Form6.Show;
end;
 
procedure TForm1.Button6Click(Sender: TObject);
begin
Form1.Hide;
Form7.Show;
end;
 
procedure TForm1.Button7Click(Sender: TObject);
begin
Form1.Hide;
Form5.Show;
end;
 
procedure TForm1.Button8Click(Sender: TObject);
begin
Form4.Show;
end;
 
procedure TForm1.CheckBox3Click(Sender: TObject);
var Reg: TRegistry;
begin
if Flag then
begin
Reg:= TRegistry.Create;
//Reg.Acess := $100 or KEY_ALL_ACCESS;
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run', false);
Reg.WriteString('Project1', 'D:\ВСЕ МОИ ПАПКИ И ФАЛЫ КОТОРЫЕ ЕСТЬ ТУТ НА НОУТЕ\Курсач по ТРПО (Delphi)\Win32\Debug');
Reg.Free;
end;
else
begin
Reg:= TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run', false);
Reg.WriteString('Project1');
Reg.Free;
 
end;
end;
end.
А вот ошибки:
[dcc32 Error] Unit1.pas(124): E2029 ',' or ':' expected but 'BEGIN' found
[dcc32 Error] Unit1.pas(134): E2153 ';' not allowed before 'ELSE'
[dcc32 Error] Unit1.pas(139): E2035 Not enough actual parameters - что-то связанное с
Delphi
1

Reg.WriteString('Project1');
0
3530 / 2270 / 279
Регистрация: 24.12.2010
Сообщений: 13,723
08.03.2016, 19:57 6
Цитата Сообщение от ITALIANO Посмотреть сообщение
[dcc32 Error] Unit1.pas(124): E2029 ',' or ':' expected but 'BEGIN' found
Кто такой "Flag" ?

Цитата Сообщение от ITALIANO Посмотреть сообщение
[dcc32 Error] Unit1.pas(134): E2153 ';' not allowed before 'ELSE'
Вникни в смысл фразы - он до смешного простой ..
0
1 / 1 / 4
Регистрация: 24.10.2014
Сообщений: 200
09.03.2016, 00:20  [ТС] 7
mss, первое я и сам не знаю, а вот второе, там после else " ; " поставить нужно что-ли? если да, то по сути ничего не измениться, эта ошибка так и будет висеть...
0
3352 / 2447 / 558
Регистрация: 11.09.2009
Сообщений: 8,889
09.03.2016, 00:54 8
ITALIANO, посмотрите в англо-русском словаре значение слова before.
0
Эксперт Pascal/Delphi
4918 / 2786 / 854
Регистрация: 04.10.2012
Сообщений: 10,140
09.03.2016, 08:24 9
Ошибка в коде программы для её авто запуска вместе с Windows
Цитата Сообщение от ITALIANO Посмотреть сообщение
Вот код
Это НЕ код.
Была недавно тема Автозагрузка Win8. Читайте. Исходник во вложении.
0
3530 / 2270 / 279
Регистрация: 24.12.2010
Сообщений: 13,723
09.03.2016, 08:35 10
Цитата Сообщение от ITALIANO Посмотреть сообщение
первое я и сам не знаю
Как так "не знаю" ?
Программу кто писал, ты или Пушкин ?)
Если в твоей программе фигурирует идентификатор Flag, то кому как не тебе лучше знать где и как он объявлен и каково его назначение ?
0
Эксперт Pascal/Delphi
4918 / 2786 / 854
Регистрация: 04.10.2012
Сообщений: 10,140
09.03.2016, 08:48 11
Эта строка
Delphi
1

Reg.WriteString('Project1', 'D:\ВСЕ МОИ ПАПКИ И ФАЛЫ КОТОРЫЕ ЕСТЬ ТУТ НА НОУТЕ\Курсач по ТРПО (Delphi)\Win32\Debug');
заставит Вас изрядно удивиться, если Вы попытаетесь автозапуском загрузить программу на другом ПК
0
Модератор
9628 / 6239 / 2422
Регистрация: 21.01.2014
Сообщений: 26,643
Записей в блоге: 3
09.03.2016, 18:49 12

Не по теме:

Цитата Сообщение от droider Посмотреть сообщение
заставит Вас изрядно удивиться, если Вы попытаетесь автозапуском загрузить программу на другом ПК
Не, удивления не будет... Будут вопросы типа: "А почему у меня запускается, а у Васи (Коли, Пети, Маши, Люси и т.д.) - нет..."
Народ ни в какую не хочет учить матчасть...



Добавлено через 2 минуты

Не по теме:

Цитата Сообщение от mss Посмотреть сообщение
Программу кто писал, ты или Пушкин ?)
Блин, Пушкин писал гораздо лучше

0
09.03.2016, 18:49
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 09.03.2016, 18:49
Помогаю со студенческими работами здесь

Ошибка запуска программы
Добрый день. Не хочет запускаться программа. Выкидывает ошибку. Скрин ошибки и программа...

Ошибка запуска программы
Что делать если выдает такую ошибку при компилировании

Ошибка запуска программы с диска
Добрый вечер, ребята. В общем, столкнулся с проблемой. Создал программу (программа с базой данных)....

ошибка после запуска программы!
#include <stdio.h> #include <conio.h> #include<iostream> using namespace std; int main() {...

Ошибка после запуска программы
Выдает вот такую ошибку, что это может быть ? читал , ничего такого нет

Windows 8.1 ошибка запуска
Здравствуйте, господа. Вчера перестал работать led-индикатор HDD в корпусе. Снял крышку,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
12
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru