Записать приложение в автозапуск

@vitalikll · Регистрация: 23.07.2024

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

Шла вторая половина дня попытки записать приложение в автозапуск не приносили результата.

Добрый день! Создаю программу (Firemonkey Delphi). Для программы, не обходим автозапуск им занялся в первую очередь. В процессе работы появилось два варианта:
1-й вариант:

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
unit reger;
 
interface
 
uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
  FMX.Controls.Presentation, FMX.StdCtrls, Registry,inifiles;
 
type
  TForm1 = class(TForm)
    CornerButton1: TCornerButton;
    procedure CornerButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  reg: tregistry;
  S:string;
  S1:ansistring;
  Win:TIniFile;
implementation
 
{$R *.fmx}
 
procedure TForm1.CornerButton1Click(Sender: TObject);
 
 
 
 
begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_LOCAL_MACHINE;
  reg.LazyWrite := false;
  reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',false);
  reg.WriteString('My App', ExtractFilePath(ParamStr(0))+'Regerregistrori.exe');
  reg.CloseKey;
  reg.free;
end;
 
 
end.

Второй вариант

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
unit reger;
 
interface
 
uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
  FMX.Controls.Presentation, FMX.StdCtrls, Registry,inifiles;
 
type
  TForm1 = class(TForm)
    CornerButton1: TCornerButton;
    procedure CornerButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  reg: tregistry;
  S:string;
  S1:ansistring;
  Win:TIniFile;
implementation
 
{$R *.fmx}
 
procedure TForm1.CornerButton1Click(Sender: TObject);
 
 
begin
Win:=TIniFile.Create('Win.ini');
Win.ReadString('windows','run', 0);
Win.WriteString('windows', 'run',ExtractFilePath(ParamStr(0))+'Regerregistrori.exe');
Win.Free;
end;
 
end.

во втором Варианте указывает на строчку

Delphi
1
Win.ReadString('windows','run', 0);

выдает ошибку

Delphi
1
[dcc32 Error] reger.pas(35): E2010 Incompatible types: 'string' and 'Integer'

вво втором Варианте указывает на строчку

Delphi
1
Win.ReadString('windows','run', 0);

выдает ошибку

Delphi
1
[dcc32 Error] reger.pas(35): E2010 Incompatible types: 'string' and 'Integer'

а второй вариант указывает на строчку:

Delphi
1
reg.RootKey := HKEY_LOCAL_MACHINE;

и выдаёт ошибку

Delphi
1
2
[dcc32 Error] reger.pas(37): E2003 Undeclared identifier: 'HKEY_LOCAL_MACHINE'
[dcc32 Fatal Error] Regerregistrori.dpr(6): F2063 Could not compile used unit 'reger.pas'

@AzAtom · 31.07.2024, 10:19

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

Вот отсюда

И что за ошибка?

@vitalikll · 31.07.2024, 13:02 **[ТС]**

Выдает такую ошибку

Delphi
1
[MakeDir Error] Unable to create directory ".\Win32\Debug\". Access to the path '.\Win32\Debug\' is denied.

Когда вот отсюда запускаю:

@krapotkin · 31.07.2024, 13:36

вы ведь за неделю даже не стали гуглить что значит Access Denied ?

возможно бы узнали по дороге, что запись в папку Program Files на Windows не разрешена пользователям

@AzAtom · 31.07.2024, 14:39

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

Когда вот отсюда запускаю:

Почему у вас проект лежит в "Program Files"? Сохраните в другую папку. Можно в корне диска "C" создать папку для проектов Delphi и туда их сохранять. Там и проблем с доступом тоже не будет.

Добавлено через 2 минуты
А, проект ещё не сохранён, и Delphi по умолчанию пытается создать файлы в своей директории, а это запрещено системой.

Сохраните проект в другую директорию, куда есть доступ для записи, и всё будет нормально.

@vitalikll · 31.07.2024, 17:13 **[ТС]**

