Wenn ich die Zeile :
h:=CreateFile(pchar(d + 'bak'),0,0,0,3,0,0);
richtig interpretiere, hätte sich das Virus eigentlich gar nicht ausbreiten können. 3 ist OPEN_EXISTING
Aber mit dem Testballon habt ihr wahrscheinlich recht. Und das wird nicht nur mit Delphi gemacht werden
