Как выключить удалённый компьютер c помощью Server Socket.

[muravey]

Имеется IP(локальная сеть).В свойсвах Server Socket->Port -вписываю Ip. в Service-пусто. Запускается но не работает.Чё делать??Заранее благодарен!

var
frmClient: TfrmClient;
implementation
procedure TfrmClient.ServerSocketClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
Incomming: string;
begin
// read off the socket
Incomming := Socket.ReceiveText;
memo1.Lines.Add(incomming);
if Incomming = 'S' then// Shutdown Protocol
ExitWindowsEx(EWX_FORCE or EWX_SHUTDOWN, 0;
if Incomming = 'B' then // Beep Protocol</SPAN>
Beep;
if Incomming = 'Z' then// Z protocol
showmessage('Z');
end;
procedure TfrmClient.FormCreate(Sender: TObject);
begin
ServerSocket.Active := true;
end;
procedure TfrmClient.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ServerSocket.Active := false;
end;

[Квэнди]

Снчала приведите сообщение в нормальный вид, в противном случае тему удалю

[GAGARIN-NEW]

Троян пишем ?

[Stilet]

Запускается но не работает

Возможно потому что твоя прога запущена не под админом, тогда ExitWindowsEx либо не сработает либо просто выйдет из сеанса.

if Incomming = 'S' then// Shutdown Protocol
if not ExitWindowsEx(EWX_FORCE or EWX_SHUTDOWN, 0)
 then RaiseLastWin32Error

И читай че оно пишет.

P.S. Ты кста закрывающую скобочку провтыкал...