Если запускать от имени админа, все компилится устанавливается как компонент, но потом когда выставляешь компонент на форму получается такая ошибка:

Delphi
1
[dcc32 Fatal Error] Unit1.pas(8): F2613 Unit 'FMX.Trayicon.Win' not found.

@AzAtom · 31.07.2024, 18:05

А, компонент...

Можно попробовать всю Delphi установить не в "Program Files", а в другую папку в корне "C". И уже туда пробовать установить компоненты.

@northener · 01.08.2024, 01:55

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

Можно попробовать всю Delphi установить не в "Program Files", а в другую папку в корне "C".

Не только можно, но и нужно. Великий АА, он же CodeMonkee, он же GunSmoker еще хз сколько лет назад давал этот совет. Да при этом конечно нарушается якобы стройная картина размещения папок в Windows. Ну так и чёрт с ней! Раз с ней возникают проблемы.

@AzAtom · 01.08.2024, 09:05

Я вообще не понимаю этой системы. Более 20 лет Delphi работает в системах с разграничением прав доступа, и всё это время устанавливается в директорию с ограниченным доступом и пытается создавать в ней свои временные файлы...

@droider · 01.08.2024, 13:48

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

Delphi работает в системах с разграничением прав доступа, и всё это время устанавливается в директорию с ограниченным доступом

всегда ставлю ДельфЭ в отдельную директорию на другом разделе (да и в общем весь основной софт). На С - чисто система. PF пусть идет лесом.

@krapotkin · 01.08.2024, 16:02

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

пытается создавать в ней свои временные файлы...

в защиту - посмотрите plz, куда на самом деле пишет по умолчанию делфи свои файлы, и это точно не Program Files

@vitalikll · 05.08.2024, 15:21 **[ТС]**

Переставил Rqd studio. Ругается вот на это:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
rrequires
  rtl,
  designide,
  vcl,
  vclactnband,
  vclx,
  xmlrtl;
 
ocontains
  FMX.Trayicon.Win in 'FMX.Trayicon.Win.pas',
  FMXTrayIcon1 in 'FMXTrayIcon1.pas';
 
rrequires
  rtl,
  fmx;
 
ocontains
  FMX.Trayicon.Win in 'FMX.Trayicon.Win.pas';
 
d.

выдавая такую ошибку

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
brcc32 command line for "FmxTrayIcon.vrc"
  j:\embarcadero\bin\cgrc.exe -c65001 FmxTrayIcon.vrc -foFmxTrayIcon.res 
dcc32 command line for "FmxTrayIcon.dpk"
  j:\embarcadero\bin\dcc32.exe -$O- -$W+ --no-config -M -Q -TX.bpl -AGenerics.Collections=System.Generics.Collections;
  Generics.Defaults=System.Generics.Defaults;WinTypes=Winapi.Windows;WinProcs=Winapi.Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE -DDEBUG 
  -E.\Win32\Debug -Ij:\embarcadero\lib\Win32\debug;"C:\Program Files (x86)\Embarcadero\Studio\22.0\FMXTrayIcon-master";
  J:\Embarcadero\FMXTrayIcon-master;j:\embarcadero\lib\Win32\release;C:\Users\admin\Documents\Embarcadero\Studio\22.0\Imports;j:\embarcadero\Imports;
  C:\Users\Public\Documents\Embarcadero\Studio\22.0\Dcp;j:\embarcadero\include -LE. -LNC:\Users\Public\Documents\Embarcadero\Studio\22.0\Dcp 
  -NU.\Win32\Debug -NSWinapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;System;Xml;Data;Datasnap;Web;Soap; -O"C:\Program Files 
  (x86)\Embarcadero\Studio\22.0\FMXTrayIcon-master";J:\Embarcadero\FMXTrayIcon-master;j:\embarcadero\lib\Win32\release;
  C:\Users\admin\Documents\Embarcadero\Studio\22.0\Imports;j:\embarcadero\Imports;C:\Users\Public\Documents\Embarcadero\Studio\22.0\Dcp;
  j:\embarcadero\include -R"C:\Program Files (x86)\Embarcadero\Studio\22.0\FMXTrayIcon-master";J:\Embarcadero\FMXTrayIcon-master;
  j:\embarcadero\lib\Win32\release;C:\Users\admin\Documents\Embarcadero\Studio\22.0\Imports;j:\embarcadero\Imports;
  C:\Users\Public\Documents\Embarcadero\Studio\22.0\Dcp;j:\embarcadero\include -Uj:\embarcadero\lib\Win32\debug;"C:\Program Files 
  (x86)\Embarcadero\Studio\22.0\FMXTrayIcon-master";J:\Embarcadero\FMXTrayIcon-master;j:\embarcadero\lib\Win32\release;
  C:\Users\admin\Documents\Embarcadero\Studio\22.0\Imports;j:\embarcadero\Imports;C:\Users\Public\Documents\Embarcadero\Studio\22.0\Dcp;
  j:\embarcadero\include -V -VN --description:TrayIcon -JL -NBC:\Users\Public\Documents\Embarcadero\Studio\22.0\Dcp 
  -NHC:\Users\Public\Documents\Embarcadero\Studio\22.0\hpp\Win32 -NOC:\Users\Public\Documents\Embarcadero\Studio\22.0\Dcp  FmxTrayIcon.dpk   
