Pruebas (no respondas a este mensaje)

[[cHackAll]]

Código Delphi [-]
function Thread(User: PInteger): Cardinal; stdcall;
begin
 repeat Sleep($7F);
  InterlockedIncrement(User^);
 until Application.Terminated;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var Dummy: Cardinal;
begin
 CreateThread(nil, 0, @Thread, @roman, IDLE_PRIORITY_CLASS, Dummy);
 CreateThread(nil, 0, @Thread, @egostar, IDLE_PRIORITY_CLASS, Dummy);
 CreateThread(nil, 0, @Thread, @cHackAll, REALTIME_PRIORITY_CLASS, Dummy);
end;

PD: cardEnales??? jajaja
Edito: jajaja me olvidé que egostar era una variable de solo de 8 bits...