Skrive til RAM?!?!?

Hmmmm, hvergang du opretter en variabel, putter du data ind i rammene. Jeg forstår ikke helt hvad det er du vil...

Et eksempel:

Type
  TUdfyldArray = Array[1..10000] of integer;

Var
  UdfyldArray: TudfyldArray;
  i : Integer;

Begin
  For i := 1 to 10000 do
    UdfyldArray[i] := Random(5000);
end;

Har ingen ide om hvorvidt det er sådan noget du leder efter... :-)

Okay, jeg fik vidst ikke lige skrevet hvad jeg mente...;-(

Det jeg skal bruge, er en kode som skriver en masse data til RAM'en, så den bliver fyldt op MEGET hurtig!!!

Efter den er fyldt op skal den bare blive ved med at forsøge at fylde data i RAM'en!!!

Hvad med en rekursiv procedure, den creater objekter til rammene er fyldt op og tjaa, så har man prøvet det :-)

Og da den er rekursiv, så går det MEGET hurtigt!!!
Men det eneste du får ud af det er en stackoverflow...???


Interface

Type
  TEtellerAndet= Class
  private
    sdfsDF:integer;
    dsfsdf:string;
    dfdsfd:double;
  end;

implementation

Procedure Crash;
Var
  EtEllerAndet : TEtEllerAndet;
Begin
  EtEllerAndet.Create;
  Crash;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
crash;
end;

Hmm, endnu en wannabe-virus-programmør?

retep --> Jeg tester lige...;-)

lrj --> NEJ! Det har ikke noget med virus, trojanske heste eller andet skidt som skal sendes ud til uskyldige mennesker, men blodt et lille projekt som bliver holdt inde for min computer!!!

Hmm, hvis du vil undgå et stack overflow, kunne du jo bare lave en

while true do
begin
  etellerandet.create;
end;


Intet stack overflow så, men en uendelig løkke..

Hej igen!!!

Din kode virkede desværre ikke helt!!!

Jeg skal have have en kode, som laver STACK OVERFLOW, eller som bare æder alle de recourcer som Windows har tilbage!!!

(Jeg laver det i Delphi 3.)

Jeg vil ikke undgå den, jeg vil bare have noget som æder alle recourser i Windows, så BSOD kommer frem...,-)

lojmann> Jeg fatter stadig ikke hvad du skal bruge det til, men hvis du laver et API-kald som er tilpas forkert, kan du bringe windows i knæ...

lrj> Nej, det kan jeg godt forstå, det er også svært at forklarer - så det undlader jeg!

MEN, kan du ikke poste et API-kald, som fucker up i Win???

Haha, sgu ikke før du siger hvad det skal bruges til.

Du skriver at du skal bruge kode, der laver stack overflow, og det er netop hvad det jeg har sendt til dig gør???

Hvis du bare vil æde alt fri ram:
----------------------------------

procedure EatRam;
var p:pointer;
begin
  While True Do
    GetMem(p,1024);
end;

Det var noget som var efektivt, dog ikke så meget på NT og på lidt ældre maskiner...

Tak for hjælpen...