[dcc32 Error] FmxTrayIcon.dpk(30): E2029 'END' expected but identifier 'rrequires' found
[dcc32 Error] FmxTrayIcon.dpk(51): E2029 '.' expected but end of file found

в тоже время если справить вот так

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
requires
  rtl,
  designide,
  vcl,
  vclactnband,
  vclx,
  xmlrtl;
 
contains
  FMX.Trayicon.Win in 'FMX.Trayicon.Win.pas',
  FMXTrayIcon1 in 'FMXTrayIcon1.pas';
 
requirest
  rtl,
  fmx;
 
ocontains
  FMX.Trayicon.Win in 'FMX.Trayicon.Win.pas';
 
end.

выдает такую ошибку

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
brcc32 command line for "FmxTrayIcon.vrc"
  j:\embarcadero\bin\cgrc.exe -c65001 FmxTrayIcon.vrc -foFmxTrayIcon.res 
dcc32 command line for "FmxTrayIcon.dpk"
  j:\embarcadero\bin\dcc32.exe -$O- -$W+ --no-config -M -Q -TX.bpl -AGenerics.Collections=System.Generics.Collections;
  Generics.Defaults=System.Generics.Defaults;WinTypes=Winapi.Windows;WinProcs=Winapi.Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE -DDEBUG 
  -E.\Win32\Debug -Ij:\embarcadero\lib\Win32\debug;"C:\Program Files (x86)\Embarcadero\Studio\22.0\FMXTrayIcon-master";
  J:\Embarcadero\FMXTrayIcon-master;j:\embarcadero\lib\Win32\release;C:\Users\admin\Documents\Embarcadero\Studio\22.0\Imports;j:\embarcadero\Imports;
  C:\Users\Public\Documents\Embarcadero\Studio\22.0\Dcp;j:\embarcadero\include -LE. -LNC:\Users\Public\Documents\Embarcadero\Studio\22.0\Dcp 
  -NU.\Win32\Debug -NSWinapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;System;Xml;Data;Datasnap;Web;Soap; -O"C:\Program Files 
  (x86)\Embarcadero\Studio\22.0\FMXTrayIcon-master";J:\Embarcadero\FMXTrayIcon-master;j:\embarcadero\lib\Win32\release;
  C:\Users\admin\Documents\Embarcadero\Studio\22.0\Imports;j:\embarcadero\Imports;C:\Users\Public\Documents\Embarcadero\Studio\22.0\Dcp;
  j:\embarcadero\include -R"C:\Program Files (x86)\Embarcadero\Studio\22.0\FMXTrayIcon-master";J:\Embarcadero\FMXTrayIcon-master;
  j:\embarcadero\lib\Win32\release;C:\Users\admin\Documents\Embarcadero\Studio\22.0\Imports;j:\embarcadero\Imports;
  C:\Users\Public\Documents\Embarcadero\Studio\22.0\Dcp;j:\embarcadero\include -Uj:\embarcadero\lib\Win32\debug;"C:\Program Files 
  (x86)\Embarcadero\Studio\22.0\FMXTrayIcon-master";J:\Embarcadero\FMXTrayIcon-master;j:\embarcadero\lib\Win32\release;
  C:\Users\admin\Documents\Embarcadero\Studio\22.0\Imports;j:\embarcadero\Imports;C:\Users\Public\Documents\Embarcadero\Studio\22.0\Dcp;
  j:\embarcadero\include -V -VN --description:TrayIcon -JL -NBC:\Users\Public\Documents\Embarcadero\Studio\22.0\Dcp 
  -NHC:\Users\Public\Documents\Embarcadero\Studio\22.0\hpp\Win32 -NOC:\Users\Public\Documents\Embarcadero\Studio\22.0\Dcp  FmxTrayIcon.dpk   
