PDA

Просмотр полной версии : Помогите с дельфином


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
тему можно закрывать, спасибо за ответ !