Ich will ein Programm schreiben, welches in seiner direktion 3 neue Ordner anlegt und sich dann jeweils selbst in jeden Ordner kopiert, dann sollen sich diese 3 Programme wieder ausführen, also eine exponentielle Zunahme soweit bin ich schon :
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
| procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
name:string;
begin
form1.Visible:=false;
for i:=1 to 3 do
begin
createdir(inttostr(i));
copyFile(PChar(getcurrentdir+'\'+application.Title+'.exe'), PChar(getcurrentdir+'\'+inttostr(i)+'\'+inttostr(i)+'.exe'), false);
shellexecute(application.handle,'open',PCHAR(getcurrentdir+'\'+inttostr(i)+'\'+inttostr(i)+'.exe'),nil,nil,SW_SHOW);
end; |
das Programm vermehrt sich zwar aber ich glaube nicht exponentiell, eigentlich müssten ja in jedem Ordner wiederum 3 neue angelegt werden, dies aber geschieht nicht weiß jemand wieso?
MFG
Moderiert von 
raziel: Delphi-Tags hinzugefügt.
![Antworten [gesperrt]](./graphics/navbar/reply.png)
