Не работает код на Delphi XE8,10

@Zagadohnik37 · Регистрация: 23.01.2015

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

Создавал мини-сервис для моей проги(Unlocker'a) в Delphi 7 Lite fill. Потом появилась ошибка при запуске и я перешёл на DElphi XE8. Там уже для других целей понадобилось использовать вот этот код:

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
function createnewprocess:boolean;
var
acl : _acl;
sd : _security_descriptor;
sa : _security_attributes;
si : _startupinfoa;
pi : process_information;
begin
result:=false;
if not initializeacl(acl,sizeof(_acl),acl_revision)
then showmessage('initializeacl'+#13#10+syserrormessage(getlasterror));
if not isvalidacl(acl) then exit;
if not initializesecuritydescriptor(@sd,security_descriptor_revision)
then showmessage('initializesecuritydescriptor'+#13#10+syserrormessage(getlasterror));
if not setsecuritydescriptordacl(@sd,true,@acl,true)
then showmessage('setsecuritydescriptordacl'+#13#10+syserrormessage(getlasterror));
if not isvalidsecuritydescriptor(@sd) then exit;
zeromemory(@sa,sizeof(sa));
sa.nlength:=sizeof(sa);
sa.binherithandle:=false;
sa.lpsecuritydescriptor:=@sd;
zeromemory(@si,sizeof(si));
si.cb:=sizeof(si);
if not createprocess(nil,'notepad.exe',@sa,@sa,false,0,nil,nil,si,pi)
then showmessage('createprocess'+#13#10+syserrormessage(getlasterror));
 
result:=true;
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
 procedure TForm1.Button5Click(Sender: TObject);
var
acl : _acl;
sd : _security_descriptor;
sa : _security_attributes;
si : _startupinfoa;
pi : process_information;
begin
if not initializeacl(acl,sizeof(_acl),acl_revision)
then showmessage('initializeacl'+#13#10+syserrormessage(getlasterror));
if not isvalidacl(acl) then exit;
if not initializesecuritydescriptor(@sd,security_descriptor_revision)
then showmessage('initializesecuritydescriptor'+#13#10+syserrormessage(getlasterror));
if not setsecuritydescriptordacl(@sd,true,@acl,true)
then showmessage('setsecuritydescriptordacl'+#13#10+syserrormessage(getlasterror));
if not isvalidsecuritydescriptor(@sd) then exit;
zeromemory(@sa,sizeof(sa));
sa.nlength:=sizeof(sa);
sa.binherithandle:=false;
sa.lpsecuritydescriptor:=@sd;
zeromemory(@si,sizeof(si));
si.cb:=sizeof(si);
if not createprocess(nil,'Unlocker.exe',@sa,@sa,false,0,nil,nil,si,pi)
then showmessage('createprocess'+#13#10+syserrormessage(getlasterror));
end;

Этот код работал на Delphi 7 lf. А на XE8,10 пишет что ошибок нет, а при компиляции выдаёт ошибку на функцию createprocess а точнее на её параметры(,si,)!

Подскажите как решить эту проблему!!!

@mss · 25.09.2015, 20:19

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

пишет что ошибок нет, а при компиляции выдаёт ошибку

Знатно загнул)

Прелюбопытно, кто же тогда "пишет", если "выдает" ?)

@Zagadohnik37 · 25.09.2015, 21:41 **[ТС]**

mss, ошибок нет а при компиляции... скриншот...

@mss · 25.09.2015, 21:51

Либо

si : _startupinfoa;

либо

createprocessa(nil,

@Zagadohnik37 · 26.09.2015, 10:06 **[ТС]**

Да, всё работает спс!

P.S. Тему можно закрывать.

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@Zagadohnik37 4 / 4 / 1 Регистрация: 23.01.2015 Сообщений: 330
	25.09.2015, 21:41 [ТС]
	mss, ошибок нет а при компиляции... скриншот... Миниатюры 0

@Zagadohnik37 4 / 4 / 1 Регистрация: 23.01.2015 Сообщений: 330
	26.09.2015, 10:06 [ТС]
	Да, всё работает спс! P.S. Тему можно закрывать. 0

Не работает код на Delphi XE8,10

Решение