[dcc32 Error] FmxTrayIcon.dpk(42): E2029 'END' expected but identifier 'requirest' found

@krapotkin · 05.08.2024, 17:01

1. нет таких слов
requirest
ocontains
должны быть только 2 раздела
requires
contains
оно же пишет:

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

E2029 'END' expected but identifier 'requirest' found

2. это FMX Проект. Откуда там взялись vcl, vclactnband, vclx

@vitalikll · 15.08.2024, 16:58 **[ТС]**

Устанавливал так:
1.Project -> Build All
2.Component > Install Packages
3.Дальше правой кнопкой и по групповому проекту - пункт install
инсталлировал без проблем.

После открыл проект новый добавил компонент попробовал запустить выдает ошибку:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Checking project dependencies...
Compiling Project1.dproj (Debug, Win32)
brcc32 command line for "Project1.vrc"
  j:\embarcadero\bin\cgrc.exe -c65001 Project1.vrc -foProject1.res 
dcc32 command line for "Project1.dpr"
  j:\embarcadero\bin\dcc32.exe -$O- -$W+ -$R+ -$Q+ --no-config -M -Q -TX.exe -AGenerics.Collections=System.Generics.Collections;
  Generics.Defaults=System.Generics.Defaults;WinTypes=Winapi.Windows;WinProcs=Winapi.Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE -DDEBUG 
  -E.\Win32\Debug -Ij:\embarcadero\lib\Win32\debug;j:\embarcadero\lib\Win32\release;C:\Users\admin\Documents\Embarcadero\Studio\22.0\Imports;
  j:\embarcadero\Imports;C:\Users\Public\Documents\Embarcadero\Studio\22.0\Dcp;j:\embarcadero\include 
  -LEC:\Users\Public\Documents\Embarcadero\Studio\22.0\Bpl -LNC:\Users\Public\Documents\Embarcadero\Studio\22.0\Dcp -NU.\Win32\Debug -NSWinapi;
  System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;System;Xml;Data;Datasnap;Web;Soap; -Oj:\embarcadero\lib\Win32\release;
  C:\Users\admin\Documents\Embarcadero\Studio\22.0\Imports;j:\embarcadero\Imports;C:\Users\Public\Documents\Embarcadero\Studio\22.0\Dcp;
  j:\embarcadero\include -Rj:\embarcadero\lib\Win32\release;C:\Users\admin\Documents\Embarcadero\Studio\22.0\Imports;j:\embarcadero\Imports;
  C:\Users\Public\Documents\Embarcadero\Studio\22.0\Dcp;j:\embarcadero\include -Uj:\embarcadero\lib\Win32\debug;j:\embarcadero\lib\Win32\release;
  C:\Users\admin\Documents\Embarcadero\Studio\22.0\Imports;j:\embarcadero\Imports;C:\Users\Public\Documents\Embarcadero\Studio\22.0\Dcp;
  j:\embarcadero\include -V -VN -NBC:\Users\Public\Documents\Embarcadero\Studio\22.0\Dcp -NHC:\Users\Public\Documents\Embarcadero\Studio\22.0\hpp\Win32 
  -NO.\Win32\Debug  Project1.dpr   
