Программный перезапуск AOS

[Migel_84]

Никто не пытался осуществить вышеописанное не в AXAPTA? Я пытаюсь сделать на делфи, но никак не получается, ошибку выдаёт. Вот код

Цитата:

...
function AOS(HostName,AOSName:String):integer;stdcall;
external 'AosMgr.dll' name 'AosStatus';

procedure TForm1.Button1Click(Sender: TObject);
begin
case AOS('10.10.0.10','AXAPTA') of <-ЗДЕСЬ ОШИБКА
-1: Label1.Caption := 'Connection timed out';
-2: Label1.Caption := 'Connection refused';
-3: Label1.Caption := 'Protocol error';
-4: Label1.Caption := 'Server manager not started';
-5: Label1.Caption := 'AOS stopped';
-6: Label1.Caption := 'AOS start pending';
-7: Label1.Caption := 'AOS stop pending';
-8: Label1.Caption := 'AOS running';
-9: Label1.Caption := 'AOS not found on server';
-10: Label1.Caption := 'Cannot assign requested address';
-11: Label1.Caption := 'Unknown TCP error';
-12: Label1.Caption := 'AOS unknown status';
else Label1.Caption := 'Unknown error';;
end;
end;
...

Кто-нибудь может подсказать?