Entwickler-Ecke
Windows API - Programm soll sich exponentiell vermehren
klezmor - Sa 24.09.05 14:08
Titel: Programm soll sich exponentiell vermehren
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.
uall@ogc - Sa 24.09.05 14:10
wahrscheinlich funktioniert das shellexecute einfach nicht (falsch angewendet) werden die programme denn neu gestartet.
und ich weiß nicht wie lange der thread offen bleibt, da das was du machst nicht wirklich sinnvoll ist und eher für nen virus oder nen nerv programm gedacht ist.
klezmor - Sa 24.09.05 14:14
Ja ich weiß der Nutzen des Programmes lässt zu wünschen übrig aber ich wollte einfach mal sehen, wie sowas funktioniert.
Das shellexecute funzt schon aber es legt nihct immer wieder neue ordner an, inwelchen es sich ausführt.
uall@ogc - Sa 24.09.05 14:20
GetCurrentDIr stimmt nich
nimm besser ExtractFilePath(Paramstr(0))
Gausi - Sa 24.09.05 19:18
Solange kein glaubwürdiges sinnvolles Einsatzgebiet für ein solches Programm geliefert wird, bleibt dieser Thread erst einmal
*closed*
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!