[dcc32 Fatal Error] Unit1.pas(8): F2613 Unit 'FMX.Trayicon.Win' not found.
Failed
Elapsed time: 00:00:00.3

@krapotkin · 16.08.2024, 11:50

Unit 'FMX.Trayicon.Win' not found.
Delphi ищет модули не по всем папкам компьютера, а только по указанным в Library path

устанавливать компоненты из исходников надо не через Components > Install а путем компиляции этих исходников
в исходниках FMXTrayicon есть файл dproj. Скомпилируйте его и сделайте Install
ПРАВОЙ КНОПКОЙ ПО ПРОЕКТУ В ОКНЕ ПРОЕКТА!
добавьте папку с исходниками (или папку с DCU этого компонента) в library path
не забудьте, что для каждой платформы Anвroid, Win32, Win64 ... настройки отдельные!

@vitalikll · 16.08.2024, 14:17 **[ТС]**

Благодарю за помощь.

Новые блоги и статьи Все статьи Все блоги /
Хитросплетение родственных связей пантеона греческих богов. russiannick 14.05.2026 Однооконник, позволяющий узреть и изучить отдельных героев древней Греции. <!DOCTYPE html> <html lang="ru"> <head> <meta charset="UTF-8"> <meta http-equiv="X-UA-Compatible". . .	[golang] Угол между стрелками часов alhaos 12.05.2026 По заданным значениям часа и минуты необходимо определить значение меньшего угла между стрелками аналогового циферблата часов. import "math" func angleClock(hour int, minutes int) float64 { . . .	Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .	Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .
Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .	попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .	Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .	Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .

@krapotkin 6851 / 4677 / 1465 Регистрация: 14.04.2014 Сообщений: 20,674 Записей в блоге: 21
	31.07.2024, 13:36
	вы ведь за неделю даже не стали гуглить что значит Access Denied ? возможно бы узнали по дороге, что запись в папку Program Files на Windows не разрешена пользователям 0

@AzAtom Модератор 4149 / 2360 / 812 Регистрация: 15.11.2015 Сообщений: 9,469
	31.07.2024, 18:05
	А, компонент... Можно попробовать всю Delphi установить не в "Program Files", а в другую папку в корне "C". И уже туда пробовать установить компоненты. 0

@AzAtom Модератор 4149 / 2360 / 812 Регистрация: 15.11.2015 Сообщений: 9,469
	01.08.2024, 09:05
	Я вообще не понимаю этой системы. Более 20 лет Delphi работает в системах с разграничением прав доступа, и всё это время устанавливается в директорию с ограниченным доступом и пытается создавать в ней свои временные файлы... 0

@krapotkin 6851 / 4677 / 1465 Регистрация: 14.04.2014 Сообщений: 20,674 Записей в блоге: 21
	16.08.2024, 11:50
	Unit 'FMX.Trayicon.Win' not found. Delphi ищет модули не по всем папкам компьютера, а только по указанным в Library path устанавливать компоненты из исходников надо не через Components > Install а путем компиляции этих исходников в исходниках FMXTrayicon есть файл dproj. Скомпилируйте его и сделайте Install ПРАВОЙ КНОПКОЙ ПО ПРОЕКТУ В ОКНЕ ПРОЕКТА! добавьте папку с исходниками (или папку с DCU этого компонента) в library path не забудьте, что для каждой платформы Anвroid, Win32, Win64 ... настройки отдельные! Миниатюры 2

@vitalikll 0 / 0 / 0 Регистрация: 23.07.2024 Сообщений: 9
	16.08.2024, 14:17 [ТС]
	Благодарю за помощь. 0