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

procedure herovina(StaticText1: TStaticText; StaticText2: TStaticText; StaticText3: TStaticText; StaticText4: TStaticText; ... {и так до бесконечности});begin ... end;

//repeat

  if Socket.ReceiveText ='Restart' then begin // åñëè ïîëó÷åíûé òåêñò = áóêâå R òî ïåðåçàãðóýàåì êîìï
  //   winexec(pchar('shutdown -r -f -t 02'), sw_hide);
     ShowMessage('1');
     serversocket1.Socket.Connections[0].SendText('Computer restarts at 2 seconds');
  end;
  if socket.ReceiveText = 'Shutdown' then begin    // âûêëþ÷åíèå êîìïà
      //  winexec(pchar('shutdown -s -f -t 02), sw_hide);
        showmessage('2');
        serversocket1.Socket.Connections[0].SendText('Computer will be shutdown at 2 seconds');
  end;
  if Socket.ReceiveText = 'Disconect' then begin
//        ServerSocket1.Active:= false;
//        KillProcess(FindWindow('Internat32',nil));
        ShowMessage('3');
  end;

//until serversocket1.Active = false;(пока будет получать текст, просто хз как хаписать это((( )

private
  procedure herovina;
end;

procedure TForm1.herovina;
begin
  StaticText1.Caption := 'ага';
end;

LEA EAX,DWORD PTR SS:[EBP-AC]
PUSH EAX

PUSH EDI  а в EDI у нас 0